/compiler/systems/t_embed.pas
https://github.com/slibre/freepascal · Pascal · 939 lines · 800 code · 63 blank · 76 comment · 46 complexity · f307ae7ffcc44cbf7e199f8b14219985 MD5 · raw file
- {
- This unit implements support import,export,link routines
- for the (arm) GameBoy Advance target
- Copyright (c) 2001-2002 by Peter Vreman
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- ****************************************************************************
- }
- unit t_embed;
- {$i fpcdefs.inc}
- interface
- implementation
- uses
- SysUtils,
- cutils,cfileutl,cclasses,
- globtype,globals,systems,verbose,comphook,script,fmodule,i_embed,link,
- cpuinfo;
- type
- TlinkerEmbedded=class(texternallinker)
- private
- Function WriteResponseFile: Boolean;
- public
- constructor Create; override;
- procedure SetDefaultInfo; override;
- function MakeExecutable:boolean; override;
- function postprocessexecutable(const fn : string;isdll:boolean):boolean;
- end;
- {*****************************************************************************
- TlinkerEmbedded
- *****************************************************************************}
- Constructor TlinkerEmbedded.Create;
- begin
- Inherited Create;
- SharedLibFiles.doubles:=true;
- StaticLibFiles.doubles:=true;
- end;
- procedure TlinkerEmbedded.SetDefaultInfo;
- begin
- with Info do
- begin
- ExeCmd[1]:='ld -g $OPT $DYNLINK $STATIC $GCSECTIONS $STRIP -L. -o $EXE -T $RES';
- end;
- end;
- Function TlinkerEmbedded.WriteResponseFile: Boolean;
- Var
- linkres : TLinkRes;
- i : longint;
- HPath : TCmdStrListItem;
- s,s1,s2 : TCmdStr;
- prtobj,
- cprtobj : string[80];
- linklibc : boolean;
- found1,
- found2 : boolean;
- {$ifdef ARM}
- LinkStr : string;
- {$endif}
- begin
- WriteResponseFile:=False;
- linklibc:=(SharedLibFiles.Find('c')<>nil);
- {$if defined(ARM) or defined(i386) or defined(AVR)}
- prtobj:='';
- {$else}
- prtobj:='prt0';
- {$endif}
- cprtobj:='cprt0';
- if linklibc then
- prtobj:=cprtobj;
- { Open link.res file }
- LinkRes:=TLinkRes.Create(outputexedir+Info.ResName,true);
- { Write path to search libraries }
- HPath:=TCmdStrListItem(current_module.locallibrarysearchpath.First);
- while assigned(HPath) do
- begin
- s:=HPath.Str;
- if (cs_link_on_target in current_settings.globalswitches) then
- s:=ScriptFixFileName(s);
- LinkRes.Add('-L'+s);
- HPath:=TCmdStrListItem(HPath.Next);
- end;
- HPath:=TCmdStrListItem(LibrarySearchPath.First);
- while assigned(HPath) do
- begin
- s:=HPath.Str;
- if s<>'' then
- LinkRes.Add('SEARCH_DIR("'+s+'")');
- HPath:=TCmdStrListItem(HPath.Next);
- end;
- LinkRes.Add('INPUT (');
- { add objectfiles, start with prt0 always }
- //s:=FindObjectFile('prt0','',false);
- if prtobj<>'' then
- begin
- s:=FindObjectFile(prtobj,'',false);
- LinkRes.AddFileName(s);
- end;
- { 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;
- while not ObjectFiles.Empty do
- begin
- s:=ObjectFiles.GetFirst;
- if s<>'' then
- begin
- { vlink doesn't use SEARCH_DIR for object files }
- if not(cs_link_on_target in current_settings.globalswitches) then
- s:=FindObjectFile(s,'',false);
- LinkRes.AddFileName((maybequoted(s)));
- end;
- end;
- { Write staticlibraries }
- if not StaticLibFiles.Empty then
- begin
- { vlink doesn't need, and doesn't support GROUP }
- if (cs_link_on_target in current_settings.globalswitches) then
- begin
- LinkRes.Add(')');
- LinkRes.Add('GROUP(');
- end;
- while not StaticLibFiles.Empty do
- begin
- S:=StaticLibFiles.GetFirst;
- LinkRes.AddFileName((maybequoted(s)));
- end;
- end;
- if (cs_link_on_target in current_settings.globalswitches) then
- begin
- LinkRes.Add(')');
- { 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;
- while not SharedLibFiles.Empty do
- begin
- S:=SharedLibFiles.GetFirst;
- if s<>'c' then
- begin
- i:=Pos(target_info.sharedlibext,S);
- if i>0 then
- Delete(S,i,255);
- LinkRes.Add('-l'+s);
- end
- else
- begin
- LinkRes.Add('-l'+s);
- linklibc:=true;
- end;
- end;
- { be sure that libc&libgcc is the last lib }
- if linklibc then
- begin
- LinkRes.Add('-lc');
- LinkRes.Add('-lgcc');
- end;
- end
- else
- begin
- while not SharedLibFiles.Empty do
- begin
- S:=SharedLibFiles.GetFirst;
- LinkRes.Add('lib'+s+target_info.staticlibext);
- end;
- LinkRes.Add(')');
- end;
- { objects which must be at the end }
- if linklibc then
- begin
- found1:=librarysearchpath.FindFile('crtend.o',false,s1);
- found2:=librarysearchpath.FindFile('crtn.o',false,s2);
- if found1 or found2 then
- begin
- LinkRes.Add('INPUT(');
- if found1 then
- LinkRes.AddFileName(s1);
- if found2 then
- LinkRes.AddFileName(s2);
- LinkRes.Add(')');
- end;
- end;
- {$ifdef ARM}
- case current_settings.controllertype of
- ct_none:
- begin
- end;
- ct_lpc2114,
- ct_lpc2124,
- ct_lpc2194,
- ct_lpc1768,
- ct_at91sam7s256,
- ct_at91sam7se256,
- ct_at91sam7x256,
- ct_at91sam7xc256,
- ct_stm32f100x4,
- ct_stm32f100x6,
- ct_stm32f100x8,
- ct_stm32f100xB,
- ct_stm32f100xC,
- ct_stm32f100xD,
- ct_stm32f100xE,
- ct_stm32f101x4,
- ct_stm32f101x6,
- ct_stm32f101x8,
- ct_stm32f101xB,
- ct_stm32f101xC,
- ct_stm32f101xD,
- ct_stm32f101xE,
- ct_stm32f101xF,
- ct_stm32f101xG,
- ct_stm32f102x4,
- ct_stm32f102x6,
- ct_stm32f102x8,
- ct_stm32f102xB,
- ct_stm32f103x4,
- ct_stm32f103x6,
- ct_stm32f103x8,
- ct_stm32f103xB,
- ct_stm32f103xC,
- ct_stm32f103xD,
- ct_stm32f103xE,
- ct_stm32f103xF,
- ct_stm32f103xG,
- ct_stm32f107x8,
- ct_stm32f107xB,
- ct_stm32f107xC,
- { TI - 64 K Flash, 16 K SRAM Devices }
- ct_lm3s1110,
- ct_lm3s1133,
- ct_lm3s1138,
- ct_lm3s1150,
- ct_lm3s1162,
- ct_lm3s1165,
- ct_lm3s1166,
- ct_lm3s2110,
- ct_lm3s2139,
- ct_lm3s6100,
- ct_lm3s6110,
- { TI 128 K Flash, 32 K SRAM devices - Fury Class }
- ct_lm3s1601,
- ct_lm3s1608,
- ct_lm3s1620,
- ct_lm3s1635,
- ct_lm3s1636,
- ct_lm3s1637,
- ct_lm3s1651,
- ct_lm3s2601,
- ct_lm3s2608,
- ct_lm3s2620,
- ct_lm3s2637,
- ct_lm3s2651,
- ct_lm3s6610,
- ct_lm3s6611,
- ct_lm3s6618,
- ct_lm3s6633,
- ct_lm3s6637,
- ct_lm3s8630,
- { TI 256 K Flase, 32 K SRAM devices - Fury Class }
- ct_lm3s1911,
- ct_lm3s1918,
- ct_lm3s1937,
- ct_lm3s1958,
- ct_lm3s1960,
- ct_lm3s1968,
- ct_lm3s1969,
- ct_lm3s2911,
- ct_lm3s2918,
- ct_lm3s2919,
- ct_lm3s2939,
- ct_lm3s2948,
- ct_lm3s2950,
- ct_lm3s2965,
- ct_lm3s6911,
- ct_lm3s6918,
- ct_lm3s6938,
- ct_lm3s6950,
- ct_lm3s6952,
- ct_lm3s6965,
- ct_lm3s8930,
- ct_lm3s8933,
- ct_lm3s8938,
- ct_lm3s8962,
- ct_lm3s8970,
- ct_lm3s8971,
- { TI - Tempest Tempest - 256 K Flash, 64 K SRAM }
- ct_lm3s5951,
- ct_lm3s5956,
- ct_lm3s1b21,
- ct_lm3s2b93,
- ct_lm3s5b91,
- ct_lm3s9b81,
- ct_lm3s9b90,
- ct_lm3s9b92,
- ct_lm3s9b95,
- ct_lm3s9b96,
- ct_sc32442b,
- ct_thumb2bare:
- begin
- with embedded_controllers[current_settings.controllertype] do
- with linkres do
- begin
- Add('ENTRY(_START)');
- Add('MEMORY');
- Add('{');
- if flashsize<>0 then
- begin
- LinkStr := ' flash : ORIGIN = 0x' + IntToHex(flashbase,8)
- + ', LENGTH = 0x' + IntToHex(flashsize,8);
- Add(LinkStr);
- end;
- LinkStr := ' ram : ORIGIN = 0x' + IntToHex(srambase,8)
- + ', LENGTH = 0x' + IntToHex(sramsize,8);
- Add(LinkStr);
- Add('}');
- Add('_stack_top = 0x' + IntToHex(sramsize+srambase,8) + ';');
- end;
- end
- else
- if not (cs_link_nolink in current_settings.globalswitches) then
- internalerror(200902011);
- end;
- with linkres do
- begin
- Add('SECTIONS');
- Add('{');
- Add(' .text :');
- Add(' {');
- Add(' KEEP(*(.init, .init.*))');
- Add(' *(.text, .text.*)');
- Add(' *(.strings)');
- Add(' *(.rodata, .rodata.*)');
- Add(' *(.comment)');
- Add(' _etext = .;');
- if embedded_controllers[current_settings.controllertype].flashsize<>0 then
- begin
- Add(' } >flash');
- end
- else
- begin
- Add(' } >ram');
- end;
- Add(' .data :');
- Add(' {');
- Add(' _data = .;');
- Add(' *(.data, .data.*)');
- Add(' KEEP (*(.fpc .fpc.n_version .fpc.n_links))');
- Add(' _edata = .;');
- if embedded_controllers[current_settings.controllertype].flashsize<>0 then
- begin
- Add(' } >ram AT >flash');
- end
- else
- begin
- Add(' } >ram');
- end;
- Add(' .bss :');
- Add(' {');
- Add(' _bss_start = .;');
- Add(' *(.bss, .bss.*)');
- Add(' *(COMMON)');
- Add(' } >ram');
- Add('. = ALIGN(4);');
- Add('_bss_end = . ;');
- Add('}');
- Add('_end = .;');
- end;
- {$endif ARM}
- {$ifdef i386}
- with linkres do
- begin
- Add('ENTRY(_START)');
- Add('SECTIONS');
- Add('{');
- Add(' . = 0x100000;');
- Add(' .text ALIGN (0x1000) :');
- Add(' {');
- Add(' KEEP(*(.init, .init.*))');
- Add(' *(.text, .text.*)');
- Add(' *(.strings)');
- Add(' *(.rodata, .rodata.*)');
- Add(' *(.comment)');
- Add(' _etext = .;');
- Add(' }');
- Add(' .data ALIGN (0x1000) :');
- Add(' {');
- Add(' _data = .;');
- Add(' *(.data, .data.*)');
- Add(' KEEP (*(.fpc .fpc.n_version .fpc.n_links))');
- Add(' _edata = .;');
- Add(' }');
- Add(' . = ALIGN(4);');
- Add(' .bss :');
- Add(' {');
- Add(' _bss_start = .;');
- Add(' *(.bss, .bss.*)');
- Add(' *(COMMON)');
- Add(' }');
- Add('_bss_end = . ;');
- Add('}');
- Add('_end = .;');
- end;
- {$endif i386}
- {$ifdef AVR}
- with linkres do
- begin
- { linker script from ld 2.19 }
- Add('ENTRY(_START)');
- Add('OUTPUT_FORMAT("elf32-avr","elf32-avr","elf32-avr")');
- Add('OUTPUT_ARCH(avr:2)');
- Add('MEMORY');
- Add('{');
- Add(' text (rx) : ORIGIN = 0, LENGTH = 8K');
- Add(' data (rw!x) : ORIGIN = 0x800060, LENGTH = 0xffa0');
- Add(' eeprom (rw!x) : ORIGIN = 0x810000, LENGTH = 64K');
- Add(' fuse (rw!x) : ORIGIN = 0x820000, LENGTH = 1K');
- Add(' lock (rw!x) : ORIGIN = 0x830000, LENGTH = 1K');
- Add(' signature (rw!x) : ORIGIN = 0x840000, LENGTH = 1K');
- Add('}');
- Add('SECTIONS');
- Add('{');
- Add(' /* Read-only sections, merged into text segment: */');
- Add(' .hash : { *(.hash) }');
- Add(' .dynsym : { *(.dynsym) }');
- Add(' .dynstr : { *(.dynstr) }');
- Add(' .gnu.version : { *(.gnu.version) }');
- Add(' .gnu.version_d : { *(.gnu.version_d) }');
- Add(' .gnu.version_r : { *(.gnu.version_r) }');
- Add(' .rel.init : { *(.rel.init) }');
- Add(' .rela.init : { *(.rela.init) }');
- Add(' .rel.text :');
- Add(' {');
- Add(' *(.rel.text)');
- Add(' *(.rel.text.*)');
- Add(' *(.rel.gnu.linkonce.t*)');
- Add(' }');
- Add(' .rela.text :');
- Add(' {');
- Add(' *(.rela.text)');
- Add(' *(.rela.text.*)');
- Add(' *(.rela.gnu.linkonce.t*)');
- Add(' }');
- Add(' .rel.fini : { *(.rel.fini) }');
- Add(' .rela.fini : { *(.rela.fini) }');
- Add(' .rel.rodata :');
- Add(' {');
- Add(' *(.rel.rodata)');
- Add(' *(.rel.rodata.*)');
- Add(' *(.rel.gnu.linkonce.r*)');
- Add(' }');
- Add(' .rela.rodata :');
- Add(' {');
- Add(' *(.rela.rodata)');
- Add(' *(.rela.rodata.*)');
- Add(' *(.rela.gnu.linkonce.r*)');
- Add(' }');
- Add(' .rel.data :');
- Add(' {');
- Add(' *(.rel.data)');
- Add(' *(.rel.data.*)');
- Add(' *(.rel.gnu.linkonce.d*)');
- Add(' }');
- Add(' .rela.data :');
- Add(' {');
- Add(' *(.rela.data)');
- Add(' *(.rela.data.*)');
- Add(' *(.rela.gnu.linkonce.d*)');
- Add(' }');
- Add(' .rel.ctors : { *(.rel.ctors) }');
- Add(' .rela.ctors : { *(.rela.ctors) }');
- Add(' .rel.dtors : { *(.rel.dtors) }');
- Add(' .rela.dtors : { *(.rela.dtors) }');
- Add(' .rel.got : { *(.rel.got) }');
- Add(' .rela.got : { *(.rela.got) }');
- Add(' .rel.bss : { *(.rel.bss) }');
- Add(' .rela.bss : { *(.rela.bss) }');
- Add(' .rel.plt : { *(.rel.plt) }');
- Add(' .rela.plt : { *(.rela.plt) }');
- Add(' /* Internal text space or external memory. */');
- Add(' .text :');
- Add(' {');
- Add(' *(.vectors)');
- Add(' KEEP(*(.vectors))');
- Add(' /* For data that needs to reside in the lower 64k of progmem. */');
- Add(' *(.progmem.gcc*)');
- Add(' *(.progmem*)');
- Add(' . = ALIGN(2);');
- Add(' __trampolines_start = . ;');
- Add(' /* The jump trampolines for the 16-bit limited relocs will reside here. */');
- Add(' *(.trampolines)');
- Add(' *(.trampolines*)');
- Add(' __trampolines_end = . ;');
- Add(' /* For future tablejump instruction arrays for 3 byte pc devices.');
- Add(' We don''t relax jump/call instructions within these sections. */');
- Add(' *(.jumptables)');
- Add(' *(.jumptables*)');
- Add(' /* For code that needs to reside in the lower 128k progmem. */');
- Add(' *(.lowtext)');
- Add(' *(.lowtext*)');
- Add(' __ctors_start = . ;');
- Add(' *(.ctors)');
- Add(' __ctors_end = . ;');
- Add(' __dtors_start = . ;');
- Add(' *(.dtors)');
- Add(' __dtors_end = . ;');
- Add(' KEEP(SORT(*)(.ctors))');
- Add(' KEEP(SORT(*)(.dtors))');
- Add(' /* From this point on, we don''t bother about wether the insns are');
- Add(' below or above the 16 bits boundary. */');
- Add(' *(.init0) /* Start here after reset. */');
- Add(' KEEP (*(.init0))');
- Add(' *(.init1)');
- Add(' KEEP (*(.init1))');
- Add(' *(.init2) /* Clear __zero_reg__, set up stack pointer. */');
- Add(' KEEP (*(.init2))');
- Add(' *(.init3)');
- Add(' KEEP (*(.init3))');
- Add(' *(.init4) /* Initialize data and BSS. */');
- Add(' KEEP (*(.init4))');
- Add(' *(.init5)');
- Add(' KEEP (*(.init5))');
- Add(' *(.init6) /* C++ constructors. */');
- Add(' KEEP (*(.init6))');
- Add(' *(.init7)');
- Add(' KEEP (*(.init7))');
- Add(' *(.init8)');
- Add(' KEEP (*(.init8))');
- Add(' *(.init9) /* Call main(). */');
- Add(' KEEP (*(.init9))');
- Add(' *(.text)');
- Add(' . = ALIGN(2);');
- Add(' *(.text.*)');
- Add(' . = ALIGN(2);');
- Add(' *(.fini9) /* _exit() starts here. */');
- Add(' KEEP (*(.fini9))');
- Add(' *(.fini8)');
- Add(' KEEP (*(.fini8))');
- Add(' *(.fini7)');
- Add(' KEEP (*(.fini7))');
- Add(' *(.fini6) /* C++ destructors. */');
- Add(' KEEP (*(.fini6))');
- Add(' *(.fini5)');
- Add(' KEEP (*(.fini5))');
- Add(' *(.fini4)');
- Add(' KEEP (*(.fini4))');
- Add(' *(.fini3)');
- Add(' KEEP (*(.fini3))');
- Add(' *(.fini2)');
- Add(' KEEP (*(.fini2))');
- Add(' *(.fini1)');
- Add(' KEEP (*(.fini1))');
- Add(' *(.fini0) /* Infinite loop after program termination. */');
- Add(' KEEP (*(.fini0))');
- Add(' _etext = . ;');
- Add(' } > text');
- Add(' .data : AT (ADDR (.text) + SIZEOF (.text))');
- Add(' {');
- Add(' PROVIDE (__data_start = .) ;');
- Add(' *(.data)');
- Add(' *(.data*)');
- Add(' *(.rodata) /* We need to include .rodata here if gcc is used */');
- Add(' *(.rodata*) /* with -fdata-sections. */');
- Add(' *(.gnu.linkonce.d*)');
- Add(' . = ALIGN(2);');
- Add(' _edata = . ;');
- Add(' PROVIDE (__data_end = .) ;');
- Add(' } > data');
- Add(' .bss : AT (ADDR (.bss))');
- Add(' {');
- Add(' PROVIDE (__bss_start = .) ;');
- Add(' *(.bss)');
- Add(' *(.bss*)');
- Add(' *(COMMON)');
- Add(' PROVIDE (__bss_end = .) ;');
- Add(' } > data');
- Add(' __data_load_start = LOADADDR(.data);');
- Add(' __data_load_end = __data_load_start + SIZEOF(.data);');
- Add(' /* Global data not cleared after reset. */');
- Add(' .noinit :');
- Add(' {');
- Add(' PROVIDE (__noinit_start = .) ;');
- Add(' *(.noinit*)');
- Add(' PROVIDE (__noinit_end = .) ;');
- Add(' _end = . ;');
- Add(' PROVIDE (__heap_start = .) ;');
- Add(' } > data');
- Add(' .eeprom :');
- Add(' {');
- Add(' *(.eeprom*)');
- Add(' __eeprom_end = . ;');
- Add(' } > eeprom');
- Add(' .fuse :');
- Add(' {');
- Add(' KEEP(*(.fuse))');
- Add(' KEEP(*(.lfuse))');
- Add(' KEEP(*(.hfuse))');
- Add(' KEEP(*(.efuse))');
- Add(' } > fuse');
- Add(' .lock :');
- Add(' {');
- Add(' KEEP(*(.lock*))');
- Add(' } > lock');
- Add(' .signature :');
- Add(' {');
- Add(' KEEP(*(.signature*))');
- Add(' } > signature');
- Add(' /* Stabs debugging sections. */');
- Add(' .stab 0 : { *(.stab) }');
- Add(' .stabstr 0 : { *(.stabstr) }');
- Add(' .stab.excl 0 : { *(.stab.excl) }');
- Add(' .stab.exclstr 0 : { *(.stab.exclstr) }');
- Add(' .stab.index 0 : { *(.stab.index) }');
- Add(' .stab.indexstr 0 : { *(.stab.indexstr) }');
- Add(' .comment 0 : { *(.comment) }');
- 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('}');
- { last address of ram on an atmega128 }
- Add('_stack_top = 0x0fff;');
- end;
- {$endif AVR}
- { Write and Close response }
- linkres.writetodisk;
- linkres.free;
- WriteResponseFile:=True;
- end;
- function TlinkerEmbedded.MakeExecutable:boolean;
- var
- binstr,
- cmdstr : TCmdStr;
- success : boolean;
- StaticStr,
- GCSectionsStr,
- DynLinkStr,
- StripStr: string;
- begin
- { for future use }
- StaticStr:='';
- StripStr:='';
- DynLinkStr:='';
- GCSectionsStr:='--gc-sections';
- //if not(cs_link_extern in current_settings.globalswitches) then
- if not(cs_link_nolink in current_settings.globalswitches) then
- Message1(exec_i_linking,current_module.exefilename);
- { Write used files and libraries }
- WriteResponseFile();
- { Call linker }
- SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
- Replace(cmdstr,'$OPT',Info.ExtraOptions);
- if not(cs_link_on_target in current_settings.globalswitches) then
- begin
- Replace(cmdstr,'$EXE',(maybequoted(ScriptFixFileName(ChangeFileExt(current_module.exefilename,'.elf')))));
- Replace(cmdstr,'$RES',(maybequoted(ScriptFixFileName(outputexedir+Info.ResName))));
- Replace(cmdstr,'$STATIC',StaticStr);
- Replace(cmdstr,'$STRIP',StripStr);
- Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
- Replace(cmdstr,'$DYNLINK',DynLinkStr);
- end
- else
- begin
- Replace(cmdstr,'$EXE',maybequoted(ScriptFixFileName(ChangeFileExt(current_module.exefilename,'.elf'))));
- Replace(cmdstr,'$RES',maybequoted(ScriptFixFileName(outputexedir+Info.ResName)));
- Replace(cmdstr,'$STATIC',StaticStr);
- Replace(cmdstr,'$STRIP',StripStr);
- Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
- Replace(cmdstr,'$DYNLINK',DynLinkStr);
- end;
- success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false);
- { Remove ReponseFile }
- if success and not(cs_link_nolink in current_settings.globalswitches) then
- DeleteFile(outputexedir+Info.ResName);
- { Post process }
- if success then
- success:=PostProcessExecutable(current_module.exefilename+'.elf',false);
- if success and (target_info.system in [system_arm_embedded,system_avr_embedded]) then
- begin
- success:=DoExec(FindUtil(utilsprefix+'objcopy'),'-O ihex '+
- ChangeFileExt(current_module.exefilename,'.elf')+' '+
- ChangeFileExt(current_module.exefilename,'.hex'),true,false);
- end;
- MakeExecutable:=success; { otherwise a recursive call to link method }
- end;
- function TLinkerEmbedded.postprocessexecutable(const fn : string;isdll:boolean):boolean;
- type
- TElf32header=packed record
- magic0123 : longint;
- file_class : byte;
- data_encoding : byte;
- file_version : byte;
- padding : array[$07..$0f] of byte;
- e_type : word;
- e_machine : word;
- e_version : longint;
- e_entry : longint; { entrypoint }
- e_phoff : longint; { program header offset }
- e_shoff : longint; { sections header offset }
- e_flags : longint;
- e_ehsize : word; { elf header size in bytes }
- e_phentsize : word; { size of an entry in the program header array }
- e_phnum : word; { 0..e_phnum-1 of entrys }
- e_shentsize : word; { size of an entry in sections header array }
- e_shnum : word; { 0..e_shnum-1 of entrys }
- e_shstrndx : word; { index of string section header }
- end;
- TElf32sechdr=packed record
- sh_name : longint;
- sh_type : longint;
- sh_flags : longint;
- sh_addr : longint;
- sh_offset : longint;
- sh_size : longint;
- sh_link : longint;
- sh_info : longint;
- sh_addralign : longint;
- sh_entsize : longint;
- end;
- function MayBeSwapHeader(h : telf32header) : telf32header;
- begin
- result:=h;
- if source_info.endian<>target_info.endian then
- with h do
- begin
- result.e_type:=swapendian(e_type);
- result.e_machine:=swapendian(e_machine);
- result.e_version:=swapendian(e_version);
- result.e_entry:=swapendian(e_entry);
- result.e_phoff:=swapendian(e_phoff);
- result.e_shoff:=swapendian(e_shoff);
- result.e_flags:=swapendian(e_flags);
- result.e_ehsize:=swapendian(e_ehsize);
- result.e_phentsize:=swapendian(e_phentsize);
- result.e_phnum:=swapendian(e_phnum);
- result.e_shentsize:=swapendian(e_shentsize);
- result.e_shnum:=swapendian(e_shnum);
- result.e_shstrndx:=swapendian(e_shstrndx);
- end;
- end;
- function MaybeSwapSecHeader(h : telf32sechdr) : telf32sechdr;
- begin
- result:=h;
- if source_info.endian<>target_info.endian then
- with h do
- begin
- result.sh_name:=swapendian(sh_name);
- result.sh_type:=swapendian(sh_type);
- result.sh_flags:=swapendian(sh_flags);
- result.sh_addr:=swapendian(sh_addr);
- result.sh_offset:=swapendian(sh_offset);
- result.sh_size:=swapendian(sh_size);
- result.sh_link:=swapendian(sh_link);
- result.sh_info:=swapendian(sh_info);
- result.sh_addralign:=swapendian(sh_addralign);
- result.sh_entsize:=swapendian(sh_entsize);
- end;
- end;
- var
- f : file;
- function ReadSectionName(pos : longint) : String;
- var
- oldpos : longint;
- c : char;
- begin
- oldpos:=filepos(f);
- seek(f,pos);
- Result:='';
- while true do
- begin
- blockread(f,c,1);
- if c=#0 then
- break;
- Result:=Result+c;
- end;
- seek(f,oldpos);
- end;
- var
- elfheader : TElf32header;
- secheader : TElf32sechdr;
- i : longint;
- stringoffset : longint;
- secname : string;
- begin
- postprocessexecutable:=false;
- { open file }
- assign(f,fn);
- {$push}{$I-}
- reset(f,1);
- if ioresult<>0 then
- Message1(execinfo_f_cant_open_executable,fn);
- { read header }
- blockread(f,elfheader,sizeof(tElf32header));
- elfheader:=MayBeSwapHeader(elfheader);
- seek(f,elfheader.e_shoff);
- { read string section header }
- seek(f,elfheader.e_shoff+sizeof(TElf32sechdr)*elfheader.e_shstrndx);
- blockread(f,secheader,sizeof(secheader));
- secheader:=MaybeSwapSecHeader(secheader);
- stringoffset:=secheader.sh_offset;
- seek(f,elfheader.e_shoff);
- status.datasize:=0;
- for i:=0 to elfheader.e_shnum-1 do
- begin
- blockread(f,secheader,sizeof(secheader));
- secheader:=MaybeSwapSecHeader(secheader);
- secname:=ReadSectionName(stringoffset+secheader.sh_name);
- if secname='.text' then
- begin
- Message1(execinfo_x_codesize,tostr(secheader.sh_size));
- status.codesize:=secheader.sh_size;
- end
- else if secname='.data' then
- begin
- Message1(execinfo_x_initdatasize,tostr(secheader.sh_size));
- inc(status.datasize,secheader.sh_size);
- end
- else if secname='.bss' then
- begin
- Message1(execinfo_x_uninitdatasize,tostr(secheader.sh_size));
- inc(status.datasize,secheader.sh_size);
- end;
- end;
- close(f);
- {$pop}
- if ioresult<>0 then
- ;
- postprocessexecutable:=true;
- end;
- {*****************************************************************************
- Initialize
- *****************************************************************************}
- initialization
- {$ifdef arm}
- RegisterExternalLinker(system_arm_embedded_info,TlinkerEmbedded);
- RegisterTarget(system_arm_embedded_info);
- {$endif arm}
- {$ifdef avr}
- RegisterExternalLinker(system_avr_embedded_info,TlinkerEmbedded);
- RegisterTarget(system_avr_embedded_info);
- {$endif avr}
- {$ifdef i386}
- RegisterExternalLinker(system_i386_embedded_info,TlinkerEmbedded);
- RegisterTarget(system_i386_embedded_info);
- {$endif i386}
- end.