|
@@ -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;
|