paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 20:50:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* section specification method changed

Browse Source 
git-svn-id: trunk@17907 -
This commit is contained in:
pierre 2011-07-01 19:22:12 +00:00
parent 4ad2707674
commit 450fd8784b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/win/syswin.inc
View File

@ -163,9 +163,9 @@ procedure Exec_Tls_callback(Handle : pointer; reason : Dword; Reserved : pointer
const
FreePascal_TLS_callback : pointer = @Exec_Tls_callback;
public name '.section .CRT$XLFPC __FPC_tls_callbacks';
public name '__FPC_tls_callbacks' section '.CRT$XLFPC';
FreePascal_end_of_TLS_callback : pointer = nil;
public name '.section .CRT$XLZZZ __FPC_end_of_tls_callbacks';
public name '__FPC_end_of_tls_callbacks' section '.CRT$XLZZZ';
var
tls_callbacks : pointer; external name '___crt_xl_start__';
tls_data_start : pointer; external name '___tls_start__';