paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 07:41:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove path for sparc

Browse Source 
git-svn-id: trunk@14288 -
This commit is contained in:
pierre 2009-11-29 20:15:00 +00:00
parent b30b7ee6b1
commit a823e6834d
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/systems/t_sunos.pas
View File

@ -118,9 +118,6 @@ implementation
Constructor TLinkersolaris.Create;
begin
Inherited Create;
{$ifndef x86_64}
use_gnu_ld:=true;
{$endif}
if cs_link_native in init_settings.globalswitches then
use_gnu_ld:=false
@ -148,10 +145,16 @@ procedure TLinkersolaris.SetDefaultInfo;
const
gld = 'gld -m elf_x86_64 ';
solaris_ld = '/usr/bin/ld -64 ';
{$else}
{$endif}
{$ifdef i386}
const
gld = 'gld ';
solaris_ld = '/usr/bin/ld ';
{$endif }
{$ifdef sparc}
const
gld = 'gld ';
solaris_ld = 'ld ';
{$endif}
begin
Glibc2:=false;
@ -522,10 +525,10 @@ begin
Replace(cmdstr,'$STATIC',StaticStr);
Replace(cmdstr,'$STRIP',StripStr);
Replace(cmdstr,'$DYNLINK',DynLinkStr);
if use_gnu_ld then
if BinStr[1]<>'/' then
success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false)
else { Using utilsprefix has no sense on /usr/bin/ld }
success:=DoExec(FindUtil(BinStr),Trim(CmdStr),true,false);
success:=DoExec(BinStr,Trim(CmdStr),true,false);
{ Remove ReponseFile }
{$IFNDEF LinkTest}
@ -589,10 +592,10 @@ begin
linkres.free;
Replace(cmdstr,'$RESDATA',linkstr);
end;
if use_gnu_ld then
if BinStr[1]<>'/' then
success:=DoExec(FindUtil(utilsprefix+BinStr),CmdStr,true,false)
else { Using utilsprefix has no sense on /usr/bin/ld }
success:=DoExec(FindUtil(BinStr),Trim(CmdStr),true,false);
success:=DoExec(BinStr,Trim(CmdStr),true,false);
{ Strip the library ? }