From 076364ca7f3d66875149c91e0c5941135f999a86 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Wed, 20 Apr 2005 21:52:16 +0000
Subject: [PATCH]   * TThreadID fix

---
 rtl/os2/systhrd.inc | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/os2/systhrd.inc b/rtl/os2/systhrd.inc
index 6d1817d58a..0db24c44a0 100644
--- a/rtl/os2/systhrd.inc
+++ b/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