paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 09:06:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@25736 -
This commit is contained in:
sergei 2013-10-10 12:55:30 +00:00
parent 90d66595c2
commit f2a4d1bbbc
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/system.inc
View File

@ -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
rtl/inc/threadh.inc
View File

@ -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;