Tomas Hajny 20 éve
szülő
commit
076364ca7f
1 módosított fájl, 6 hozzáadás és 3 törlés
  1. 6 3
      rtl/os2/systhrd.inc

+ 6 - 3
rtl/os2/systhrd.inc

@@ -193,7 +193,7 @@ end;
 
     function SysBeginThread(sa : Pointer;stacksize : dword;
                          ThreadFunction : tthreadfunc;p : pointer;
-                         creationFlags : dword; var ThreadId : THandle) : DWord;
+                         creationFlags : dword; var ThreadId : TThreadID) : DWord;
       var
         TI: PThreadInfo;
       begin
@@ -220,7 +220,7 @@ end;
 {$ifdef DEBUG_MT}
         writeln('Starting new thread');
 {$endif DEBUG_MT}
-        SysBeginThread := DosCreateThread (DWord(ThreadID), @ThreadMain, SA,
+        SysBeginThread := DosCreateThread (DWord (ThreadID), @ThreadMain, SA,
                                            CreationFlags, StackSize);
       end;
 
@@ -546,7 +546,10 @@ end;
 
 {
   $Log$
-  Revision 1.2  2005-03-20 22:33:27  hajny
+  Revision 1.3  2005-04-20 21:52:16  hajny
+    * TThreadID fix
+
+  Revision 1.2  2005/03/20 22:33:27  hajny
     * thread local memory freed
 
   Revision 1.1  2005/02/06 16:57:18  peter