paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 07:34:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* libc and libgcc linking enabled

Browse Source 
git-svn-id: trunk@5542 -
This commit is contained in:
Legolas 2006-12-05 18:24:56 +00:00
parent 636d1fe8a4
commit 086b4cf7ee
1 changed files with 39 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
compiler/systems/t_gba.pas
View File

@ -72,10 +72,19 @@ Var
linkres : TLinkRes;
i : longint;
HPath : TStringListItem;
s : string;
s,s1,s2 : string;
prtobj,
cprtobj : string[80];
linklibc : boolean;
found1,
found2 : boolean;
begin
WriteResponseFile:=False;
linklibc:=(SharedLibFiles.Find('c')<>nil);
prtobj:='prt0';
cprtobj:='cprt0';
if linklibc then
prtobj:=cprtobj;
{ Open link.res file }
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName);
@ -101,8 +110,19 @@ begin
LinkRes.Add('INPUT (');
{ add objectfiles, start with prt0 always }
s:=FindObjectFile('prt0','',false);
//s:=FindObjectFile('prt0','',false);
if prtobj<>'' then
s:=FindObjectFile(prtobj,'',false);
LinkRes.AddFileName(s);
{ try to add crti and crtbegin if linking to C }
if linklibc then
begin
if librarysearchpath.FindFile('crtbegin.o',false,s) then
LinkRes.AddFileName(s);
if librarysearchpath.FindFile('crti.o',false,s) then
LinkRes.AddFileName(s);
end;
while not ObjectFiles.Empty do
begin
s:=ObjectFiles.GetFirst;
@ -170,6 +190,23 @@ begin
end;
LinkRes.Add(')');
end;
{ objects which must be at the end }
if linklibc then
begin
found1:=librarysearchpath.FindFile('crtend.o',false,s1);
found2:=librarysearchpath.FindFile('crtn.o',false,s2);
if found1 or found2 then
begin
LinkRes.Add('INPUT(');
if found1 then
LinkRes.AddFileName(s1);
if found2 then
LinkRes.AddFileName(s2);
LinkRes.Add(')');
end;
end;
with linkres do
begin
add('/* Linker Script Original v1.3 by Jeff Frohwein */');