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

* problem related with libc : go32v2 and linux differences

Browse Source
This commit is contained in:
pierre 1999-01-27 13:07:58 +00:00
parent 714da479ee
commit 7885677f56
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/link.pas
View File

@ -266,7 +266,7 @@ Var
LinkResponse : Text;
i : longint;
prtobj,s,s2 : string;
found,
found,linux_link_c,
linklibc : boolean;
procedure WriteRes(const s:string);
@ -277,6 +277,7 @@ Var
begin
WriteResponseFile:=False;
linux_link_c:=false;
{ set special options for some targets }
linklibc:=SharedLibFiles.Find('c');
prtobj:='prt0';
@ -305,6 +306,8 @@ begin
if linklibc then
prtobj:='cprt0';
end;
if linklibc then
linux_link_c:=true;
end;
end;
@ -338,7 +341,7 @@ begin
{ add objectfiles, start with prt0 always }
if prtobj<>'' then
WriteRes(FindObjectFile(prtobj));
if linklibc then
if {linklibc this is only for linux }linux_link_c then
begin
WriteRes(search('crti.o',librarysearchpath,found)+'crti.o');
WriteRes(search('crtbegin.o',librarysearchpath,found)+'crtbegin.o');
@ -349,7 +352,7 @@ begin
if s<>'' then
WriteRes(s);
end;
if linklibc then
if linux_link_c then
begin
WriteRes(search('crtend.o',librarysearchpath,found)+'crtend.o');
WriteRes(search('crtn.o',librarysearchpath,found)+'crtn.o');
@ -370,8 +373,13 @@ begin
linklibc:=true;
end;
{ be sure that libc is the last lib }
{ arghhhh this is wrong for DJGPP !!!
DJGPP need gcc after c lib (umod...) (PM) }
if linklibc then
WriteRes(target_link.libprefix+'c');
{ add libgcc after ! }
if linklibc and (target_info.target=target_i386_go32v2) then
WriteRes(target_link.libprefix+'gcc');
WriteRes(target_link.inputend);
{ Write staticlibraries }
@ -539,7 +547,10 @@ end;
end.
{
$Log$
Revision 1.43 1999-01-25 15:02:13 peter
Revision 1.44 1999-01-27 13:07:58 pierre
* problem related with libc : go32v2 and linux differences
Revision 1.43 1999/01/25 15:02:13 peter
* link libc always as last
Revision 1.42 1998/12/11 00:03:19 peter