paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 09:02:22 +01:00
Code Issues Packages Projects Releases Wiki Activity
480f687160
fpc/compiler/systems/t_linux.pas
sergei 38058505ba * Changed linking infrastructure to look like assembler one: 
* Changed direct references to linker classes in TSystemInfo records to enumerated ids.
  * RegisterExtennalLinker and RegisterInternalLinker procedures replaced by single RegisterLinker procedure and moved to link.pas.
  - TAbstractLinker is no longer necessary, removed.

This change allows to register linker once per id, rather than once per target, and also allows TSystemInfo records to be read-only.

git-svn-id: trunk@25279 -
2013-08-18 12:01:21 +00:00

1559 lines
57 KiB
ObjectPascal
Raw Blame History

{
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)
else
Message1(exec_w_init_file_not_found,'crti.o');
{ then the crtbegin* }
if cs_create_pic in current_settings.moduleswitches then
begin
if librarysearchpath.FindFile('crtbeginS.o',false,s) then
AddFileName(s)
else
Message1(exec_w_init_file_not_found,'crtbeginS.o');
end
else
if (cs_link_staticflag in current_settings.globalswitches) then
begin
if librarysearchpath.FindFile('crtbeginT.o',false,s) then
AddFileName(s)
else
Message1(exec_w_init_file_not_found,'crtbeginT.o');
end
else if librarysearchpath.FindFile('crtbegin.o',false,s) then
AddFileName(s)
else
Message1(exec_w_init_file_not_found,'crtbegin.o');
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
begin
found1:=librarysearchpath.FindFile('crtendS.o',false,s1);
if not(found1) then
Message1(exec_w_init_file_not_found,'crtendS.o');
end
else
begin
found1:=librarysearchpath.FindFile('crtend.o',false,s1);
if not(found1) then
Message1(exec_w_init_file_not_found,'crtend.o');
end;
found2:=librarysearchpath.FindFile('crtn.o',false,s2);
if not(found2) then
Message1(exec_w_init_file_not_found,'crtn.o');
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 (cs_link_smart in current_settings.globalswitches) and
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(sysrootpath+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');
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');
{$ifndef mips}
Concat('EXESECTION .got');
{$ifdef arm}
Concat(' OBJSECTION .got.plt');
{$endif arm}
Concat(' OBJSECTION .got');
Concat('ENDEXESECTION');
{$endif mips}
{$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');
{$ifdef mips}
Concat('EXESECTION .got');
Concat(' OBJSECTION .got');
Concat('ENDEXESECTION');
{$endif mips}
Concat('EXESECTION .bss');
Concat(' OBJSECTION .dynbss');
Concat(' OBJSECTION .bss*');
Concat(' OBJSECTION fpc.reshandles');
Concat(' PROVIDE end');
Concat(' SYMBOL _end');
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
RegisterLinker(ld_linux,TLinkerLinux);
RegisterLinker(ld_int_linux,TInternalLinkerLinux);
{$ifdef i386}
RegisterImport(system_i386_linux,timportliblinux);
RegisterExport(system_i386_linux,texportliblinux);
RegisterTarget(system_i386_linux_info);
RegisterImport(system_x86_6432_linux,timportliblinux);
RegisterExport(system_x86_6432_linux,texportliblinux);
RegisterTarget(system_x86_6432_linux_info);
{$endif i386}
{$ifdef m68k}
RegisterImport(system_m68k_linux,timportliblinux);
RegisterExport(system_m68k_linux,texportliblinux);
RegisterTarget(system_m68k_linux_info);
{$endif m68k}
{$ifdef powerpc}
RegisterImport(system_powerpc_linux,timportliblinux);
RegisterExport(system_powerpc_linux,texportliblinux);
RegisterTarget(system_powerpc_linux_info);
{$endif powerpc}
{$ifdef powerpc64}
RegisterImport(system_powerpc64_linux,timportliblinux);
RegisterExport(system_powerpc64_linux,texportliblinux);
RegisterTarget(system_powerpc64_linux_info);
{$endif powerpc64}
{$ifdef alpha}
RegisterImport(system_alpha_linux,timportliblinux);
RegisterExport(system_alpha_linux,texportliblinux);
RegisterTarget(system_alpha_linux_info);
{$endif alpha}
{$ifdef x86_64}
RegisterImport(system_x86_64_linux,timportliblinux);
RegisterExport(system_x86_64_linux,texportliblinux);
RegisterTarget(system_x86_64_linux_info);
{$endif x86_64}
{$ifdef SPARC}
RegisterImport(system_SPARC_linux,timportliblinux);
RegisterExport(system_SPARC_linux,texportliblinux);
RegisterTarget(system_SPARC_linux_info);
{$endif SPARC}
{$ifdef ARM}
RegisterImport(system_arm_linux,timportliblinux);
RegisterExport(system_arm_linux,texportliblinux);
RegisterTarget(system_arm_linux_info);
{$endif ARM}
{$ifdef MIPS}
{$ifdef MIPSEL}
RegisterImport(system_mipsel_linux,timportliblinux);
RegisterExport(system_mipsel_linux,texportliblinux);
RegisterTarget(system_mipsel_linux_info);
{$else MIPS}
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.
Reference in New Issue View Git Blame Copy Permalink