From 6fa8524e66354db38a6f1d1a571b07409d31bf08 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sun, 15 Feb 2004 21:37:18 +0000
Subject: [PATCH]   * ProcessID initialization added

---
 rtl/win32/system.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/rtl/win32/system.pp b/rtl/win32/system.pp
index 61c27157ad..420422fed6 100644
--- a/rtl/win32/system.pp
+++ b/rtl/win32/system.pp
@@ -1597,6 +1597,7 @@ begin
   setup_arguments;
   { Reset IO Error }
   InOutRes:=0;
+  ProcessID := GetCurrentProcess;
   ThreadID := GetCurrentThread;
   { Reset internal error variable }
   errno:=0;
@@ -1607,7 +1608,10 @@ end.
 
 {
   $Log$
-  Revision 1.53  2004-02-02 17:01:47  florian
+  Revision 1.54  2004-02-15 21:37:18  hajny
+    * ProcessID initialization added
+
+  Revision 1.53  2004/02/02 17:01:47  florian
     * workaround for AMD prefetch bug
 
   Revision 1.52  2004/01/20 23:12:49  hajny