From f2a4d1bbbc52292001b06dc100857dab363bcb16 Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Thu, 10 Oct 2013 12:55:30 +0000
Subject: [PATCH] - 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 -
---
 rtl/inc/system.inc  | 2 ++
 rtl/inc/threadh.inc | 2 ++
 2 files changed, 4 insertions(+)

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;