paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 00:39:28 +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); openlog(pchar(prefix),LOG_NOWAIT,LOG_DEBUG);
for i:=1 to 10 do for i:=1 to 10 do
syslog(log_info,'This is message number %d'#10,[i]); syslog(log_info,'This is message number %d'#10,[i]);
prefix:=''; prefix:='';
end; end;
begin begin
dotest; dotest;
end. end.