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

- Removed TlsSize variable, it duplicates threadvarblocksize.

Browse Source 
git-svn-id: trunk@23360 -
This commit is contained in:
sergei 2013-01-10 20:13:08 +00:00
parent bc4c1149c3
commit 7969fb4ee1
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/win/systhrd.inc
View File

@ -91,12 +91,10 @@ var
Threadvar support Threadvar support
*****************************************************************************} *****************************************************************************}
const var
threadvarblocksize : dword = 0; // public names are used by heaptrc unit
threadvarblocksize : dword; public name '_FPC_TlsSize';
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;
@ -132,7 +130,6 @@ 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;