Jelajahi Sumber

* fixed compilation on targets where tthreadid is not an integer type after
r17992

git-svn-id: trunk@17993 -

Jonas Maebe 14 tahun lalu
induk
melakukan
d85ccd7418
1 mengubah file dengan 1 tambahan dan 1 penghapusan
  1. 1 1
      rtl/inc/thread.inc

+ 1 - 1
rtl/inc/thread.inc

@@ -73,7 +73,7 @@ Var
 {$endif FPC_HAS_FEATURE_CONSOLEIO}
         { Support platforms where threadvar memory is managed outside of the RTL:
           reset ThreadID and allow ReleaseThreadVars to be unassigned }
-        ThreadID := 0;
+        ThreadID := TThreadID(0);
         if assigned(CurrentTM.ReleaseThreadVars) then
           CurrentTM.ReleaseThreadVars;
       end;