paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 21:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Double LONG (-1) and LONG (0) for x86_64 linker script

Browse Source 
git-svn-id: trunk@17862 -
This commit is contained in:
pierre 2011-06-28 20:41:05 +00:00
parent c07bcefb6b
commit 446c128e71
1 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
compiler/systems/t_win.pas
View File

@ -986,13 +986,25 @@ implementation
Concat(' SYMBOL ___CTOR_LIST__');
Concat(' SYMBOL __CTOR_LIST__');
Concat(' LONG -1');
{$ifdef x86_64}
Concat(' LONG -1');
{$endif x86_64}
Concat(' OBJSECTION .ctor*');
Concat(' LONG 0');
{$ifdef x86_64}
Concat(' LONG 0');
{$endif x86_64}
Concat(' SYMBOL ___DTOR_LIST__');
Concat(' SYMBOL __DTOR_LIST__');
Concat(' LONG -1');
{$ifdef x86_64}
Concat(' LONG -1');
{$endif x86_64}
Concat(' OBJSECTION .dtor*');
Concat(' LONG 0');
{$ifdef x86_64}
Concat(' LONG 0');
{$endif x86_64}
Concat(' SYMBOL etext');
Concat('ENDEXESECTION');
Concat('EXESECTION .data');
@ -1037,6 +1049,9 @@ implementation
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(' SYMBOL ___crt_xp_end__');
@ -1250,9 +1265,23 @@ implementation
Add(' *(.glue_7)');
Add(' . = ALIGN(8);');
Add(' ___CTOR_LIST__ = .; __CTOR_LIST__ = . ;');
Add(' LONG (-1);*(.ctors); *(.ctor); *(SORT(.ctors.*)); LONG (0);');
Add(' LONG (-1);');
{$ifdef x86_64}
Add(' LONG (-1);');
{$endif x86_64}
Add(' *(.ctors); *(.ctor); *(SORT(.ctors.*)); LONG (0);');
{$ifdef x86_64}
Add(' LONG (0);');
{$endif x86_64}
Add(' ___DTOR_LIST__ = .; __DTOR_LIST__ = . ;');
Add(' LONG (-1); *(.dtors); *(.dtor); *(SORT(.dtors.*)); LONG (0);');
Add(' LONG (-1);');
{$ifdef x86_64}
Add(' LONG (-1);');
{$endif x86_64}
Add(' *(.dtors); *(.dtor); *(SORT(.dtors.*)); LONG (0);');
{$ifdef x86_64}
Add(' LONG (0);');
{$endif x86_64}
Add(' *(.fini)');
Add(' PROVIDE (etext = .);');
Add(' *(.gcc_except_table)');