Преглед на файлове

* ProcessID initialization added

Tomas Hajny преди 21 години
родител
ревизия
6fa8524e66
променени са 1 файла, в които са добавени 5 реда и са изтрити 1 реда
  1. 5 1
      rtl/win32/system.pp

+ 5 - 1
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