Merged revisions 178 via svnmerge from

/trunk

git-svn-id: branches/fixes_2_0@180 -

rtl/unix/cthreads.pp

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