Tomas Hajny 20 anni fa
parent
commit
076364ca7f
1 ha cambiato i file con 6 aggiunte e 3 eliminazioni
  1. 6 3
      rtl/os2/systhrd.inc

+ 6 - 3
rtl/os2/systhrd.inc

@@ -193,7 +193,7 @@ end;
 
 
     function SysBeginThread(sa : Pointer;stacksize : dword;
     function SysBeginThread(sa : Pointer;stacksize : dword;
                          ThreadFunction : tthreadfunc;p : pointer;
                          ThreadFunction : tthreadfunc;p : pointer;
-                         creationFlags : dword; var ThreadId : THandle) : DWord;
+                         creationFlags : dword; var ThreadId : TThreadID) : DWord;
       var
       var
         TI: PThreadInfo;
         TI: PThreadInfo;
       begin
       begin
@@ -220,7 +220,7 @@ end;
 {$ifdef DEBUG_MT}
 {$ifdef DEBUG_MT}
         writeln('Starting new thread');
         writeln('Starting new thread');
 {$endif DEBUG_MT}
 {$endif DEBUG_MT}
-        SysBeginThread := DosCreateThread (DWord(ThreadID), @ThreadMain, SA,
+        SysBeginThread := DosCreateThread (DWord (ThreadID), @ThreadMain, SA,
                                            CreationFlags, StackSize);
                                            CreationFlags, StackSize);
       end;
       end;
 
 
@@ -546,7 +546,10 @@ end;
 
 
 {
 {
   $Log$
   $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
     * thread local memory freed
 
 
   Revision 1.1  2005/02/06 16:57:18  peter
   Revision 1.1  2005/02/06 16:57:18  peter