paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-10 07:29:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* small cleanup

Browse Source
This commit is contained in:
peter 2000-02-01 12:52:17 +00:00
parent 7f8c50fe3c
commit 965d9de658
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/syslog/testlog.pp
View File

@ -14,9 +14,9 @@ begin
openlog(pchar(prefix),LOG_NOWAIT,LOG_DEBUG);
for i:=1 to 10 do
syslog(log_info,'This is message number %d'#10,[i]);
prefix:='';
prefix:='';
end;
begin
dotest;
end.
end.