diff options
| author | sergei <sergei@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-10-10 12:55:30 +0000 |
|---|---|---|
| committer | sergei <sergei@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2013-10-10 12:55:30 +0000 |
| commit | efef648fe6ad7eb17a4e9c94f1dad165cf1d4451 (patch) | |
| tree | b47d16620e84593ff0e729ae1619834068399fc5 /rtl | |
| parent | df266e8882e04db856456721f8feb60e0be8ceb6 (diff) | |
| download | fpc-efef648fe6ad7eb17a4e9c94f1dad165cf1d4451.tar.gz | |
- Do not compile generic threadvar code if tf_section_threadvars flag is enabled for target (currently there are no such targets).
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@25736 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl')
| -rw-r--r-- | rtl/inc/system.inc | 2 | ||||
| -rw-r--r-- | rtl/inc/threadh.inc | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc index e09bfb6ed2..f6de87ad6d 100644 --- a/rtl/inc/system.inc +++ b/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 } diff --git a/rtl/inc/threadh.inc b/rtl/inc/threadh.inc index c9b60f55cb..9d991b8813 100644 --- a/rtl/inc/threadh.inc +++ b/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; |