paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 14:09:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* linkordering for Linux

Browse Source 
git-svn-id: trunk@3911 -
This commit is contained in:
marco 2006-06-21 15:49:39 +00:00
parent 35bc0b8160
commit 0dc6fb52ea
1 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/systems/t_linux.pas
View File

@ -55,6 +55,7 @@ interface
function MakeExecutable:boolean;override;
function MakeSharedLibrary:boolean;override;
function postprocessexecutable(const fn : string;isdll:boolean):boolean;
procedure LoadPredefinedLibraryOrder; override;
end;
@ -310,6 +311,20 @@ begin
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 aktglobalswitches) Then
Begin
LinkLibraryOrder.add('gcc','',15);
LinkLibraryOrder.add('c','',100);
LinkLibraryOrder.add('gmon','',120);
LinkLibraryOrder.add('dl','',140);
LinkLibraryOrder.add('pthread','',160);
end;
End;
Function TLinkerLinux.WriteResponseFile(isdll:boolean) : Boolean;
Var
linkres : TLinkRes;
@ -321,11 +336,13 @@ Var
s,s1,s2 : string;
found1,
found2,
Reorder,
linklibc : boolean;
begin
result:=False;
{ set special options for some targets }
linklibc:=(SharedLibFiles.Find('c')<>nil);
reorder := linklibc and ReOrderEntries;
if isdll then
begin
prtobj:='dllprt0';
@ -416,15 +433,22 @@ begin
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 not SharedLibFiles.Empty then
begin
Add('INPUT(');
While not SharedLibFiles.Empty do
begin
S:=SharedLibFiles.GetFirst;
if s<>'c' then
if (s<>'c') or reorder then
begin
i:=Pos(target_info.sharedlibext,S);
if i>0 then
@ -437,7 +461,7 @@ begin
end;
end;
{ be sure that libc is the last lib }
if linklibc then
if linklibc and not reorder then
Add('-lc');
{ when we have -static for the linker the we also need libgcc }
if (cs_link_staticflag in aktglobalswitches) then