+ Add _FPC_TlsSize public symbol for use by heaptrc unit

git-svn-id: trunk@20180 -

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;