Преглед изворни кода

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

git-svn-id: trunk@17993 -

Jonas Maebe пре 14 година
родитељ
комит
d85ccd7418
1 измењених фајлова са 1 додато и 1 уклоњено
  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;