paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 21:28:03 +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
*****************************************************************************}
const
threadvarblocksize : dword = 0;
const
var
// public names are used by heaptrc unit
threadvarblocksize : dword; public name '_FPC_TlsSize';
TLSKey : DWord = $ffffffff; public name '_FPC_TlsKey';
TLSSize : DWord = 0; public name '_FPC_TlsSize';
var
MainThreadIdWin32 : DWORD;
@ -132,7 +130,6 @@ var
if dataindex=nil then
RunError(226);
TlsSetValue(tlskey,dataindex);
TlsSize:=threadvarblocksize;
end;
SetLastError(errorsave);
end;