From c04f0bc8568b0264977bbc068de16949f335dbd1 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 14 Apr 2005 20:42:14 +0000
Subject: [PATCH]   * fixed more TThreadID stuff

---
 rtl/inc/thread.inc  | 7 +++++--
 rtl/inc/threadh.inc | 7 +++++--
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/rtl/inc/thread.inc b/rtl/inc/thread.inc
index 2b5dab1571..2175db2809 100644
--- a/rtl/inc/thread.inc
+++ b/rtl/inc/thread.inc
@@ -131,7 +131,7 @@ begin
   Result:=CurrentTM.ThreadGetPriority(ThreadHandle);
 end;
 
-function  GetCurrentThreadId : dword;
+function  GetCurrentThreadId : TThreadID;
 
 begin
   Result:=CurrentTM.GetCurrentThreadID();
@@ -497,7 +497,10 @@ end;
 
 {
   $Log$
-  Revision 1.27  2005-04-13 20:15:47  florian
+  Revision 1.28  2005-04-14 20:42:14  florian
+    * fixed more TThreadID stuff
+
+  Revision 1.27  2005/04/13 20:15:47  florian
     * TThread on linux fixed
 
   Revision 1.26  2005/04/09 17:26:08  florian
diff --git a/rtl/inc/threadh.inc b/rtl/inc/threadh.inc
index b1338de629..054f203470 100644
--- a/rtl/inc/threadh.inc
+++ b/rtl/inc/threadh.inc
@@ -127,7 +127,7 @@ function  KillThread (threadHandle : TThreadID) : dword;
 function  WaitForThreadTerminate (threadHandle : TThreadID; TimeoutMs : longint) : dword;  {0=no timeout}
 function  ThreadSetPriority (threadHandle : TThreadID; Prio: longint): boolean;            {-15..+15, 0=normal}
 function  ThreadGetPriority (threadHandle : TThreadID): longint;
-function  GetCurrentThreadId : dword;
+function  GetCurrentThreadId : TThreadID;
 
 
 { this allows to do a lot of things in MT safe way }
@@ -155,7 +155,10 @@ procedure RTLeventsync(m:trtlmethod;p:tprocedure);
 
 {
   $Log$
-  Revision 1.30  2005-04-13 20:10:50  florian
+  Revision 1.31  2005-04-14 20:42:14  florian
+    * fixed more TThreadID stuff
+
+  Revision 1.30  2005/04/13 20:10:50  florian
     + TThreadID
 
   Revision 1.29  2005/04/09 17:26:08  florian