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

+ Add _FPC_TlsSize public symbol for use by heaptrc unit

Browse Source 
git-svn-id: trunk@20180 -
This commit is contained in:
pierre 2012-01-26 13:51:34 +00:00
parent 573102fa70
commit f80bc70707
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/systhrd.inc
View File

@ -96,6 +96,7 @@ var
const const
TLSKey : DWord = $ffffffff; public name '_FPC_TlsKey'; TLSKey : DWord = $ffffffff; public name '_FPC_TlsKey';
TLSSize : DWord = 0; public name '_FPC_TlsSize';
var var
MainThreadIdWin32 : DWORD; MainThreadIdWin32 : DWORD;
@ -131,6 +132,7 @@ var
if dataindex=nil then if dataindex=nil then
RunError(226); RunError(226);
TlsSetValue(tlskey,dataindex); TlsSetValue(tlskey,dataindex);
TlsSize:=threadvarblocksize;
end; end;
SetLastError(errorsave); SetLastError(errorsave);
end; end;