paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 16:47:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use thread var only if the target supports threading

Browse Source 
git-svn-id: trunk@18967 -
This commit is contained in:
florian 2011-09-04 14:27:23 +00:00
parent a1381c1240
commit dbd33fd6a5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/systemh.inc
View File

@ -488,8 +488,11 @@ var
var cmdline:Pchar=nil;
{$endif}
{$ifdef FPC_HAS_FEATURE_THREADING}
ThreadVar
{$else FPC_HAS_FEATURE_THREADING}
Var
{$endif FPC_HAS_FEATURE_THREADING}
ThreadID : TThreadID;
{ Standard In- and Output }
ErrOutput,