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

* Windows: Prevent removal of the TLS directory by the linker when RTL is compiled with -O4 or when inlining is enabled.

Browse Source 
git-svn-id: trunk@49400 -
This commit is contained in:
yury 2021-05-25 16:03:34 +00:00
parent 8006900e8e
commit 73448deda6
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/win32/sysinit.inc
View File

@ -31,8 +31,9 @@
var var
tlsdir: record end; external name '__tls_used'; tlsdir: record end; external name '__tls_used';
procedure LinkIn(p1,p2,p3: Pointer); inline; function LinkIn(p1,p2,p3: Pointer): pointer;
begin begin
LinkIn:=p1;
end; end;
{$endif} {$endif}

3
rtl/win64/sysinit.pp
View File

@ -36,8 +36,9 @@ unit sysinit;
var var
tlsdir: record end; external name '_tls_used'; tlsdir: record end; external name '_tls_used';
procedure LinkIn(p1,p2,p3: Pointer); inline; function LinkIn(p1,p2,p3: Pointer): pointer;
begin begin
LinkIn:=p1;
end; end;
{$endif} {$endif}