Переглянути джерело

Merged revisions 12407,12410 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r12407 | joost | 2008-12-20 22:52:00 +0100 (Sat, 20 Dec 2008) | 1 line

* Fixed compilation of example
........
r12410 | joost | 2008-12-20 23:24:12 +0100 (Sat, 20 Dec 2008) | 1 line

* Fixed compilation of example
........

git-svn-id: branches/fixes_2_2@12413 -

joost 16 роки тому
батько
коміт
236cb6b931

+ 2 - 2
packages/syslog/tests/testlog.pp

@@ -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);

+ 1 - 1
packages/utmp/examples/testutmp.pp

@@ -1,6 +1,6 @@
 Program testu;
 
-uses utmp,linux;
+uses utmp,unixutil;
 
 Const UTMPFile = '/var/run/utmp';