paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 17:39:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

Provide _tls_index in script

Browse Source 
git-svn-id: trunk@17901 -
This commit is contained in:
pierre 2011-07-01 14:27:33 +00:00
parent a45b29911c
commit c611c91cef
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/systems/t_win.pas
View File

@ -1011,6 +1011,8 @@ implementation
Concat(' SYMBOL __data_start__');
Concat(' OBJSECTION .data*');
Concat(' OBJSECTION .fpc*');
Concat(' PROVIDE '+target_info.Cprefix+'_tls_index');
Concat(' LONG 0');
Concat(' SYMBOL edata');
Concat(' SYMBOL __data_end__');
Concat('ENDEXESECTION');
@ -1046,17 +1048,17 @@ implementation
Concat(' SYMBOL ___crt_xl_start__');
Concat(' OBJSECTION .CRT$XL*'); { /* TLS callbacks */'); }
{ In GNU ld, this is defined in the TLS Directory support code }
Concat(' PROVIDE (___crt_xl_end__)');
Concat(' PROVIDE ___crt_xl_end__');
{ Add a nil pointer as last element }
Concat(' LONG 0');
{$ifdef x86_64}
Concat(' LONG 0');
{$endif x86_64}
Concat(' SYMBOL ___crt_xp_start__');
Concat(' OBJSECTION SORT(.CRT$XP*'); { /* Pre-termination */');}
Concat(' OBJSECTION .CRT$XP*'); { /* Pre-termination */');}
Concat(' SYMBOL ___crt_xp_end__');
Concat(' SYMBOL ___crt_xt_start__');
Concat(' OBJSECTION SORT(.CRT$XT*');{ /* Termination */');}
Concat(' OBJSECTION .CRT$XT*');{ /* Termination */');}
Concat(' SYMBOL ___crt_xt_end__');
Concat('ENDEXESECTION');
Concat('EXESECTION .idata');
@ -1293,6 +1295,8 @@ implementation
Add(' *(.data2)');
Add(' *(SORT(.data$*))');
Add(' *(.jcr)');
Add(' PROVIDE ('+target_info.Cprefix+'_tls_index = .);');
Add(' LONG (0);');
Add(' __data_end__ = . ;');
Add(' *(.data_cygwin_nocopy)');
Add(' }');