2
0
Эх сурвалжийг харах

- 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 11 жил өмнө
parent
commit
f2a4d1bbbc

+ 2 - 0
rtl/inc/system.inc

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

+ 2 - 0
rtl/inc/threadh.inc

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