/compiler/systems/t_linux.pas
Pascal | 1558 lines | 1213 code | 108 blank | 237 comment | 99 complexity | 209a610774a1879467cb57f0d7d4b535 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
- {
- Copyright (c) 1998-2008 by Peter Vreman
- This unit implements support import,export,link routines
- for the (i386) Linux target
- 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_linux;
- {$i fpcdefs.inc}
- interface
- uses
- aasmdata,
- symsym,symdef,ppu,
- import,export,expunix,link;
- type
- timportliblinux=class(timportlib)
- procedure generatelib;override;
- end;
- texportliblinux=class(texportlibunix)
- procedure setfininame(list: TAsmList; const s: string); override;
- end;
- TLibcType=(libc5,glibc2,glibc21,uclibc);
- tlinkerlinux=class(texternallinker)
- private
- libctype: TLibcType;
- prtobj : string[80];
- reorder : boolean;
- linklibc: boolean;
- Function WriteResponseFile(isdll:boolean) : Boolean;
- public
- constructor Create;override;
- procedure SetDefaultInfo;override;
- procedure InitSysInitUnitName;override;
- function MakeExecutable:boolean;override;
- function MakeSharedLibrary:boolean;override;
- procedure LoadPredefinedLibraryOrder; override;
- end;
- TInternalLinkerLinux=class(TInternalLinker)
- private
- libctype: TLibcType;
- reorder: boolean;
- linklibc: boolean;
- prtobj: string[20];
- dynlinker: string[100];
- public
- constructor Create;override;
- procedure DefaultLinkScript;override;
- procedure InitSysInitUnitName;override;
- end;
- implementation
- uses
- SysUtils,
- cutils,cfileutl,cclasses,
- verbose,systems,globtype,globals,
- symconst,script,
- fmodule,
- aasmbase,aasmtai,aasmcpu,cpubase,
- cgbase,cgobj,cgutils,ogbase,ncgutil,
- comprsrc,
- ogelf,
- rescmn, i_linux
- ;
- {*****************************************************************************
- TIMPORTLIBLINUX
- *****************************************************************************}
- procedure timportliblinux.generatelib;
- var
- i : longint;
- ImportLibrary : TImportLibrary;
- begin
- for i:=0 to current_module.ImportLibraryList.Count-1 do
- begin
- ImportLibrary:=TImportLibrary(current_module.ImportLibraryList[i]);
- current_module.linkothersharedlibs.add(ImportLibrary.Name,link_always);
- end;
- end;
- {*****************************************************************************
- TEXPORTLIBLINUX
- *****************************************************************************}
- procedure texportliblinux.setfininame(list: TAsmList; const s: string);
- begin
- { the problem with not having a .fini section is that a finalization
- routine in regular code can get "smart" linked away -> reference it
- just like the debug info }
- new_section(list,sec_fpc,'links',0);
- list.concat(Tai_const.Createname(s,0));
- inherited setfininame(list,s);
- end;
- {*****************************************************************************
- TLINKERLINUX
- *****************************************************************************}
- procedure SetupLibrarySearchPath;
- begin
- if not Dontlinkstdlibpath Then
- {$ifdef x86_64}
- LibrarySearchPath.AddPath(sysrootpath,'/lib64;/usr/lib64;/usr/X11R6/lib64',true);
- {$else}
- {$ifdef powerpc64}
- LibrarySearchPath.AddPath(sysrootpath,'/lib64;/usr/lib64;/usr/X11R6/lib64',true);
- {$else powerpc64}
- LibrarySearchPath.AddPath(sysrootpath,'/lib;/usr/lib;/usr/X11R6/lib',true);
- {$endif powerpc64}
- {$endif x86_64}
- {$ifdef arm}
- { some newver Debian have the crt*.o files at uncommon locations,
- for other arm flavours, this cannot hurt }
- if not Dontlinkstdlibpath Then
- {$ifdef FPC_ARMHF}
- LibrarySearchPath.AddPath(sysrootpath,'/usr/lib/arm-linux-gnueabihf',true);
- {$endif FPC_ARMHF}
- {$ifdef FPC_ARMEL}
- LibrarySearchPath.AddPath(sysrootpath,'/usr/lib/arm-linux-gnueabi',true);
- {$endif}
- {$endif arm}
- end;
- {$ifdef m68k}
- { experimental, is this correct? }
- const defdynlinker='/lib/ld-linux.so.2';
- {$endif m68k}
- {$ifdef i386}
- const defdynlinker='/lib/ld-linux.so.2';
- {$endif}
- {$ifdef x86_64}
- const defdynlinker='/lib64/ld-linux-x86-64.so.2';
- {$endif x86_64}
- {$ifdef sparc}
- const defdynlinker='/lib/ld-linux.so.2';
- {$endif sparc}
- {$ifdef powerpc}
- const defdynlinker='/lib/ld.so.1';
- {$endif powerpc}
- {$ifdef powerpc64}
- const defdynlinker='/lib64/ld64.so.1';
- {$endif powerpc64}
- {$ifdef arm}
- {$ifdef FPC_ARMHF}
- const defdynlinker='/lib/ld-linux-armhf.so.3';
- {$else FPC_ARMHF}
- {$ifdef FPC_ARMEL}
- const defdynlinker='/lib/ld-linux.so.3';
- {$else FPC_ARMEL}
- const defdynlinker='/lib/ld-linux.so.2';
- {$endif FPC_ARMEL}
- {$endif FPC_ARMHF}
- {$endif arm}
- {$ifdef mips}
- const defdynlinker='/lib/ld.so.1';
- {$endif mips}
- procedure SetupDynlinker(out DynamicLinker:string;out libctype:TLibcType);
- begin
- {
- Search order:
- glibc 2.1+
- uclibc
- glibc 2.0
- If none is found (e.g. when cross compiling) glibc21 is assumed
- }
- if fileexists(sysrootpath+defdynlinker,false) then
- begin
- DynamicLinker:=defdynlinker;
- {$ifdef i386}
- libctype:=glibc21;
- {$else i386}
- libctype:=glibc2;
- {$endif i386}
- end
- else if fileexists(sysrootpath+'/lib/ld-uClibc.so.0',false) then
- begin
- DynamicLinker:='/lib/ld-uClibc.so.0';
- libctype:=uclibc;
- end
- {$ifdef i386}
- else if FileExists(sysrootpath+'/lib/ld-linux.so.1',false) then
- begin
- DynamicLinker:='/lib/ld-linux.so.1';
- libctype:=glibc2;
- end
- {$endif i386}
- else
- begin
- { when no dyn. linker is found, we are probably
- cross compiling, so use the default dyn. linker }
- DynamicLinker:=defdynlinker;
- {
- the default c startup script is gcrt0.as on all platforms
- except i386
- }
- {$ifdef i386}
- libctype:=glibc21;
- {$else i386}
- libctype:=glibc2;
- {$endif i386}
- end;
- end;
- function ModulesLinkToLibc:boolean;
- var
- hp: tmodule;
- begin
- { This is called very early, ImportLibraryList is not yet merged into linkothersharedlibs.
- The former contains library names qualified with prefix and suffix (coming from
- "external 'c' name 'foo' declarations), the latter contains raw names (from "$linklib c"
- directives). }
- hp:=tmodule(loaded_units.first);
- while assigned(hp) do
- begin
- result:=Assigned(hp.ImportLibraryList.find(target_info.sharedClibprefix+'c'+target_info.sharedClibext));
- if result then break;
- result:=hp.linkothersharedlibs.find(target_info.sharedClibprefix+'c'+target_info.sharedClibext);
- if result then break;
- result:=hp.linkothersharedlibs.find('c');
- if result then break;
- hp:=tmodule(hp.next);
- end;
- end;
- Constructor TLinkerLinux.Create;
- begin
- Inherited Create;
- SetupLibrarySearchPath;
- end;
- procedure TLinkerLinux.SetDefaultInfo;
- {
- This will also detect which libc version will be used
- }
- const
- {$ifdef i386} platform_select='-b elf32-i386 -m elf_i386';{$endif}
- {$ifdef x86_64} platform_select='-b elf64-x86-64 -m elf_x86_64';{$endif}
- {$ifdef powerpc} platform_select='-b elf32-powerpc -m elf32ppclinux';{$endif}
- {$ifdef POWERPC64} platform_select='-b elf64-powerpc -m elf64ppc';{$endif}
- {$ifdef sparc} platform_select='-b elf32-sparc -m elf32_sparc';{$endif}
- {$ifdef arm} platform_select='';{$endif} {unknown :( }
- {$ifdef m68k} platform_select='';{$endif} {unknown :( }
- {$ifdef mips}
- {$ifdef mipsel}
- platform_select='-EL';
- {$else}
- platform_select='-EB';
- {$endif}
- {$endif}
- begin
- with Info do
- begin
- ExeCmd[1]:='ld '+platform_select+' $OPT $DYNLINK $STATIC $GCSECTIONS $STRIP -L. -o $EXE';
- { when we want to cross-link we need to override default library paths }
- if length(sysrootpath) > 0 then
- ExeCmd[1]:=ExeCmd[1]+' -T';
- ExeCmd[1]:=ExeCmd[1]+' $RES';
- DllCmd[1]:='ld '+platform_select+' $OPT $INIT $FINI $SONAME -shared -L. -o $EXE $RES';
- DllCmd[2]:='strip --strip-unneeded $EXE';
- ExtDbgCmd[1]:='objcopy --only-keep-debug $EXE $DBG';
- ExtDbgCmd[2]:='objcopy --add-gnu-debuglink=$DBG $EXE';
- ExtDbgCmd[3]:='strip --strip-unneeded $EXE';
- SetupDynlinker(DynamicLinker,libctype);
- end;
- end;
- procedure TLinkerLinux.LoadPredefinedLibraryOrder;
- // put your linkorder/linkalias overrides here.
- // Note: assumes only called when reordering/aliasing is used.
- Begin
- if not (cs_link_no_default_lib_order in current_settings.globalswitches) Then
- Begin
- LinkLibraryOrder.add('gcc','',15);
- LinkLibraryOrder.add('c','',100);
- LinkLibraryOrder.add('gmon','',120);
- LinkLibraryOrder.add('dl','',140);
- LinkLibraryOrder.add('pthread','',160);
- end;
- End;
- type
- tlibcnames=array [TLibcType] of string[8];
- const { libc5 glibc2 glibc21 uclibc }
- cprtnames: tlibcnames = ('cprt0', 'cprt0', 'cprt21', 'ucprt0');
- csinames: tlibcnames = ('si_c', 'si_c', 'si_c21', 'si_uc');
- gprtnames: tlibcnames = ('gprt0', 'gprt0', 'gprt21', 'ugprt0');
- gsinames: tlibcnames = ('si_g', 'si_g', 'si_c21g','si_ucg');
- defprtnames: array[boolean] of string[8] = ('prt0', 'dllprt0');
- defsinames: array[boolean] of string[8] = ('si_prc','si_dll');
- { uclibc and glibc21 are not available on x86_64! si_g is also absent. }
- Procedure TLinkerLinux.InitSysInitUnitName;
- begin
- linklibc:=ModulesLinkToLibc;
- reorder:=linklibc and ReOrderEntries;
- sysinitunit:=defsinames[current_module.islibrary];
- prtobj:=defprtnames[current_module.islibrary];
- if current_module.islibrary then
- exit;
- if cs_profile in current_settings.moduleswitches then
- begin
- prtobj:=gprtnames[libctype];
- sysinitunit:=gsinames[libctype];
- linklibc:=true;
- end
- else if linklibc then
- begin
- prtobj:=cprtnames[libctype];
- sysinitunit:=csinames[libctype];
- end;
- end;
- Function TLinkerLinux.WriteResponseFile(isdll:boolean) : Boolean;
- Var
- linkres : TLinkRes;
- i : longint;
- HPath : TCmdStrListItem;
- s,s1,s2 : TCmdStr;
- found1,
- found2 : boolean;
- linksToSharedLibFiles : boolean;
- begin
- result:=False;
- { set special options for some targets }
- if cs_profile in current_settings.moduleswitches then
- begin
- if not(libctype in [glibc2,glibc21]) then
- AddSharedLibrary('gmon');
- AddSharedLibrary('c');
- end;
- { Open link.res file }
- LinkRes:=TLinkRes.Create(outputexedir+Info.ResName,true);
- with linkres do
- begin
- { Write path to search libraries }
- HPath:=TCmdStrListItem(current_module.locallibrarysearchpath.First);
- while assigned(HPath) do
- begin
- Add('SEARCH_DIR("'+HPath.Str+'")');
- HPath:=TCmdStrListItem(HPath.Next);
- end;
- HPath:=TCmdStrListItem(LibrarySearchPath.First);
- while assigned(HPath) do
- begin
- Add('SEARCH_DIR("'+HPath.Str+'")');
- HPath:=TCmdStrListItem(HPath.Next);
- end;
- { force local symbol resolution (i.e., inside the shared }
- { library itself) for all non-exorted symbols, otherwise }
- { several RTL symbols of FPC-compiled shared libraries }
- { will be bound to those of a single shared library or }
- { to the main program }
- if (isdll) then
- begin
- add('VERSION');
- add('{');
- add(' {');
- if not texportlibunix(exportlib).exportedsymnames.empty then
- begin
- add(' global:');
- repeat
- add(' '+texportlibunix(exportlib).exportedsymnames.getfirst+';');
- until texportlibunix(exportlib).exportedsymnames.empty;
- end;
- add(' local:');
- add(' *;');
- add(' };');
- add('}');
- end;
- StartSection('INPUT(');
- { add objectfiles, start with prt0 always }
- if not (target_info.system in systems_internal_sysinit) and (prtobj<>'') then
- AddFileName(maybequoted(FindObjectFile(prtobj,'',false)));
- { try to add crti and crtbegin if linking to C }
- if linklibc and (libctype<>uclibc) then
- begin
- { crti.o must come first }
- if librarysearchpath.FindFile('crti.o',false,s) then
- AddFileName(s);
- { then the crtbegin* }
- if cs_create_pic in current_settings.moduleswitches then
- begin
- if librarysearchpath.FindFile('crtbeginS.o',false,s) then
- AddFileName(s);
- end
- else
- if (cs_link_staticflag in current_settings.globalswitches) and
- librarysearchpath.FindFile('crtbeginT.o',false,s) then
- AddFileName(s)
- else if librarysearchpath.FindFile('crtbegin.o',false,s) then
- AddFileName(s);
- end;
- { main objectfiles }
- while not ObjectFiles.Empty do
- begin
- s:=ObjectFiles.GetFirst;
- if s<>'' then
- AddFileName(maybequoted(s));
- end;
- EndSection(')');
- { Write staticlibraries }
- if not StaticLibFiles.Empty then
- begin
- Add('GROUP(');
- While not StaticLibFiles.Empty do
- begin
- S:=StaticLibFiles.GetFirst;
- AddFileName(maybequoted(s))
- end;
- Add(')');
- end;
- // we must reorder here because the result could empty sharedlibfiles
- if reorder Then
- ExpandAndApplyOrder(SharedLibFiles);
- // after this point addition of shared libs not allowed.
- { 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) }
- if (isdll) then
- begin
- Add('INPUT(');
- Add(info.DynamicLinker);
- Add(')');
- end;
- linksToSharedLibFiles := not SharedLibFiles.Empty;
- if not SharedLibFiles.Empty then
- begin
- if (SharedLibFiles.Count<>1) or
- (TCmdStrListItem(SharedLibFiles.First).Str<>'c') or
- reorder then
- begin
- Add('INPUT(');
- While not SharedLibFiles.Empty do
- begin
- S:=SharedLibFiles.GetFirst;
- if (s<>'c') or reorder then
- begin
- i:=Pos(target_info.sharedlibext,S);
- if i>0 then
- Delete(S,i,255);
- Add('-l'+s);
- end
- else
- begin
- linklibc:=true;
- end;
- end;
- Add(')');
- end
- else
- linklibc:=true;
- if (cs_link_staticflag in current_settings.globalswitches) or
- (linklibc and not reorder) then
- begin
- Add('GROUP(');
- { when we have -static for the linker the we also need libgcc }
- if (cs_link_staticflag in current_settings.globalswitches) then
- begin
- Add('-lgcc');
- if librarysearchpath.FindFile('libgcc_eh.a',false,s1) then
- Add('-lgcc_eh');
- end;
- { be sure that libc is the last lib }
- if linklibc and not reorder then
- Add('-lc');
- Add(')');
- end;
- end;
- { objects which must be at the end }
- if linklibc and (libctype<>uclibc) then
- begin
- if cs_create_pic in current_settings.moduleswitches then
- found1:=librarysearchpath.FindFile('crtendS.o',false,s1)
- else
- found1:=librarysearchpath.FindFile('crtend.o',false,s1);
- found2:=librarysearchpath.FindFile('crtn.o',false,s2);
- if found1 or found2 then
- begin
- Add('INPUT(');
- if found1 then
- AddFileName(s1);
- if found2 then
- AddFileName(s2);
- Add(')');
- end;
- end;
- {Entry point. Only needed for executables, set on the linker command line for
- shared libraries. }
- if (not isdll) then
- if (linksToSharedLibFiles and not linklibc) then
- add('ENTRY(_dynamic_start)')
- else
- add('ENTRY(_start)');
- {$ifdef x86_64}
- {$define LINKERSCRIPT_INCLUDED}
- add('SECTIONS');
- add('{');
- {Read-only sections, merged into text segment:}
- if current_module.islibrary then
- add(' . = 0 + SIZEOF_HEADERS;')
- else
- add(' PROVIDE (__executable_start = 0x0400000); . = 0x0400000 + SIZEOF_HEADERS;');
- add(' . = 0 + SIZEOF_HEADERS;');
- add(' .interp : { *(.interp) }');
- 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.dyn :');
- add(' {');
- add(' *(.rel.init)');
- add(' *(.rel.text .rel.text.* .rel.gnu.linkonce.t.*)');
- add(' *(.rel.fini)');
- add(' *(.rel.rodata .rel.rodata.* .rel.gnu.linkonce.r.*)');
- add(' *(.rel.data.rel.ro*)');
- add(' *(.rel.data .rel.data.* .rel.gnu.linkonce.d.*)');
- add(' *(.rel.tdata .rel.tdata.* .rel.gnu.linkonce.td.*)');
- add(' *(.rel.tbss .rel.tbss.* .rel.gnu.linkonce.tb.*)');
- add(' *(.rel.got)');
- add(' *(.rel.bss .rel.bss.* .rel.gnu.linkonce.b.*)');
- add(' }');
- add(' .rela.dyn :');
- add(' {');
- add(' *(.rela.init)');
- add(' *(.rela.text .rela.text.* .rela.gnu.linkonce.t.*)');
- add(' *(.rela.fini)');
- add(' *(.rela.rodata .rela.rodata.* .rela.gnu.linkonce.r.*)');
- add(' *(.rela.data .rela.data.* .rela.gnu.linkonce.d.*)');
- add(' *(.rela.tdata .rela.tdata.* .rela.gnu.linkonce.td.*)');
- add(' *(.rela.tbss .rela.tbss.* .rela.gnu.linkonce.tb.*)');
- add(' *(.rela.got)');
- add(' *(.rela.bss .rela.bss.* .rela.gnu.linkonce.b.*)');
- add(' }');
- add(' .rel.plt : { *(.rel.plt) }');
- add(' .rela.plt : { *(.rela.plt) }');
- add(' .init :');
- add(' {');
- add(' KEEP (*(.init))');
- add(' } =0x90909090');
- add(' .plt : { *(.plt) }');
- add(' .text :');
- add(' {');
- add(' *(.text .stub .text.* .gnu.linkonce.t.*)');
- add(' KEEP (*(.text.*personality*))');
- {.gnu.warning sections are handled specially by elf32.em.}
- add(' *(.gnu.warning)');
- add(' } =0x90909090');
- add(' .fini :');
- add(' {');
- add(' KEEP (*(.fini))');
- add(' } =0x90909090');
- add(' PROVIDE (_etext = .);');
- add(' .rodata :');
- add(' {');
- add(' *(.rodata .rodata.* .gnu.linkonce.r.*)');
- add(' }');
- {Adjust the address for the data segment. We want to adjust up to
- the same address within the page on the next page up.}
- add(' . = ALIGN (0x1000) - ((0x1000 - .) & (0x1000 - 1));');
- add(' .dynamic : { *(.dynamic) }');
- add(' .got : { *(.got .toc) }');
- add(' .got.plt : { *(.got.plt .toc.plt) }');
- add(' .data :');
- add(' {');
- add(' *(.data .data.* .gnu.linkonce.d.*)');
- add(' KEEP (*(.fpc .fpc.n_version .fpc.n_links))');
- add(' KEEP (*(.gnu.linkonce.d.*personality*))');
- add(' }');
- add(' PROVIDE (_edata = .);');
- add(' PROVIDE (edata = .);');
- {$ifdef zsegment_threadvars}
- add(' _z = .;');
- add(' .threadvar 0 : AT (_z) { *(.threadvar .threadvar.* .gnu.linkonce.tv.*) }');
- add(' PROVIDE (_threadvar_size = SIZEOF(.threadvar));');
- add(' . = _z + SIZEOF (.threadvar);');
- {$else}
- add(' .threadvar : { *(.threadvar .threadvar.* .gnu.linkonce.tv.*) }');
- {$endif}
- add(' __bss_start = .;');
- add(' .bss :');
- add(' {');
- add(' *(.dynbss)');
- add(' *(.bss .bss.* .gnu.linkonce.b.*)');
- add(' *(COMMON)');
- {Align here to ensure that the .bss section occupies space up to
- _end. Align after .bss to ensure correct alignment even if the
- .bss section disappears because there are no input sections.}
- add(' . = ALIGN(32 / 8);');
- add(' }');
- add(' . = ALIGN(32 / 8);');
- add(' PROVIDE (_end = .);');
- add(' PROVIDE (end = .);');
- {Stabs debugging sections.}
- add(' .stab 0 : { *(.stab) }');
- add(' .stabstr 0 : { *(.stabstr) }');
- 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(' /* SGI/MIPS DWARF 2 extensions */');
- add(' .debug_weaknames 0 : { *(.debug_weaknames) }');
- add(' .debug_funcnames 0 : { *(.debug_funcnames) }');
- add(' .debug_typenames 0 : { *(.debug_typenames) }');
- add(' .debug_varnames 0 : { *(.debug_varnames) }');
- add(' /DISCARD/ : { *(.note.GNU-stack) }');
- add('}');
- {$endif x86_64}
- {$ifdef ARM}
- if target_info.abi=abi_eabi then
- begin
- { from GNU ld (CodeSourcery Sourcery G++ Lite 2007q3-53) 2.18.50.20070820 }
- add('/* Script for -z combreloc: combine and sort reloc sections */');
- add('OUTPUT_FORMAT("elf32-littlearm", "elf32-bigarm",');
- add(' "elf32-littlearm")');
- add('OUTPUT_ARCH(arm)');
- add('SEARCH_DIR("=/usr/local/lib"); SEARCH_DIR("=/lib"); SEARCH_DIR("=/usr/lib");');
- add('SECTIONS');
- add('{');
- add(' /* Read-only sections, merged into text segment: */');
- add(' PROVIDE (__executable_start = 0x8000); . = 0x8000 + SIZEOF_HEADERS;');
- add(' .interp : { *(.interp) }');
- add(' .note.gnu.build-id : { *(.note.gnu.build-id) }');
- add(' .hash : { *(.hash) }');
- add(' .gnu.hash : { *(.gnu.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.dyn :');
- add(' {');
- add(' *(.rel.init)');
- add(' *(.rel.text .rel.text.* .rel.gnu.linkonce.t.*)');
- add(' *(.rel.fini)');
- add(' *(.rel.rodata .rel.rodata.* .rel.gnu.linkonce.r.*)');
- add(' *(.rel.data.rel.ro* .rel.gnu.linkonce.d.rel.ro.*)');
- add(' *(.rel.data .rel.data.* .rel.gnu.linkonce.d.*)');
- add(' *(.rel.tdata .rel.tdata.* .rel.gnu.linkonce.td.*)');
- add(' *(.rel.tbss .rel.tbss.* .rel.gnu.linkonce.tb.*)');
- add(' *(.rel.ctors)');
- add(' *(.rel.dtors)');
- add(' *(.rel.got)');
- add(' *(.rel.bss .rel.bss.* .rel.gnu.linkonce.b.*)');
- add(' }');
- add(' .rela.dyn :');
- add(' {');
- add(' *(.rela.init)');
- add(' *(.rela.text .rela.text.* .rela.gnu.linkonce.t.*)');
- add(' *(.rela.fini)');
- add(' *(.rela.rodata .rela.rodata.* .rela.gnu.linkonce.r.*)');
- add(' *(.rela.data .rela.data.* .rela.gnu.linkonce.d.*)');
- add(' *(.rela.tdata .rela.tdata.* .rela.gnu.linkonce.td.*)');
- add(' *(.rela.tbss .rela.tbss.* .rela.gnu.linkonce.tb.*)');
- add(' *(.rela.ctors)');
- add(' *(.rela.dtors)');
- add(' *(.rela.got)');
- add(' *(.rela.bss .rela.bss.* .rela.gnu.linkonce.b.*)');
- add(' }');
- add(' .rel.plt : { *(.rel.plt) }');
- add(' .rela.plt : { *(.rela.plt) }');
- add(' .init :');
- add(' {');
- add(' KEEP (*(.init))');
- add(' } =0');
- add(' .plt : { *(.plt) }');
- add(' .text :');
- add(' {');
- add(' *(.text .stub .text.* .gnu.linkonce.t.*)');
- add(' KEEP (*(.text.*personality*))');
- add(' /* .gnu.warning sections are handled specially by elf32.em. */');
- add(' *(.gnu.warning)');
- add(' *(.glue_7t) *(.glue_7) *(.vfp11_veneer)');
- add(' } =0');
- add(' .fini :');
- add(' {');
- add(' KEEP (*(.fini))');
- add(' } =0');
- add(' PROVIDE (__etext = .);');
- add(' PROVIDE (_etext = .);');
- add(' PROVIDE (etext = .);');
- add(' .rodata : { *(.rodata .rodata.* .gnu.linkonce.r.*) }');
- add(' .rodata1 : { *(.rodata1) }');
- add(' .ARM.extab : { *(.ARM.extab* .gnu.linkonce.armextab.*) }');
- add(' __exidx_start = .;');
- add(' .ARM.exidx : { *(.ARM.exidx* .gnu.linkonce.armexidx.*) }');
- add(' __exidx_end = .;');
- add(' .eh_frame_hdr : { *(.eh_frame_hdr) }');
- add(' .eh_frame : ONLY_IF_RO { KEEP (*(.eh_frame)) }');
- add(' .gcc_except_table : ONLY_IF_RO { *(.gcc_except_table .gcc_except_table.*) }');
- add(' /* Adjust the address for the data segment. We want to adjust up to');
- add(' the same address within the page on the next page up. */');
- add(' . = ALIGN(CONSTANT (MAXPAGESIZE)) + (. & (CONSTANT (MAXPAGESIZE) - 1));');
- add(' /* Exception handling */');
- add(' .eh_frame : ONLY_IF_RW { KEEP (*(.eh_frame)) }');
- add(' .gcc_except_table : ONLY_IF_RW { *(.gcc_except_table .gcc_except_table.*) }');
- add(' /* Thread Local Storage sections */');
- add(' .tdata : { *(.tdata .tdata.* .gnu.linkonce.td.*) }');
- add(' .tbss : { *(.tbss .tbss.* .gnu.linkonce.tb.*) *(.tcommon) }');
- add(' .preinit_array :');
- add(' {');
- add(' PROVIDE_HIDDEN (__preinit_array_start = .);');
- add(' KEEP (*(.preinit_array))');
- add(' PROVIDE_HIDDEN (__preinit_array_end = .);');
- add(' }');
- add(' .init_array :');
- add(' {');
- add(' PROVIDE_HIDDEN (__init_array_start = .);');
- add(' KEEP (*(SORT(.init_array.*)))');
- add(' KEEP (*(.init_array))');
- add(' PROVIDE_HIDDEN (__init_array_end = .);');
- add(' }');
- add(' .fini_array :');
- add(' {');
- add(' PROVIDE_HIDDEN (__fini_array_start = .);');
- add(' KEEP (*(.fini_array))');
- add(' KEEP (*(SORT(.fini_array.*)))');
- add(' PROVIDE_HIDDEN (__fini_array_end = .);');
- add(' }');
- add(' .ctors :');
- add(' {');
- add(' /* gcc uses crtbegin.o to find the start of');
- add(' the constructors, so we make sure it is');
- add(' first. Because this is a wildcard, it');
- add(' doesn''t matter if the user does not');
- add(' actually link against crtbegin.o; the');
- add(' linker won''t look for a file to match a');
- add(' wildcard. The wildcard also means that it');
- add(' doesn''t matter which directory crtbegin.o');
- add(' is in. */');
- add(' KEEP (*crtbegin.o(.ctors))');
- add(' KEEP (*crtbegin?.o(.ctors))');
- add(' /* We don''t want to include the .ctor section from');
- add(' the crtend.o file until after the sorted ctors.');
- add(' The .ctor section from the crtend file contains the');
- add(' end of ctors marker and it must be last */');
- add(' KEEP (*(EXCLUDE_FILE (*crtend.o *crtend?.o ) .ctors))');
- add(' KEEP (*(SORT(.ctors.*)))');
- add(' KEEP (*(.ctors))');
- add(' }');
- add(' .dtors :');
- add(' {');
- add(' KEEP (*crtbegin.o(.dtors))');
- add(' KEEP (*crtbegin?.o(.dtors))');
- add(' KEEP (*(EXCLUDE_FILE (*crtend.o *crtend?.o ) .dtors))');
- add(' KEEP (*(SORT(.dtors.*)))');
- add(' KEEP (*(.dtors))');
- add(' }');
- add(' .jcr : { KEEP (*(.jcr)) }');
- add(' .data.rel.ro : { *(.data.rel.ro.local* .gnu.linkonce.d.rel.ro.local.*) *(.data.rel.ro* .gnu.linkonce.d.rel.ro.*) }');
- add(' .dynamic : { *(.dynamic) }');
- add(' .got : { *(.got.plt) *(.got) }');
- add(' .data :');
- add(' {');
- add(' __data_start = . ;');
- add(' *(.data .data.* .gnu.linkonce.d.*)');
- { extra by FPC }
- add(' KEEP (*(.fpc .fpc.n_version .fpc.n_links))');
- add(' KEEP (*(.gnu.linkonce.d.*personality*))');
- add(' SORT(CONSTRUCTORS)');
- add(' }');
- add(' .data1 : { *(.data1) }');
- add(' _edata = .; PROVIDE (edata = .);');
- add(' __bss_start = .;');
- add(' __bss_start__ = .;');
- add(' .bss :');
- add(' {');
- add(' *(.dynbss)');
- add(' *(.bss .bss.* .gnu.linkonce.b.*)');
- add(' *(COMMON)');
- add(' /* Align here to ensure that the .bss section occupies space up to');
- add(' _end. Align after .bss to ensure correct alignment even if the');
- add(' .bss section disappears because there are no input sections.');
- add(' FIXME: Why do we need it? When there is no .bss section, we don''t');
- add(' pad the .data section. */');
- add(' . = ALIGN(. != 0 ? 32 / 8 : 1);');
- add(' }');
- add(' _bss_end__ = . ; __bss_end__ = . ;');
- add(' . = ALIGN(32 / 8);');
- add(' . = ALIGN(32 / 8);');
- add(' __end__ = . ;');
- add(' _end = .; PROVIDE (end = .);');
- 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(' /* SGI/MIPS DWARF 2 extensions */');
- add(' .debug_weaknames 0 : { *(.debug_weaknames) }');
- add(' .debug_funcnames 0 : { *(.debug_funcnames) }');
- add(' .debug_typenames 0 : { *(.debug_typenames) }');
- add(' .debug_varnames 0 : { *(.debug_varnames) }');
- add(' /* DWARF 3 */');
- add(' .debug_pubtypes 0 : { *(.debug_pubtypes) }');
- add(' .debug_ranges 0 : { *(.debug_ranges) }');
- add(' .stack 0x80000 :');
- add(' {');
- add(' _stack = .;');
- add(' *(.stack)');
- add(' }');
- add(' .ARM.attributes 0 : { KEEP (*(.ARM.attributes)) KEEP (*(.gnu.attributes)) }');
- add(' .note.gnu.arm.ident 0 : { KEEP (*(.note.gnu.arm.ident)) }');
- add(' /DISCARD/ : { *(.note.GNU-stack) *(.gnu_debuglink) }');
- add('}');
- end
- else
- {$endif ARM}
- {$ifndef LINKERSCRIPT_INCLUDED}
- begin
- {Sections.}
- add('SECTIONS');
- add('{');
- {Read-only sections, merged into text segment:}
- add(' PROVIDE (__executable_start = 0x010000); . = 0x010000 + SIZEOF_HEADERS;');
- add(' .interp : { *(.interp) }');
- 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.dyn :');
- add(' {');
- add(' *(.rel.init)');
- add(' *(.rel.text .rel.text.* .rel.gnu.linkonce.t.*)');
- add(' *(.rel.fini)');
- add(' *(.rel.rodata .rel.rodata.* .rel.gnu.linkonce.r.*)');
- add(' *(.rel.data.rel.ro*)');
- add(' *(.rel.data .rel.data.* .rel.gnu.linkonce.d.*)');
- add(' *(.rel.tdata .rel.tdata.* .rel.gnu.linkonce.td.*)');
- add(' *(.rel.tbss .rel.tbss.* .rel.gnu.linkonce.tb.*)');
- add(' *(.rel.got)');
- add(' *(.rel.bss .rel.bss.* .rel.gnu.linkonce.b.*)');
- add(' }');
- add(' .rela.dyn :');
- add(' {');
- add(' *(.rela.init)');
- add(' *(.rela.text .rela.text.* .rela.gnu.linkonce.t.*)');
- add(' *(.rela.fini)');
- add(' *(.rela.rodata .rela.rodata.* .rela.gnu.linkonce.r.*)');
- add(' *(.rela.data .rela.data.* .rela.gnu.linkonce.d.*)');
- add(' *(.rela.tdata .rela.tdata.* .rela.gnu.linkonce.td.*)');
- add(' *(.rela.tbss .rela.tbss.* .rela.gnu.linkonce.tb.*)');
- add(' *(.rela.got)');
- add(' *(.rela.bss .rela.bss.* .rela.gnu.linkonce.b.*)');
- add(' }');
- add(' .rel.plt : { *(.rel.plt) }');
- add(' .rela.plt : { *(.rela.plt) }');
- add(' .init :');
- add(' {');
- add(' KEEP (*(.init))');
- add(' } =0x90909090');
- add(' .plt : { *(.plt) }');
- add(' .text :');
- add(' {');
- add(' *(.text .stub .text.* .gnu.linkonce.t.*)');
- add(' KEEP (*(.text.*personality*))');
- {.gnu.warning sections are handled specially by elf32.em.}
- add(' *(.gnu.warning)');
- add(' } =0x90909090');
- add(' .fini :');
- add(' {');
- add(' KEEP (*(.fini))');
- add(' } =0x90909090');
- add(' PROVIDE (_etext = .);');
- add(' .rodata :');
- add(' {');
- add(' *(.rodata .rodata.* .gnu.linkonce.r.*)');
- add(' }');
- {Adjust the address for the data segment. We want to adjust up to
- the same address within the page on the next page up.}
- add(' . = ALIGN (0x1000) - ((0x1000 - .) & (0x1000 - 1));');
- add(' .dynamic : { *(.dynamic) }');
- add(' .got : { *(.got) }');
- add(' .got.plt : { *(.got.plt) }');
- add(' .data :');
- add(' {');
- add(' *(.data .data.* .gnu.linkonce.d.*)');
- add(' KEEP (*(.fpc .fpc.n_version .fpc.n_links))');
- add(' KEEP (*(.gnu.linkonce.d.*personality*))');
- add(' }');
- add(' PROVIDE (_edata = .);');
- add(' PROVIDE (edata = .);');
- {$ifdef zsegment_threadvars}
- add(' _z = .;');
- add(' .threadvar 0 : AT (_z) { *(.threadvar .threadvar.* .gnu.linkonce.tv.*) }');
- add(' PROVIDE (_threadvar_size = SIZEOF(.threadvar));');
- add(' . = _z + SIZEOF (.threadvar);');
- {$else}
- add(' .threadvar : { *(.threadvar .threadvar.* .gnu.linkonce.tv.*) }');
- {$endif}
- add(' __bss_start = .;');
- add(' .bss :');
- add(' {');
- add(' *(.dynbss)');
- add(' *(.bss .bss.* .gnu.linkonce.b.*)');
- add(' *(COMMON)');
- {Align here to ensure that the .bss section occupies space up to
- _end. Align after .bss to ensure correct alignment even if the
- .bss section disappears because there are no input sections.}
- add(' . = ALIGN(32 / 8);');
- add(' }');
- add(' . = ALIGN(32 / 8);');
- add(' PROVIDE (_end = .);');
- add(' PROVIDE (end = .);');
- {Stabs debugging sections.}
- add(' .stab 0 : { *(.stab) }');
- add(' .stabstr 0 : { *(.stabstr) }');
- add('}');
- end;
- {$endif LINKERSCRIPT_INCLUDED}
- { Write and Close response }
- writetodisk;
- Free;
- end;
- WriteResponseFile:=True;
- end;
- function TLinkerLinux.MakeExecutable:boolean;
- var
- i : longint;
- binstr,
- cmdstr : TCmdStr;
- success : boolean;
- DynLinkStr : string;
- GCSectionsStr,
- StaticStr,
- StripStr : string[40];
- begin
- if not(cs_link_nolink in current_settings.globalswitches) then
- Message1(exec_i_linking,current_module.exefilename);
- { Create some replacements }
- StaticStr:='';
- StripStr:='';
- GCSectionsStr:='';
- DynLinkStr:='';
- if (cs_link_staticflag in current_settings.globalswitches) then
- StaticStr:='-static';
- if (cs_link_strip in current_settings.globalswitches) and
- not(cs_link_separate_dbg_file in current_settings.globalswitches) then
- StripStr:='-s';
- if (cs_link_map in current_settings.globalswitches) then
- StripStr:='-Map '+maybequoted(ChangeFileExt(current_module.exefilename,'.map'));
- if create_smartlink_sections then
- GCSectionsStr:='--gc-sections';
- If (cs_profile in current_settings.moduleswitches) or
- ((Info.DynamicLinker<>'') and (not SharedLibFiles.Empty)) then
- begin
- DynLinkStr:='--dynamic-linker='+Info.DynamicLinker;
- if cshared then
- DynLinkStr:=DynLinkStr+' --shared ';
- if rlinkpath<>'' then
- DynLinkStr:=DynLinkStr+' --rpath-link '+rlinkpath;
- End;
- { Write used files and libraries }
- WriteResponseFile(false);
- { Call linker }
- SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
- Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename));
- Replace(cmdstr,'$OPT',Info.ExtraOptions);
- Replace(cmdstr,'$RES',maybequoted(outputexedir+Info.ResName));
- Replace(cmdstr,'$STATIC',StaticStr);
- Replace(cmdstr,'$STRIP',StripStr);
- Replace(cmdstr,'$GCSECTIONS',GCSectionsStr);
- Replace(cmdstr,'$DYNLINK',DynLinkStr);
- { create dynamic symbol table? }
- if HasExports then
- cmdstr:=cmdstr+' -E';
- success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false);
- { Create external .dbg file with debuginfo }
- if success and (cs_link_separate_dbg_file in current_settings.globalswitches) then
- begin
- for i:=1 to 3 do
- begin
- SplitBinCmd(Info.ExtDbgCmd[i],binstr,cmdstr);
- Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename));
- Replace(cmdstr,'$DBGFN',maybequoted(extractfilename(current_module.dbgfilename)));
- Replace(cmdstr,'$DBG',maybequoted(current_module.dbgfilename));
- success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false);
- if not success then
- break;
- end;
- end;
- { Remove ReponseFile }
- if (success) and not(cs_link_nolink in current_settings.globalswitches) then
- DeleteFile(outputexedir+Info.ResName);
- MakeExecutable:=success; { otherwise a recursive call to link method }
- end;
- Function TLinkerLinux.MakeSharedLibrary:boolean;
- var
- InitStr,
- FiniStr,
- SoNameStr : string[80];
- binstr,
- cmdstr : TCmdStr;
- success : boolean;
- begin
- MakeSharedLibrary:=false;
- if not(cs_link_nolink in current_settings.globalswitches) then
- Message1(exec_i_linking,current_module.sharedlibfilename);
- { Write used files and libraries }
- WriteResponseFile(true);
- { Create some replacements }
- { note: linux does not use exportlib.initname/fininame due to the custom startup code }
- InitStr:='-init FPC_SHARED_LIB_START';
- FiniStr:='-fini FPC_LIB_EXIT';
- SoNameStr:='-soname '+ExtractFileName(current_module.sharedlibfilename);
- { Call linker }
- SplitBinCmd(Info.DllCmd[1],binstr,cmdstr);
- Replace(cmdstr,'$EXE',maybequoted(current_module.sharedlibfilename));
- Replace(cmdstr,'$OPT',Info.ExtraOptions);
- Replace(cmdstr,'$RES',maybequoted(outputexedir+Info.ResName));
- Replace(cmdstr,'$INIT',InitStr);
- Replace(cmdstr,'$FINI',FiniStr);
- Replace(cmdstr,'$SONAME',SoNameStr);
- success:=DoExec(FindUtil(utilsprefix+binstr),cmdstr,true,false);
- { Strip the library ? }
- if success and (cs_link_strip in current_settings.globalswitches) then
- begin
- { only remove non global symbols and debugging info for a library }
- Info.DllCmd[2]:='strip --discard-all --strip-debug $EXE';
- SplitBinCmd(Info.DllCmd[2],binstr,cmdstr);
- Replace(cmdstr,'$EXE',maybequoted(current_module.sharedlibfilename));
- success:=DoExec(FindUtil(utilsprefix+binstr),cmdstr,true,false);
- end;
- { Remove ReponseFile }
- if (success) and not(cs_link_nolink in current_settings.globalswitches) then
- DeleteFile(outputexedir+Info.ResName);
- MakeSharedLibrary:=success; { otherwise a recursive call to link method }
- end;
- {*****************************************************************************
- TINTERNALLINKERLINUX
- *****************************************************************************}
- constructor TInternalLinkerLinux.Create;
- begin
- inherited Create;
- SetupLibrarySearchPath;
- SetupDynlinker(dynlinker,libctype);
- CExeOutput:=ElfExeOutputClass;
- CObjInput:=TElfObjInput;
- end;
- procedure TInternalLinkerLinux.InitSysInitUnitName;
- begin
- linklibc:=ModulesLinkToLibc;
- reorder:=linklibc and ReOrderEntries;
- sysinitunit:=defsinames[current_module.islibrary];
- prtobj:=defprtnames[current_module.islibrary];
- if cs_profile in current_settings.moduleswitches then
- begin
- prtobj:=gprtnames[libctype];
- sysinitunit:=gsinames[libctype];
- linklibc:=true;
- end
- else if linklibc then
- begin
- prtobj:=cprtnames[libctype];
- sysinitunit:=csinames[libctype];
- end;
- end;
- const
- relsec_prefix:array[boolean] of TCmdStr = ('rel','rela');
- procedure TInternalLinkerLinux.DefaultLinkScript;
- var
- s,s1,s2,relprefix:TCmdStr;
- found1,found2:boolean;
- linkToSharedLibs:boolean;
- procedure AddLibraryStatement(const s:TCmdStr);
- var
- i:longint;
- s1,s2:TCmdStr;
- begin
- i:=pos(target_info.sharedClibext+'.',s);
- if (i>0) then
- s1:=target_info.sharedClibprefix+S
- else
- s1:=target_info.sharedClibprefix+S+target_info.sharedClibext;
- { TODO: to be compatible with ld search algorithm, each found file
- must be tested for target compatibility, incompatible ones should be skipped. }
- { TODO: shall we search library without suffix if one with suffix is not found? }
- if (not(cs_link_staticflag in current_settings.globalswitches)) and
- FindLibraryFile(s1,'','',s2) then
- LinkScript.Concat('READSTATICLIBRARY '+maybequoted(s2))
- { TODO: static libraries never have numeric suffix in their names }
- else if FindLibraryFile(s,target_info.staticClibprefix,target_info.staticClibext,s2) then
- LinkScript.Concat('READSTATICLIBRARY '+maybequoted(s2))
- else
- Comment(V_Error,'Import library not found for '+S);
- end;
- begin
- if cs_profile in current_settings.moduleswitches then
- begin
- if not(libctype in [glibc2,glibc21]) then
- AddSharedLibrary('gmon');
- AddSharedLibrary('c');
- end;
- TElfExeOutput(exeoutput).interpreter:=stringdup(dynlinker);
- { add objectfiles, start with prt0 always }
- if not (target_info.system in systems_internal_sysinit) and (prtobj<>'') then
- LinkScript.Concat('READOBJECT '+ maybequoted(FindObjectFile(prtobj,'',false)));
- { try to add crti and crtbegin if linking to C }
- if linklibc and (libctype<>uclibc) then
- begin
- { crti.o must come first }
- if librarysearchpath.FindFile('crti.o',false,s) then
- LinkScript.Concat('READOBJECT '+maybequoted(s));
- { then the crtbegin* }
- if cs_create_pic in current_settings.moduleswitches then
- begin
- if librarysearchpath.FindFile('crtbeginS.o',false,s) then
- LinkScript.Concat('READOBJECT '+maybequoted(s));
- end
- else
- if (cs_link_staticflag in current_settings.globalswitches) and
- librarysearchpath.FindFile('crtbeginT.o',false,s) then
- LinkScript.Concat('READOBJECT '+maybequoted(s))
- else if librarysearchpath.FindFile('crtbegin.o',false,s) then
- LinkScript.Concat('READOBJECT '+maybequoted(s));
- end;
- ScriptAddSourceStatements(false);
- { we must reorder here because the result could empty sharedlibfiles }
- if reorder then
- ExpandAndApplyOrder(SharedLibFiles);
- { See tw9089*.pp: if more than one pure-Pascal shared libs are loaded,
- and none have rtld in their DT_NEEDED, then rtld cannot finalize correctly. }
- if IsSharedLibrary then
- LinkScript.Concat('READSTATICLIBRARY '+maybequoted(dynlinker));
- linkToSharedLibs:=(not SharedLibFiles.Empty);
- { Symbols declared as "external 'libx.so'" are added to ImportLibraryList, library
- prefix/extension *not* stripped. TImportLibLinux copies these to SharedLibFiles,
- stripping prefixes and extensions.
- However extension won't be stripped if library is specified with numeric suffix
- (like "libpango-1.0.so.0")
- Libraries specified with $LINKLIB directive are directly added to SharedLibFiles
- and won't be present in ImportLibraryList. }
- while not SharedLibFiles.Empty do
- begin
- S:=SharedLibFiles.GetFirst;
- if (S<>'c') or reorder then
- AddLibraryStatement(S);
- end;
- if (cs_link_staticflag in current_settings.globalswitches) or
- (linklibc and not reorder) then
- begin
- LinkScript.Concat('GROUP');
- if (cs_link_staticflag in current_settings.globalswitches) then
- begin
- AddLibraryStatement('gcc');
- AddLibraryStatement('gcc_eh');
- end;
- if linklibc and not reorder then
- AddLibraryStatement('c');
- LinkScript.Concat('ENDGROUP');
- end;
- { objects which must be at the end }
- if linklibc and (libctype<>uclibc) then
- begin
- if cs_create_pic in current_settings.moduleswitches then
- found1:=librarysearchpath.FindFile('crtendS.o',false,s1)
- else
- found1:=librarysearchpath.FindFile('crtend.o',false,s1);
- found2:=librarysearchpath.FindFile('crtn.o',false,s2);
- if found1 then
- LinkScript.Concat('READOBJECT '+maybequoted(s1));
- if found2 then
- LinkScript.Concat('READOBJECT '+maybequoted(s2));
- end;
- if (not IsSharedLibrary) then
- if (linkToSharedLibs and not linklibc) then
- LinkScript.Concat('ENTRYNAME _dynamic_start')
- else
- LinkScript.Concat('ENTRYNAME _start')
- else
- LinkScript.Concat('ISSHAREDLIBRARY');
- relprefix:=relsec_prefix[ElfTarget.relocs_use_addend];
- with LinkScript do
- begin
- Concat('HEADER');
- Concat('EXESECTION .interp');
- Concat(' OBJSECTION .interp');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .note.ABI-tag');
- Concat(' OBJSECTION .note.ABI-tag');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .note.gnu.build-id');
- Concat(' OBJSECTION .note.gnu.build-id');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .hash');
- Concat(' OBJSECTION .hash');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .dynsym');
- Concat(' OBJSECTION .dynsym');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .dynstr');
- Concat(' OBJSECTION .dynstr');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .gnu.version');
- Concat(' OBJSECTION .gnu.version');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .gnu.version_d');
- Concat(' OBJSECTION .gnu.version_d');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .gnu.version_r');
- Concat(' OBJSECTION .gnu.version_r');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .'+relprefix+'.dyn');
- Concat(' OBJSECTION .'+relprefix+'.dyn');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .'+relprefix+'.plt');
- Concat(' OBJSECTION .'+relprefix+'.plt');
- Concat(' PROVIDE __'+relprefix+'_iplt_start');
- Concat(' OBJSECTION .'+relprefix+'.iplt');
- Concat(' PROVIDE __'+relprefix+'_iplt_end');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .init');
- Concat(' OBJSECTION .init');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .plt');
- Concat(' OBJSECTION .plt');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .text');
- Concat(' OBJSECTION .text*');
- Concat('ENDEXESECTION');
- { This is not in standard ld scripts, it is handled by 'orphan section' functionality }
- Concat('EXESECTION __libc_thread_freeres_fn');
- Concat(' PROVIDE __start__libc_thread_freeres_fn');
- Concat(' OBJSECTION __libc_thread_freeres_fn');
- Concat(' PROVIDE __stop__libc_thread_freeres_fn');
- Concat('ENDEXESECTION');
- Concat('EXESECTION __libc_freeres_fn');
- Concat(' PROVIDE __start__libc_freeres_fn');
- Concat(' OBJSECTION __libc_freeres_fn');
- Concat(' PROVIDE __stop__libc_freeres_fn');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .fini');
- Concat(' OBJSECTION .fini');
- Concat(' PROVIDE __etext');
- Concat(' PROVIDE _etext');
- Concat(' PROVIDE etext');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .rodata');
- Concat(' OBJSECTION .rodata*');
- Concat('ENDEXESECTION');
- {$ifdef arm}
- Concat('EXESECTION .ARM.extab');
- Concat(' OBJSECTION .ARM.extab*');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .ARM.exidx');
- Concat(' SYMBOL __exidx_start');
- Concat(' OBJSECTION .ARM.exidx*');
- Concat(' SYMBOL __exidx_end');
- Concat('ENDEXESECTION');
- {$endif}
- Concat('EXESECTION .eh_frame');
- Concat(' OBJSECTION .eh_frame');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .gcc_except_table');
- Concat(' OBJSECTION .gcc_except_table');
- Concat(' OBJSECTION .gcc_except_table.*');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .tdata');
- Concat(' OBJSECTION .tdata');
- Concat(' OBJSECTION .tdata.*');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .tbss');
- Concat(' OBJSECTION .tbss');
- Concat(' OBJSECTION .tbss.*');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .preinit_array');
- Concat(' PROVIDE __preinit_array_start');
- Concat(' OBJSECTION .preinit_array');
- Concat(' PROVIDE __preinit_array_end');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .init_array');
- Concat(' PROVIDE __init_array_start');
- { why the hell .ctors are both here and exesection .ctors below?? }
- // KEEP ( *(SORT_BY_INIT_PRIORITY(.init_array.*) SORT_BY_INIT_PRIORITY(.ctors.*)))
- Concat(' OBJSECTION .init_array');
- // KEEP ( *(EXCLUDE_FILE (*crtbegin.o *crtbegin?.o *crtend.o *crtend?.o ) .ctors))
- Concat('PROVIDE __init_array_end');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .fini_array');
- Concat(' PROVIDE __fini_array_start');
- // KEEP ( *(SORT_BY_INIT_PRIORITY(.fini_array.*) SORT_BY_INIT_PRIORITY(.dtors.*)))
- Concat(' OBJSECTION .fini_array');
- // KEEP ( *(EXCLUDE_FILE (*crtbegin.o *crtbegin?.o *crtend.o *crtend?.o ) .dtors))
- Concat(' PROVIDE __fini_array_end');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .ctors');
- Concat(' OBJSECTION .ctors*');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .dtors');
- Concat(' OBJSECTION .dtors*');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .jcr');
- Concat(' OBJSECTION .jcr');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .dynamic');
- Concat(' OBJSECTION .dynamic');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .got');
- {$ifdef arm}
- Concat(' OBJSECTION .got.plt');
- {$endif arm}
- Concat(' OBJSECTION .got');
- Concat('ENDEXESECTION');
- {$ifndef arm}
- Concat('EXESECTION .got.plt');
- Concat(' OBJSECTION .got.plt');
- Concat('ENDEXESECTION');
- {$endif arm}
- Concat('EXESECTION .data');
- Concat(' OBJSECTION .data*');
- Concat(' OBJSECTION .fpc*');
- Concat(' OBJSECTION fpc.resources');
- Concat(' PROVIDE _edata');
- Concat(' PROVIDE edata');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .bss');
- Concat(' OBJSECTION .dynbss');
- Concat(' OBJSECTION .bss*');
- Concat(' OBJSECTION fpc.reshandles');
- Concat(' PROVIDE end');
- Concat(' SYMBOL _end');
- Concat('ENDEXESECTION');
- { This is not in standard ld scripts, it is handled by 'orphan section' functionality }
- Concat('EXESECTION __libc_freeres_ptrs');
- Concat(' PROVIDE __start__libc_freeres_ptrs');
- Concat(' OBJSECTION __libc_freeres_ptrs');
- Concat(' PROVIDE __stop__libc_freeres_ptrs');
- Concat('ENDEXESECTION');
- ScriptAddGenericSections('.debug_aranges,.debug_pubnames,.debug_info,'+
- '.debug_abbrev,.debug_line,.debug_frame,.debug_str,.debug_loc,'+
- '.debug_macinfo,.debug_weaknames,.debug_funcnames,.debug_typenames,.debug_varnames,.debug_ranges');
- Concat('EXESECTION .stab');
- Concat(' OBJSECTION .stab');
- Concat('ENDEXESECTION');
- Concat('EXESECTION .stabstr');
- Concat(' OBJSECTION .stabstr');
- Concat('ENDEXESECTION');
- end;
- end;
- {*****************************************************************************
- Initialize
- *****************************************************************************}
- initialization
- {$ifdef i386}
- RegisterExternalLinker(system_i386_linux_info,TLinkerLinux);
- RegisterImport(system_i386_linux,timportliblinux);
- RegisterExport(system_i386_linux,texportliblinux);
- RegisterTarget(system_i386_linux_info);
- RegisterExternalLinker(system_x86_6432_linux_info,TLinkerLinux);
- RegisterImport(system_x86_6432_linux,timportliblinux);
- RegisterExport(system_x86_6432_linux,texportliblinux);
- RegisterTarget(system_x86_6432_linux_info);
- {$endif i386}
- {$ifdef m68k}
- RegisterExternalLinker(system_m68k_linux_info,TLinkerLinux);
- RegisterImport(system_m68k_linux,timportliblinux);
- RegisterExport(system_m68k_linux,texportliblinux);
- RegisterTarget(system_m68k_linux_info);
- {$endif m68k}
- {$ifdef powerpc}
- RegisterExternalLinker(system_powerpc_linux_info,TLinkerLinux);
- RegisterImport(system_powerpc_linux,timportliblinux);
- RegisterExport(system_powerpc_linux,texportliblinux);
- RegisterTarget(system_powerpc_linux_info);
- {$endif powerpc}
- {$ifdef powerpc64}
- RegisterExternalLinker(system_powerpc64_linux_info,TLinkerLinux);
- RegisterImport(system_powerpc64_linux,timportliblinux);
- RegisterExport(system_powerpc64_linux,texportliblinux);
- RegisterTarget(system_powerpc64_linux_info);
- {$endif powerpc64}
- {$ifdef alpha}
- RegisterExternalLinker(system_alpha_linux_info,TLinkerLinux);
- RegisterImport(system_alpha_linux,timportliblinux);
- RegisterExport(system_alpha_linux,texportliblinux);
- RegisterTarget(system_alpha_linux_info);
- {$endif alpha}
- {$ifdef x86_64}
- RegisterExternalLinker(system_x86_64_linux_info,TLinkerLinux);
- RegisterImport(system_x86_64_linux,timportliblinux);
- RegisterExport(system_x86_64_linux,texportliblinux);
- RegisterTarget(system_x86_64_linux_info);
- {$endif x86_64}
- {$ifdef SPARC}
- RegisterExternalLinker(system_sparc_linux_info,TLinkerLinux);
- RegisterImport(system_SPARC_linux,timportliblinux);
- RegisterExport(system_SPARC_linux,texportliblinux);
- RegisterTarget(system_SPARC_linux_info);
- {$endif SPARC}
- {$ifdef ARM}
- RegisterExternalLinker(system_arm_linux_info,TLinkerLinux);
- RegisterImport(system_arm_linux,timportliblinux);
- RegisterExport(system_arm_linux,texportliblinux);
- RegisterTarget(system_arm_linux_info);
- {$endif ARM}
- {$ifdef MIPS}
- {$ifdef MIPSEL}
- RegisterExternalLinker(system_mipsel_linux_info,TLinkerLinux);
- RegisterImport(system_mipsel_linux,timportliblinux);
- RegisterExport(system_mipsel_linux,texportliblinux);
- RegisterTarget(system_mipsel_linux_info);
- {$else MIPS}
- RegisterExternalLinker(system_mipseb_linux_info,TLinkerLinux);
- RegisterImport(system_mipseb_linux,timportliblinux);
- RegisterExport(system_mipseb_linux,texportliblinux);
- RegisterTarget(system_mipseb_linux_info);
- {$endif MIPSEL}
- {$endif MIPS}
- RegisterRes(res_elf_info,TWinLikeResourceFile);
- end.