Explorar o código

- Do not compile generic threadvar code if tf_section_threadvars flag is enabled for target (currently there are no such targets).

git-svn-id: trunk@25736 -
sergei %!s(int64=12) %!d(string=hai) anos
pai
achega
f2a4d1bbbc
Modificáronse 2 ficheiros con 4 adicións e 0 borrados
  1. 2 0
      rtl/inc/system.inc
  2. 2 0
      rtl/inc/threadh.inc

+ 2 - 0
rtl/inc/system.inc

@@ -1411,8 +1411,10 @@ end;
 { Generic threadmanager }
 {$i thread.inc}
 
+{$ifndef FPC_SECTION_THREADVARS}
 { Generic threadvar support }
 {$i threadvr.inc}
+{$endif FPC_SECTION_THREADVARS}
 
 {$ifdef DISABLE_NO_THREAD_MANAGER}
 { OS Dependent implementation }

+ 2 - 0
rtl/inc/threadh.inc

@@ -116,7 +116,9 @@ Function SetThreadManager(Const NewTM : TThreadManager) : Boolean;
 {$ifndef DISABLE_NO_THREAD_MANAGER}
 {$endif DISABLE_NO_THREAD_MANAGER}
 // Needs to be exported, so the manager can call it.
+{$ifndef FPC_SECTION_THREADVARS}
 procedure InitThreadVars(RelocProc : TRelocateThreadVarHandler);
+{$endif FPC_SECTION_THREADVARS}
 procedure InitThread(stklen:SizeUInt);
 procedure DoneThread;