* fix for range error on some platforms

git-svn-id: trunk@178 -

rtl/unix/cthreads.pp

@@ -307,7 +307,7 @@ Type  PINTRTLEvent = ^TINTRTLEvent;
 
   function  CGetCurrentThreadId : TThreadID;
     begin
-      CGetCurrentThreadId:=dword(pthread_self());
+      CGetCurrentThreadId := TThreadID (pthread_self());
     end;