From: Bruno Haible <bruno@clisp.org>
Date: Sun, 25 Apr 2010 14:12:42 +0000 (+0200)
Subject: Update hello-pascal example.
X-Git-Tag: v0.18~31
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=05a83b3bfd04a51dfc03c273ad62cbefdec19d08;p=thirdparty%2Fgettext.git

Update hello-pascal example.
---

diff --git a/gettext-tools/examples/ChangeLog b/gettext-tools/examples/ChangeLog
index 01af13340..0d9da3bed 100644
--- 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 3b15d4670..596042848 100644
--- 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 942300b53..3a10bdc33 100644
--- 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.