paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 04:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
r17992

git-svn-id: trunk@17993 -
This commit is contained in:
Jonas Maebe 2011-07-16 12:03:35 +00:00
parent 5c3aca5148
commit d85ccd7418
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/thread.inc
View File

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