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

* fix (hopefully) build without an ld.bfd variant

Browse Source
This commit is contained in:
florian 2023-03-02 22:56:23 +01:00
parent 40f23030dc
commit 708aaa7b97
3 changed files with 5 additions and 5 deletions

6
compiler/link.pas
View File

@ -88,7 +88,7 @@ interface
Info : TLinkerInfo;
Constructor Create;override;
Destructor Destroy;override;
Function FindUtil(const s:TCmdStr):TCmdStr;
Function FindUtil(const s:TCmdStr;throwerror: boolean=true):TCmdStr;
Function CatFileContent(para:TCmdStr):TCmdStr;
Function DoExec(const command:TCmdStr; para:TCmdStr;showinfo,useshell:boolean):boolean;
procedure SetDefaultInfo;virtual;
@ -812,7 +812,7 @@ Implementation
end;
Function TExternalLinker.FindUtil(const s:TCmdStr):TCmdStr;
Function TExternalLinker.FindUtil(const s:TCmdStr;throwerror: boolean=true):TCmdStr;
var
Found : boolean;
FoundBin : TCmdStr;
@ -841,7 +841,7 @@ Implementation
Found:=FindFile(utilexe,utilsdirectory,false,Foundbin);
if (not Found) then
Found:=FindExe(utilexe,false,Foundbin);
if (not Found) and not(cs_link_nolink in current_settings.globalswitches) then
if throwerror and (not Found) and not(cs_link_nolink in current_settings.globalswitches) then
begin
Message1(exec_e_util_not_found,utilexe);
current_settings.globalswitches:=current_settings.globalswitches+[cs_link_nolink];

2
compiler/systems/t_android.pas
View File

@ -440,7 +440,7 @@ begin
s:=utilsprefix+binstr+'.bfd';
if (source_info.exeext<>'') then
s:=s+source_info.exeext;
s:=FindUtil(s);
s:=FindUtil(s,false);
if FileExists(s, True) then
binstr:=s
else

2
compiler/systems/t_linux.pas
View File

@ -832,7 +832,7 @@ begin
if cs_large in current_settings.globalswitches then
cmdstr:=cmdstr+' --no-relax';
s:=FindUtil(utilsprefix+BinStr+'.bfd');
s:=FindUtil(utilsprefix+BinStr+'.bfd',false);
if FileExists(s, True) then
binstr:=s
else