Parcourir la source

* use thread var only if the target supports threading

git-svn-id: trunk@18967 -
florian il y a 14 ans
Parent
commit
dbd33fd6a5
1 fichiers modifiés avec 4 ajouts et 1 suppressions
  1. 4 1
      rtl/inc/systemh.inc

+ 4 - 1
rtl/inc/systemh.inc

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