From f80bc70707cc97db77c26141d6e01268e36b1113 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 26 Jan 2012 13:51:34 +0000
Subject: [PATCH]  + Add _FPC_TlsSize public symbol for use by heaptrc unit

git-svn-id: trunk@20180 -
---
 rtl/win/systhrd.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rtl/win/systhrd.inc b/rtl/win/systhrd.inc
index ee528f88ee..fb6266ec7e 100644
--- a/rtl/win/systhrd.inc
+++ b/rtl/win/systhrd.inc
@@ -96,6 +96,7 @@ var
 
     const
       TLSKey : DWord = $ffffffff; public name '_FPC_TlsKey';
+      TLSSize : DWord = 0; public name '_FPC_TlsSize';
 
     var
       MainThreadIdWin32 : DWORD;
@@ -131,6 +132,7 @@ var
             if dataindex=nil then
               RunError(226);
             TlsSetValue(tlskey,dataindex);
+            TlsSize:=threadvarblocksize;
           end;
         SetLastError(errorsave);
       end;