paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-02 03:01:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* powerpc-amiga linker invocation fixes, and added a linker script required for VLink, courtesy of Frank Wille

Browse Source 
git-svn-id: trunk@33506 -
This commit is contained in:
Károly Balogh 2016-04-14 21:12:15 +00:00
parent 9cb4091c42
commit ea8322ee80
1 changed files with 107 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

109
compiler/systems/t_amiga.pas
View File

@ -92,11 +92,11 @@ begin
begin
if not UseVLink then
begin
ExeCmd[1]:='ld $DYNLINK $OPT -defsym=__amigaos4__=1 -d -q -n -o $EXE $RES';
ExeCmd[1]:='ld $DYNLINK $OPT -defsym=__amigaos4__=1 -d -q -N -o $STRIP $EXE $RES';
end
else
begin
ExeCmd[1]:='vlink -b elf32amigaos $OPT $STRIP -o $EXE -T $RES';
ExeCmd[1]:='vlink -q -n -b elf32amigaos -P_start -P__amigaos4__ -nostdlib $OPT $STRIP -o $EXE -T $RES';
end;
end;
end;
@ -214,6 +214,111 @@ begin
LinkRes.Add(')');
end;
if (target_info.system = system_powerpc_amiga) and UseVLink then
begin
with linkres do
begin
{ AmigaOS4-specific linker script from VBCC for VLink, with modifications,
courtesy of Frank Wille, used with his permission }
Add('SECTIONS');
Add('{');
Add(' . = 0x01000000 + SIZEOF_HEADERS;');
Add(' /* Read-only sections, merged into text segment: */');
Add(' .interp : { *(.interp) }');
Add(' .hash : { *(.hash) }');
Add(' .dynsym : { *(.dynsym) }');
Add(' .dynstr : { *(.dynstr) }');
Add(' .fpc : { *(.fpc) }');
Add(' .gnu.version : { *(.gnu.version) }');
Add(' .gnu.version_d : { *(.gnu.version_d) }');
Add(' .gnu.version_r : { *(.gnu.version_r) }');
Add(' .rela.dyn : { *(.rela.dyn) }');
Add(' .rela.plt : { *(.rela.plt) }');
Add(' .init : { *(.init) }');
Add(' .text : { *(.text .gnu.linkonce.t.*) }');
Add(' .fini : { *(.fini) }');
Add(' .code68k : { *(CODE text code) }');
Add('');
Add(' .rodata : { *(.rodata .rodata.* .gnu.linkonce.r.*) }');
Add(' .sdata2 : { *(.sdata2 .sdata2.* .gnu.linkonce.s2.*) }');
Add(' .sbss2 : { *(.sbss2 .sbss2.* .gnu.linkonce.sb2.*) }');
Add('');
Add(' /* data segment: */');
Add(' . = ALIGN(16) + 0x10000;');
Add('');
Add(' .dynamic : { *(.dynamic) }');
Add(' .data : {');
Add(' PROVIDE(_DATA_BASE_ = .);');
Add(' *(.data .data.* .gnu.linkonce.d.*)');
Add(' VBCC_CONSTRUCTORS_ELF');
Add(' }');
Add(' .ctors : { *(.ctors .ctors.*) }');
Add(' .dtors : { *(.dtors .dtors.*) }');
Add(' .data68k : { *(DATA data) }');
Add(' .got : { *(.got.plt) *(.got) }');
Add(' .sdata : {');
Add(' PROVIDE(_SDATA_BASE_ = .);');
Add(' _LinkerDB = . + 0x8000;');
Add(' _SDA_BASE_ = . + 0x8000;');
Add(' *(.sdata .sdata.* .tocd .gnu.linkonce.s.*)');
Add(' }');
Add(' .sdata68k : { *(__MERGED) }');
Add('');
Add(' /*');
Add(' PROVIDE(_edata = .);');
Add(' PROVIDE(edata = .);');
Add(' PROVIDE(__bss_start = .);');
Add(' */');
Add('');
Add(' .sbss : {');
Add(' PROVIDE(__sbss_start = .);');
Add(' PROVIDE(___sbss_start = .);');
Add(' *(.sbss .sbss.* .gnu.linkonce.sb.*)');
Add(' *(.scommon)');
Add(' PROVIDE(__sbss_end = .);');
Add(' PROVIDE(___sbss_end = .);');
Add(' }');
Add(' .plt : { *(.plt) }');
Add(' .bss : {');
Add(' *(.bss .bss.* .gnu.linkonce.b.*)');
Add(' *(COMMON)');
Add(' }');
Add(' .bss68k : { *(BSS bss) }');
Add('');
Add(' . = ALIGN(16);');
Add(' PROVIDE(_end = .);');
Add(' PROVIDE(end = .);');
Add('');
Add(' .comment 0 : { *(.comment) }');
Add('');
Add(' __amigaos4__ = 1;');
Add('');
Add(' /* DWARF debug sections.');
Add(' Symbols in the DWARF debugging sections are relative to the beginning');
Add(' of the section so we begin them at 0. */');
Add(' /* DWARF 1 */');
Add(' .debug 0 : { *(.debug) }');
Add(' .line 0 : { *(.line) }');
Add(' /* GNU DWARF 1 extensions */');
Add(' .debug_srcinfo 0 : { *(.debug_srcinfo) }');
Add(' .debug_sfnames 0 : { *(.debug_sfnames) }');
Add(' /* DWARF 1.1 and DWARF 2 */');
Add(' .debug_aranges 0 : { *(.debug_aranges) }');
Add(' .debug_pubnames 0 : { *(.debug_pubnames) }');
Add(' /* DWARF 2 */');
Add(' .debug_info 0 : { *(.debug_info .gnu.linkonce.wi.*) }');
Add(' .debug_abbrev 0 : { *(.debug_abbrev) }');
Add(' .debug_line 0 : { *(.debug_line) }');
Add(' .debug_frame 0 : { *(.debug_frame) }');
Add(' .debug_str 0 : { *(.debug_str) }');
Add(' .debug_loc 0 : { *(.debug_loc) }');
Add(' .debug_macinfo 0 : { *(.debug_macinfo) }');
Add(' /* DWARF 2.1 */');
Add(' .debug_ranges 0 : { *(.debug_ranges) }');
Add('}');
end;
end;
{ Write and Close response }
linkres.writetodisk;
linkres.free;