Update hello-pascal example.

diff --git a/gettext-tools/examples/ChangeLog b/gettext-tools/examples/ChangeLog
index 01af133409c0ea992599241c5ec4d191d8955ed1..0d9da3bedb8cf228bc6150e291c3b3f3f00a9b11 100644 (file)
--- a/gettext-tools/examples/ChangeLog
+++ b/gettext-tools/examples/ChangeLog
@@ -1,3 +1,12 @@
+2010-04-25  Bruno Haible  <bruno@clisp.org>
+
+       Update hello-pascal example.
+       * hello-pascal/INSTALL: Require fpc 2.0 or newer.
+       * hello-pascal/hello.pas: Use GetProcessID from the system unit,
+       instead of getpid from the oldlinux unit or fpgetpid from the baseunix
+       unit.
+       Reported by Marco van de Voort <marcov@stack.nl>.
+
 2010-04-02  Bruno Haible  <bruno@clisp.org>
 
        * hello-c++-wxwidgets/autogen.sh: Update origin of lib-*.m4 and

diff --git a/gettext-tools/examples/hello-pascal/INSTALL b/gettext-tools/examples/hello-pascal/INSTALL
index 3b15d4670f883b78650711c8941827bc60bb3d36..5960428487a60eeba7b09d5ac2fcd20cbac18c60 100644 (file)
--- a/gettext-tools/examples/hello-pascal/INSTALL
+++ b/gettext-tools/examples/hello-pascal/INSTALL
@@ -1,5 +1,5 @@
 This example relies on:
-  - Free Pascal (ppc386)
+  - Free Pascal 2.0 or newer (ppc386)
 
 Installation:
   ./autogen.sh

diff --git a/gettext-tools/examples/hello-pascal/hello.pas b/gettext-tools/examples/hello-pascal/hello.pas
index 942300b53ade5249926a7770d9c2a112724a1caa..3a10bdc336c354e8d114ffa6e5c7000c8d398d00 100644 (file)
--- a/gettext-tools/examples/hello-pascal/hello.pas
+++ b/gettext-tools/examples/hello-pascal/hello.pas
@@ -7,7 +7,6 @@ program hello;
 {$mode delphi}
 
 uses gettext,  { translateresourcestrings }
-     linux,    { getpid }
      sysutils; { format }
 
 resourcestring
@@ -17,5 +16,5 @@ resourcestring
 begin
   translateresourcestrings({$i %LOCALEDIR%}+'/%s/LC_MESSAGES/hello-pascal.mo');
   writeln(hello_world);
-  writeln(format(running_as,[getpid]));
+  writeln(format(running_as,[GetProcessID]));
 end.