paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 00:10:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed compilation of example

Browse Source 
git-svn-id: trunk@12407 -
This commit is contained in:
joost 2008-12-20 21:52:00 +00:00
parent 3a50161c65
commit d5da3f316f
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/tests/testlog.pp
View File

@ -1,6 +1,6 @@
program testlog;
uses linux,systemlog,sysutils;
uses systemlog,sysutils;
procedure dotest;
@ -8,7 +8,7 @@ var i : longint;
prefix : ansistring;
begin
i:=getpid;
i:=GetProcessID;
prefix:=format('testlog[%d] ',[i]);
// prefix will be prepended to every message now.
openlog(pchar(prefix),LOG_NOWAIT,LOG_DEBUG);