paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 15:29:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changes in linker script and gcc handling

Browse Source 
git-svn-id: trunk@6556 -
This commit is contained in:
Legolas 2007-02-18 23:07:59 +00:00
parent ef45e75993
commit aad1de9055
2 changed files with 250 additions and 236 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

129
compiler/systems/t_gba.pas
View File

@ -75,15 +75,17 @@ Var
s,s1,s2 : TCmdStr;
prtobj,
cprtobj : string[80];
linklibc : boolean;
linklibc,
linklibgcc : boolean;
found1,
found2 : boolean;
begin
WriteResponseFile:=False;
linklibc:=(SharedLibFiles.Find('c')<>nil);
linklibgcc:=(SharedLibFiles.Find('gcc')<>nil);
prtobj:='prt0';
cprtobj:='cprt0';
if linklibc then
if (linklibc or linklibgcc) then
prtobj:=cprtobj;
{ Open link.res file }
@ -117,11 +119,15 @@ begin
{ try to add crti and crtbegin if linking to C }
if linklibc then
begin
if librarysearchpath.FindFile('crtbegin.o',false,s) then
LinkRes.AddFileName(s);
if librarysearchpath.FindFile('crti.o',false,s) then
LinkRes.AddFileName(s);
end;
if linklibgcc then
begin
if librarysearchpath.FindFile('crtbegin.o',false,s) then
LinkRes.AddFileName(s);
end;
while not ObjectFiles.Empty do
begin
@ -158,6 +164,7 @@ begin
{ Write sharedlibraries like -l<lib>, also add the needed dynamic linker
here to be sure that it gets linked this is needed for glibc2 systems (PFV) }
linklibc:=false;
linklibgcc:=false;
while not SharedLibFiles.Empty do
begin
S:=SharedLibFiles.GetFirst;
@ -172,14 +179,19 @@ begin
begin
LinkRes.Add('-l'+s);
linklibc:=true;
linklibgcc:=true;
end;
end;
{ be sure that libc&libgcc is the last lib }
if linklibgcc then
begin
LinkRes.Add('-lgcc');
end;
if linklibc then
begin
LinkRes.Add('-lc');
LinkRes.Add('-lgcc');
end;
end
else
begin
@ -192,15 +204,23 @@ begin
end;
{ objects which must be at the end }
if linklibc then
if linklibgcc then
begin
found1:=librarysearchpath.FindFile('crtend.o',false,s1);
found2:=librarysearchpath.FindFile('crtn.o',false,s2);
if found1 or found2 then
if found1 then
begin
LinkRes.Add('INPUT(');
if found1 then
LinkRes.AddFileName(s1);
LinkRes.Add(')');
end;
end;
if linklibc then
begin
found2:=librarysearchpath.FindFile('crtn.o',false,s2);
if found2 then
begin
LinkRes.Add('INPUT(');
if found2 then
LinkRes.AddFileName(s2);
LinkRes.Add(')');
@ -267,24 +287,13 @@ begin
add(' ewram : ORIGIN = 0x02000000, LENGTH = 256K');
add('}');
add('');
add('/*');
add('__text_start = 0x8000000;');
add('__eheap_end = 0x2040000;');
add('__iwram_start = 0x3000000;');
add('__iwram_end = 0x3008000;');
add('');
add('__sp_irq = __iwram_end - 0x100;');
add('__sp_usr = __sp_irq - 0x100;');
add('*/');
add('__text_start = ORIGIN(rom);');
add('/* __eheap_end = ORIGIN(ewram) + 0x40000; */');
add('__eheap_end = ORIGIN(ewram) + LENGTH(ewram);');
add('__iwram_start = ORIGIN(iwram);');
add('/* __iwram_end = ORIGIN(iwram) + 0x8000; */');
add('__iwram_end = ORIGIN(iwram) + LENGTH(iwram); ');
add('__sp_irq = __iwram_end - 0x100;');
add('__iwram_top = ORIGIN(iwram) + LENGTH(iwram);;');
add('__sp_irq = __iwram_top - 0x100;');
add('__sp_usr = __sp_irq - 0x100;');
add('');
add('__irq_flags = 0x03007ff8;');
add('');
add('SECTIONS');
add('{');
@ -331,6 +340,10 @@ begin
add(' SORT(CONSTRUCTORS)');
add(' . = ALIGN(4); /* REQUIRED. LD is flaky without it. */');
add(' } >rom = 0xff');
add(' .ARM.extab : { *(.ARM.extab* .gnu.linkonce.armextab.*) } >rom');
add(' __exidx_start = .;');
add(' .ARM.exidx : { *(.ARM.exidx* .gnu.linkonce.armexidx.*) } >rom');
add(' __exidx_end = .;');
add('');
add(' .ctors :');
add(' {');
@ -356,7 +369,6 @@ begin
add(' . = ALIGN(4); /* REQUIRED. LD is flaky without it. */');
add(' } >rom = 0');
add('');
add('.jcr : { KEEP (*(.jcr)) } >rom ');
add('');
add(' .eh_frame :');
add(' {');
@ -378,10 +390,10 @@ begin
add(' *(.iwram)');
add(' *iwram.*(.text)');
add(' . = ALIGN(4); /* REQUIRED. LD is flaky without it. */');
add(' __iwram_end = ABSOLUTE(.) ;');
add(' } >iwram = 0xff');
add('');
add(' __data_lma = __iwram_lma + SIZEOF(.iwram) ;');
add('__iwram_end = . ;');
add('');
add(' .bss ALIGN(4) :');
add(' {');
@ -392,10 +404,11 @@ begin
add(' *(.bss*)');
add(' *(COMMON)');
add(' . = ALIGN(4); /* REQUIRED. LD is flaky without it. */');
add(' __bss_end = ABSOLUTE(.) ;');
add('');
add(' } >iwram');
add('');
add('__bss_end = . ;');
add('__bss_end__ = . ;');
add(' __bss_end__ = __bss_end ;');
add('');
add(' .data ALIGN(4) : AT (__data_lma)');
add(' {');
@ -408,9 +421,30 @@ begin
add(' . = ALIGN(4);');
add(' } >iwram = 0xff');
add('');
add('__iwram_overlay_lma = __data_lma + SIZEOF(.data);');
add(' __preinit_lma = __data_lma + SIZEOF(.data);');
add('');
add(' PROVIDE (__preinit_array_start = .);');
add(' .preinit_array : AT (__preinit_lma) { KEEP (*(.preinit_array)) } >iwram');
add(' PROVIDE (__preinit_array_end = .);');
add('');
add(' __init_lma = __preinit_lma + SIZEOF(.preinit_array);');
add('');
add(' PROVIDE (__init_array_start = .);');
add(' .init_array : AT (__init_lma) { KEEP (*(.init_array)) } >iwram');
add(' PROVIDE (__init_array_end = .);');
add(' PROVIDE (__fini_array_start = .);');
add('');
add(' __fini_lma = __init_lma + SIZEOF(.init_array);');
add('');
add(' .fini_array : AT (__fini_lma) { KEEP (*(.fini_array)) } >iwram');
add(' PROVIDE (__fini_array_end = .);');
add('');
add(' __jcr_lma = __fini_lma + SIZEOF(.fini_array);');
add(' .jcr : AT (__jcr_lma) { KEEP (*(.jcr)) } >iwram');
add('');
add(' __data_end = ABSOLUTE(.);');
add(' __iwram_overlay_lma = __jcr_lma + SIZEOF(.jcr);');
add('');
add('__data_end = .;');
add(' __iwram_overlay_start = . ;');
add('');
add(' OVERLAY ALIGN(4) : NOCROSSREFS AT (__iwram_overlay_lma)');
@ -427,47 +461,33 @@ begin
add(' .iwram9 { *(.iwram9) . = ALIGN(4);}');
add(' }>iwram = 0xff');
add('');
add('__ewram_lma = LOADADDR(.iwram0) + SIZEOF(.iwram0)+SIZEOF(.iwram1)+SIZEOF(.iwram2)+SIZEOF(.iwram3)+SIZEOF(.iwram4)+SIZEOF(.iwram5)+SIZEOF(.iwram6)+SIZEOF(.iwram7)+SIZEOF(.iwram8)+SIZEOF(.iwram9);');
add(' __ewram_lma = __load_stop_iwram9;');
add('');
add(' __iwram_overlay_end = . ;');
add(' __iheap_start = . ;');
add('');
add('__ewram_start = 0x2000000;');
add(' __ewram_start = ORIGIN(ewram);');
add(' .ewram __ewram_start : AT (__ewram_lma)');
add(' {');
add(' *(.ewram)');
add(' . = ALIGN(4); /* REQUIRED. LD is flaky without it. */');
add(' }>ewram = 0xff');
add('');
add('__ewram_overlay_lma = __ewram_lma + SIZEOF(.ewram);');
add(' __pad_lma = __ewram_lma + SIZEOF(.ewram);');
add('');
add(' .sbss ALIGN(4):');
add(' {');
add(' __sbss_start = ABSOLUTE(.);');
add(' *(.sbss)');
add(' . = ALIGN(4);');
add(' __sbss_end = ABSOLUTE(.);');
add(' } >ewram');
add('');
add('__sbss_end = .;');
add('');
add('__ewram_end = . ;');
add('__ewram_overlay_start = . ;');
add('');
add('OVERLAY ALIGN(4): NOCROSSREFS AT (__ewram_overlay_lma)');
add('{');
add('.ewram0 { *(.ewram0) . = ALIGN(4);}');
add('.ewram1 { *(.ewram1) . = ALIGN(4);}');
add('.ewram2 { *(.ewram2) . = ALIGN(4);}');
add('.ewram3 { *(.ewram3) . = ALIGN(4);}');
add('.ewram4 { *(.ewram4) . = ALIGN(4);}');
add('.ewram5 { *(.ewram5) . = ALIGN(4);}');
add('.ewram6 { *(.ewram6) . = ALIGN(4);}');
add('.ewram7 { *(.ewram7) . = ALIGN(4);}');
add('.ewram8 { *(.ewram8) . = ALIGN(4);}');
add('.ewram9 { *(.ewram9) . = ALIGN(4);}');
add('}>ewram = 0xff');
add('');
add('__pad_lma = LOADADDR(.ewram0) + SIZEOF(.ewram0)+SIZEOF(.ewram1)+SIZEOF(.ewram2)+SIZEOF(.ewram3)+SIZEOF(.ewram4)+SIZEOF(.ewram5)+SIZEOF(.ewram6)+SIZEOF(.ewram7)+SIZEOF(.ewram8)+SIZEOF(.ewram9);');
add(' __ewram_end = __sbss_end ;');
add(' __eheap_start = __sbss_end;');
add(' __end__ = __sbss_end;');
add(' end = __sbss_end;');
add('');
add(' /* EZF Advance strips trailing 0xff bytes, add a pad section so nothing important is removed */');
add(' .pad ALIGN(4) : AT (__pad_lma)');
@ -477,12 +497,6 @@ begin
add(' . = ALIGN(4); /* REQUIRED. LD is flaky without it. */');
add(' } = 0xff');
add('');
add('__ewram_overlay_end = . ;');
add('__eheap_start = . ;');
add('');
add('_end = .;');
add('__end__ = _end ; /* v1.3 */');
add('PROVIDE (end = _end); /* v1.3 */');
add('');
add(' /* Stabs debugging sections. */');
add(' .stab 0 : { *(.stab) }');
@ -519,6 +533,9 @@ begin
add(' .debug_varnames 0 : { *(.debug_varnames) }');
add(' .stack 0x80000 : { _stack = .; *(.stack) }');
add(' /* These must appear regardless of . */');
add(' .note.gnu.arm.ident 0 : { KEEP (*(.note.gnu.arm.ident)) }');
add(' .ARM.attributes 0 : { KEEP (*(.ARM.attributes)) }');
add(' /DISCARD/ : { *(.note.GNU-stack) }');
add('}');
end;

7
compiler/systems/t_nds.pas
View File

@ -367,7 +367,7 @@ begin
add(' . = ALIGN(4); /* REQUIRED. LD is flaky without it. */');
add(' } >ewram = 0xff');
add(' .jcr : { KEEP (*(.jcr)) } >ewram = 0');
add(' .got : { *(.got.plt) *(.got) } >ewram = 0');
add(' .got : { *(.got.plt) *(.got) *(.rel.got) } >ewram = 0');
add('');
add(' .ewram ALIGN(4) : ');
add(' {');
@ -491,12 +491,9 @@ begin
add('MEMORY {');
add('');
add(' rom : ORIGIN = 0x08000000, LENGTH = 32M');
add(' iwram : ORIGIN = 0x03800000, LENGTH = 64K');
add(' ewram : ORIGIN = 0x02040000, LENGTH = 4M');
add(' iwram : ORIGIN = 0x037f8000, LENGTH = 96K');
add('}');
add('');
add('__ewram_start = ORIGIN(ewram);');
add('__eheap_end = ORIGIN(ewram)+ LENGTH(ewram);');
add('__iwram_start = ORIGIN(iwram);');
add('__iwram_top = ORIGIN(iwram)+ LENGTH(iwram);');
add('__sp_irq = __iwram_top - 0x60;');