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

* urgent fix.

Browse Source
This commit is contained in:
marco 2002-07-24 13:10:22 +00:00
parent 6e3f0ce7f3
commit 1f5b2f26ba
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/targets/t_fbsd.pas
View File

@ -258,6 +258,8 @@ Var
s,s1,s2 : string;
linkdynamic,
linklibc : boolean;
Fl1,Fl2 : Boolean;
begin
WriteResponseFile:=False;
{ set special options for some targets }
@ -381,12 +383,15 @@ begin
{ objects which must be at the end }
if linklibc then
begin
if librarysearchpath.FindFile('crtend.o',s1) or
librarysearchpath.FindFile('crtn.o',s2) then
Fl1:=librarysearchpath.FindFile('crtend.o',s1)
Fl2:=librarysearchpath.FindFile('crtn.o',s2)
if Fl1 or Fl2 then
begin
LinkRes.Add('INPUT(');
If Fl1 Then
LinkRes.AddFileName(s1);
LinkRes.AddFileName(s2);
If Fl2 Then
LinkRes.AddFileName(s2);
LinkRes.Add(')');
end;
end;
@ -707,7 +712,10 @@ initialization
end.
{
$Log$
Revision 1.22 2002-07-01 18:46:34 peter
Revision 1.23 2002-07-24 13:10:22 marco
* urgent fix.
Revision 1.22 2002/07/01 18:46:34 peter
* internal linker
* reorganized aasm layer