paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-04 12:03:49 +02:00
Code Issues Packages Projects Releases Wiki Activity
9c69c9dcf8
fpc/compiler/systems/t_bsd.pas
Jonas Maebe 9c69c9dcf8 * fixed handling of paths/files with spaces in their name in link.res 
on platforms where the `cat link.res` trick is used. Those must
    /not/ be quoted, because otherwise the shell assumes those quotes
    are part of the filename, and will escape the quotes themselves.

    Instead, write everything out without quotes, but set IFS to
    <newline> before doing the cat, so that only a new line is seen
    as a separator between items. The shell will then insert the
    necessary quotes to escape the spaces. One disadvantage: this
    means that other options, such as e.g. "-arch ppc" under Darwin,
    must now be written split over two lines to avoid the shell
    passing such parameters (which consist of two separate strings)
    as one single parameter (with an escaped space) to ld.

git-svn-id: trunk@8166 -
2007-07-25 16:25:14 +00:00

719 lines
22 KiB
ObjectPascal
Raw Blame History

{
Copyright (c) 1998-2002 by Peter Vreman (original Linux)
(c) 2000 by Marco van de Voort (FreeBSD mods)
This unit implements support import,export,link routines
for the (i386)FreeBSD 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_bsd;
{$i fpcdefs.inc}
interface
implementation
uses
sysutils,
cutils,cfileutl,cclasses,
verbose,systems,globtype,globals,
symconst,script,
fmodule,aasmbase,aasmtai,aasmdata,aasmcpu,cpubase,symsym,symdef,
import,export,link,i_bsd,
cgutils,cgbase,cgobj,cpuinfo,ogbase;
type
timportlibdarwin=class(timportlib)
procedure generatelib;override;
end;
timportlibbsd=class(timportlib)
procedure generatelib;override;
end;
texportlibbsd=class(texportlib)
procedure preparelib(const s : string);override;
procedure exportprocedure(hp : texported_item);override;
procedure exportvar(hp : texported_item);override;
procedure generatelib;override;
end;
tlinkerbsd=class(texternallinker)
private
LdSupportsNoResponseFile : boolean;
LibrarySuffix : Char;
Function WriteResponseFile(isdll:boolean) : Boolean;
public
constructor Create;override;
procedure SetDefaultInfo;override;
function MakeExecutable:boolean;override;
function MakeSharedLibrary:boolean;override;
procedure LoadPredefinedLibraryOrder; override;
end;
{*****************************************************************************
TIMPORTLIBDARWIN
*****************************************************************************}
procedure timportlibdarwin.generatelib;
begin
end;
{*****************************************************************************
TIMPORTLIBBSD
*****************************************************************************}
procedure timportlibbsd.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;
{*****************************************************************************
TEXPORTLIBBSD
*****************************************************************************}
procedure texportlibbsd.preparelib(const s:string);
begin
end;
procedure texportlibbsd.exportprocedure(hp : texported_item);
var
hp2 : texported_item;
begin
{ first test the index value }
if (hp.options and eo_index)<>0 then
begin
Message1(parser_e_no_export_with_index_for_target,'*bsd/darwin');
exit;
end;
{ now place in correct order }
hp2:=texported_item(current_module._exports.first);
while assigned(hp2) and
(hp.name^>hp2.name^) do
hp2:=texported_item(hp2.next);
{ insert hp there !! }
if assigned(hp2) and (hp2.name^=hp.name^) then
begin
{ this is not allowed !! }
Message1(parser_e_export_name_double,hp.name^);
exit;
end;
if hp2=texported_item(current_module._exports.first) then
current_module._exports.concat(hp)
else if assigned(hp2) then
begin
hp.next:=hp2;
hp.previous:=hp2.previous;
if assigned(hp2.previous) then
hp2.previous.next:=hp;
hp2.previous:=hp;
end
else
current_module._exports.concat(hp);
end;
procedure texportlibbsd.exportvar(hp : texported_item);
begin
hp.is_var:=true;
exportprocedure(hp);
end;
procedure texportlibbsd.generatelib; // straight t_linux copy for now.
var
hp2 : texported_item;
pd : tprocdef;
{$ifdef x86}
sym : tasmsymbol;
r : treference;
{$endif x86}
begin
new_section(current_asmdata.asmlists[al_procedures],sec_code,'',0);
hp2:=texported_item(current_module._exports.first);
while assigned(hp2) do
begin
if (not hp2.is_var) and
(hp2.sym.typ=procsym) then
begin
{ the manglednames can already be the same when the procedure
is declared with cdecl }
pd:=tprocdef(tprocsym(hp2.sym).ProcdefList[0]);
if pd.mangledname<>hp2.name^ then
begin
{ place jump in al_procedures }
current_asmdata.asmlists[al_procedures].concat(tai_align.create(target_info.alignment.procalign));
current_asmdata.asmlists[al_procedures].concat(Tai_symbol.Createname_global(hp2.name^,AT_FUNCTION,0));
if (cs_create_pic in current_settings.moduleswitches) and
{ other targets need to be checked how it works }
(target_info.system in [system_i386_freebsd]) then
begin
{$ifdef x86}
sym:=current_asmdata.RefAsmSymbol(pd.mangledname);
reference_reset_symbol(r,sym,0);
if cs_create_pic in current_settings.moduleswitches then
r.refaddr:=addr_pic
else
r.refaddr:=addr_full;
current_asmdata.asmlists[al_procedures].concat(taicpu.op_ref(A_JMP,S_NO,r));
{$endif x86}
end
else
cg.a_jmp_name(current_asmdata.asmlists[al_procedures],pd.mangledname);
current_asmdata.asmlists[al_procedures].concat(Tai_symbol_end.Createname(hp2.name^));
end;
end
else
Message1(parser_e_no_export_of_variables_for_target,'*bsd/darwin');
hp2:=texported_item(hp2.next);
end;
end;
{*****************************************************************************
TLINKERBSD
*****************************************************************************}
Constructor TLinkerBSD.Create;
begin
Inherited Create;
if not Dontlinkstdlibpath Then
if not(target_info.system in systems_darwin) then
LibrarySearchPath.AddPath('/lib;/usr/lib;/usr/X11R6/lib',true)
else
{ Mac OS X doesn't have a /lib }
LibrarySearchPath.AddPath('/usr/lib',true)
end;
procedure TLinkerBSD.SetDefaultInfo;
{
This will also detect which libc version will be used
}
begin
LibrarySuffix:=' ';
LdSupportsNoResponseFile := (target_info.system in ([system_m68k_netbsd]+systems_darwin));
with Info do
begin
if LdSupportsNoResponseFile then
begin
if not(target_info.system in systems_darwin) then
begin
ExeCmd[1]:='ld $OPT $DYNLINK $STATIC $GCSECTIONS $STRIP -L. -o $EXE `cat $RES`';
DllCmd[1]:='ld $OPT -shared -L. -o $EXE `cat $RES`'
end
else
begin
ExeCmd[1]:='ld $OPT $DYNLINK $STATIC $GCSECTIONS $STRIP -multiply_defined suppress -L. -o $EXE `cat $RES`';
DllCmd[1]:='libtool $OPT -dynamic -multiply_defined suppress -L. -o $EXE `cat $RES`'
end
end
else
begin
ExeCmd[1]:='ld $OPT $DYNLINK $STATIC $GCSECTIONS $STRIP -L. -o $EXE $RES';
DllCmd[1]:='ld $OPT $INIT $FINI $SONAME -shared -L. -o $EXE $RES';
end;
if not(target_info.system in systems_darwin) then
DllCmd[2]:='strip --strip-unneeded $EXE'
else
DllCmd[2]:='strip -x $EXE';
DynamicLinker:='';
end;
end;
procedure TLinkerBSD.LoadPredefinedLibraryOrder;
// put your linkorder/linkalias overrides here.
// Note: assumes only called when reordering/aliasing is used.
Begin
if not(target_info.system in systems_darwin) then
begin
if (target_info.system =system_i386_freebsd) and
not (cs_link_no_default_lib_order in current_settings.globalswitches) Then
Begin
LinkLibraryOrder.add('gcc','',15);
LinkLibraryOrder.add('c','',50); // c and c_p mutual. excl?
LinkLibraryOrder.add('c_p','',55);
LinkLibraryOrder.add('pthread','',75); // pthread and c_r should be mutually exclusive
LinkLibraryOrder.add('c_r','',76);
LinkLibraryOrder.add('kvm','',80); // must be before ncurses
if (cs_link_pthread in current_settings.globalswitches) Then // convert libpthread to libc_r.
LinkLibraryAliases.add('pthread','c_r');
end;
end
else
begin
LinkLibraryOrder.add('gcc','',15);
LinkLibraryOrder.add('c','',50);
end;
End;
Function TLinkerBSD.WriteResponseFile(isdll:boolean) : Boolean;
Var
linkres : TLinkRes;
i : longint;
cprtobj,
gprtobj,
prtobj : string[80];
HPath : TCmdStrListItem;
s,s1,s2 : TCmdStr;
linkdynamic,
linklibc : boolean;
Fl1,Fl2 : Boolean;
IsDarwin : Boolean;
ReOrder : Boolean;
begin
WriteResponseFile:=False;
ReOrder:=False;
IsDarwin:=target_info.system in systems_darwin;
{ set special options for some targets }
if not IsDarwin Then
begin
prtobj:='prt0';
cprtobj:='cprt0';
gprtobj:='gprt0';
linkdynamic:=not(SharedLibFiles.empty);
linklibc:=(SharedLibFiles.Find('c')<>nil);
// this one is a bit complex.
// Only reorder for now if -XL or -XO params are given
// or when -Xf.
reorder:= linklibc and
(
ReorderEntries
or
(cs_link_pthread in current_settings.globalswitches));
if cs_profile in current_settings.moduleswitches then
begin
prtobj:=gprtobj;
AddSharedLibrary('c');
LibrarySuffix:='p';
linklibc:=true;
end
else
begin
if linklibc then
prtobj:=cprtobj;
end;
// after this point addition of shared libs not allowed.
end
else
begin
{ for darwin: always link dynamically against libc }
linklibc := true;
{$ifdef MACOSX104ORHIGHER}
{ not sure what this is for, but gcc always links against it }
if not(cs_profile in current_settings.moduleswitches) then
AddSharedLibrary('SystemStubs')
else
AddSharedLibrary('SystemStubs_profile');
{$endif MACOSX104ORHIGHER}
reorder:=reorderentries;
if not(isdll) then
if not(cs_profile in current_settings.moduleswitches) then
begin
if librarysearchpath.FindFile('crt1.o',false,s) then
prtobj:=s
else
prtobj:='/usr/lib/crt1.o';
end
else
begin
if librarysearchpath.FindFile('gcrt1.o',false,s) then
prtobj:=s
else
prtobj:='/usr/lib/gcrt1.o';
end
else
begin
prtobj:='';
end;
end;
if reorder Then
ExpandAndApplyOrder(SharedLibFiles);
{ Open link.res file }
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName);
if (not isdll) then
begin
LinkRes.Add('-arch');
case target_info.system of
system_powerpc_darwin:
LinkRes.Add('ppc');
system_i386_darwin:
LinkRes.Add('i386');
system_powerpc64_darwin:
LinkRes.Add('ppc64');
system_x86_64_darwin:
LinkRes.Add('x86_64');
end;
end;
{ Write path to search libraries }
HPath:=TCmdStrListItem(current_module.locallibrarysearchpath.First);
while assigned(HPath) do
begin
if LdSupportsNoResponseFile then
LinkRes.Add('-L'+HPath.Str)
else
LinkRes.Add('SEARCH_DIR('+maybequoted(HPath.Str)+')');
HPath:=TCmdStrListItem(HPath.Next);
end;
HPath:=TCmdStrListItem(LibrarySearchPath.First);
while assigned(HPath) do
begin
if LdSupportsNoResponseFile then
LinkRes.Add('-L'+HPath.Str)
else
LinkRes.Add('SEARCH_DIR('+maybequoted(HPath.Str)+')');
HPath:=TCmdStrListItem(HPath.Next);
end;
if (target_info.system in systems_darwin) then
begin
HPath:=TCmdStrListItem(current_module.localframeworksearchpath.First);
while assigned(HPath) do
begin
LinkRes.Add('-F'+HPath.Str);
HPath:=TCmdStrListItem(HPath.Next);
end;
HPath:=TCmdStrListItem(FrameworkSearchPath.First);
while assigned(HPath) do
begin
LinkRes.Add('-F'+HPath.Str);
HPath:=TCmdStrListItem(HPath.Next);
end;
end;
if not LdSupportsNoResponseFile then
LinkRes.Add('INPUT(');
{ add objectfiles, start with prt0 always }
if prtobj<>'' then
LinkRes.AddFileName(FindObjectFile(prtobj,'',false));
{ try to add crti and crtbegin if linking to C }
if linklibc and
not IsDarwin 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;
{ main objectfiles }
while not ObjectFiles.Empty do
begin
s:=ObjectFiles.GetFirst;
if s<>'' then
if LdSupportsNoResponseFile then
LinkRes.AddFileName(s)
else
LinkRes.AddFileName(maybequoted(s));
end;
if not LdSupportsNoResponseFile then
LinkRes.Add(')');
{ Write staticlibraries }
if not StaticLibFiles.Empty then
begin
if not LdSupportsNoResponseFile then
LinkRes.Add('GROUP(');
While not StaticLibFiles.Empty do
begin
S:=StaticLibFiles.GetFirst;
if LdSupportsNoResponseFile then
LinkRes.AddFileName(s)
else
LinkRes.AddFileName(maybequoted(s))
end;
if not LdSupportsNoResponseFile then
LinkRes.Add(')');
end;
{ 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
if not LdSupportsNoResponseFile then
LinkRes.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);
LinkRes.Add('-l'+s);
end
else
begin
linklibc:=true;
linkdynamic:=false; { libc will include the ld-* for us }
end;
end;
{ be sure that libc is the last lib }
if linklibc and not reorder then
Begin
If LibrarySuffix=' ' Then
LinkRes.Add('-lc')
else
LinkRes.Add('-lc_'+LibrarySuffix);
If LibrarySuffix='r' Then
LinkRes.Add('-lc');
end;
{ when we have -static for the linker the we also need libgcc }
if (cs_link_staticflag in current_settings.globalswitches) then
LinkRes.Add('-lgcc');
if linkdynamic and (Info.DynamicLinker<>'') then
LinkRes.AddFileName(Info.DynamicLinker);
if not LdSupportsNoResponseFile then
LinkRes.Add(')');
end;
{ frameworks for Darwin }
if IsDarwin then
while not FrameworkFiles.empty do
begin
LinkRes.Add('-framework');
LinkRes.Add(FrameworkFiles.GetFirst);
end;
{ objects which must be at the end }
if linklibc and
not IsDarwin Then
begin
Fl1:=librarysearchpath.FindFile('crtend.o',false,s1);
Fl2:=librarysearchpath.FindFile('crtn.o',false,s2);
if Fl1 or Fl2 then
begin
LinkRes.Add('INPUT(');
If Fl1 Then
LinkRes.AddFileName(s1);
If Fl2 Then
LinkRes.AddFileName(s2);
LinkRes.Add(')');
end;
end;
{ ignore the fact that our relocations are in non-writable sections, }
{ will be fixed once we have pic support }
if isdll and IsDarwin Then
begin
LinkRes.Add('-read_only_relocs');
LinkRes.Add('suppress');
end;
{ Write and Close response }
linkres.writetodisk;
linkres.Free;
WriteResponseFile:=True;
end;
function TLinkerBSD.MakeExecutable:boolean;
var
binstr,
cmdstr : TCmdStr;
success : boolean;
DynLinkStr : string[60];
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:='';
DynLinkStr:='';
GCSectionsStr:='';
if (cs_link_staticflag in current_settings.globalswitches) then
begin
if (target_info.system=system_m68k_netbsd) and
((cs_link_on_target in current_settings.globalswitches) or
(target_info.system=source_info.system)) then
StaticStr:='-Bstatic'
else
StaticStr:='-static';
end;
if (cs_link_strip in current_settings.globalswitches) then
StripStr:='-s';
if (cs_link_smart in current_settings.globalswitches) and
(tf_smartlink_sections in target_info.flags) then
if not(target_info.system in systems_darwin) then
GCSectionsStr:='--gc-sections'
else
// warning: this option only exists for 32 bit under Mac OS X, maybe the default for 64 bit?
GCSectionsStr:='-dead_strip';
if(not(target_info.system in systems_darwin) and
(cs_profile in current_settings.moduleswitches)) or
((Info.DynamicLinker<>'') and (not SharedLibFiles.Empty)) then
DynLinkStr:='-dynamic-linker='+Info.DynamicLinker;
if CShared Then
begin
if not(target_info.system in systems_darwin) then
DynLinKStr:=DynLinkStr+' --shared'
else
DynLinKStr:=DynLinkStr+' -dynamic'; // one dash!
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);
success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,LdSupportsNoResponseFile);
{ 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 TLinkerBSD.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);
InitStr:='-init FPC_LIB_START';
FiniStr:='-fini FPC_LIB_EXIT';
SoNameStr:='-soname '+ExtractFileName(current_module.sharedlibfilename^);
{ Call linker }
SplitBinCmd(Info.DllCmd[1],binstr,cmdstr);
{$ifndef darwin}
Replace(cmdstr,'$EXE',maybequoted(current_module.sharedlibfilename^));
{$else darwin}
Replace(cmdstr,'$EXE',maybequoted(ExpandFileName(current_module.sharedlibfilename^)));
{$endif darwin}
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,LdSupportsNoResponseFile);
{ Strip the library ? }
if success and (cs_link_strip in current_settings.globalswitches) then
begin
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;
{*****************************************************************************
Initialize
*****************************************************************************}
initialization
{$ifdef x86_64}
RegisterExternalLinker(system_x86_64_FreeBSD_info,TLinkerBSD);
RegisterImport(system_x86_64_freebsd,timportlibbsd);
RegisterExport(system_x86_64_freebsd,texportlibbsd);
RegisterTarget(system_x86_64_freebsd_info);
{$endif}
{$ifdef i386}
RegisterExternalLinker(system_i386_FreeBSD_info,TLinkerBSD);
RegisterExternalLinker(system_i386_NetBSD_info,TLinkerBSD);
RegisterExternalLinker(system_i386_OpenBSD_info,TLinkerBSD);
RegisterImport(system_i386_freebsd,timportlibbsd);
RegisterExport(system_i386_freebsd,texportlibbsd);
RegisterTarget(system_i386_freebsd_info);
RegisterImport(system_i386_netbsd,timportlibbsd);
RegisterExport(system_i386_netbsd,texportlibbsd);
RegisterTarget(system_i386_netbsd_info);
RegisterImport(system_i386_openbsd,timportlibbsd);
RegisterExport(system_i386_openbsd,texportlibbsd);
RegisterTarget(system_i386_openbsd_info);
RegisterExternalLinker(system_i386_darwin_info,TLinkerBSD);
RegisterImport(system_i386_darwin,timportlibdarwin);
RegisterExport(system_i386_darwin,texportlibbsd);
RegisterTarget(system_i386_darwin_info);
{$endif i386}
{$ifdef m68k}
// RegisterExternalLinker(system_m68k_FreeBSD_info,TLinkerBSD);
RegisterExternalLinker(system_m68k_NetBSD_info,TLinkerBSD);
RegisterImport(system_m68k_netbsd,timportlibbsd);
RegisterExport(system_m68k_netbsd,texportlibbsd);
RegisterTarget(system_m68k_netbsd_info);
{$endif m68k}
{$ifdef powerpc}
// RegisterExternalLinker(system_m68k_FreeBSD_info,TLinkerBSD);
RegisterExternalLinker(system_powerpc_darwin_info,TLinkerBSD);
RegisterImport(system_powerpc_darwin,timportlibdarwin);
RegisterExport(system_powerpc_darwin,texportlibbsd);
RegisterTarget(system_powerpc_darwin_info);
RegisterExternalLinker(system_powerpc_netbsd_info,TLinkerBSD);
RegisterImport(system_powerpc_netbsd,timportlibbsd);
RegisterExport(system_powerpc_netbsd,texportlibbsd);
RegisterTarget(system_powerpc_netbsd_info);
{$endif powerpc}
{$ifdef powerpc64}
RegisterExternalLinker(system_powerpc64_darwin_info,TLinkerBSD);
RegisterImport(system_powerpc64_darwin,timportlibdarwin);
RegisterExport(system_powerpc64_darwin,texportlibbsd);
RegisterTarget(system_powerpc64_darwin_info);
{$endif powerpc64}
end.
Reference in New Issue View Git Blame Copy Permalink