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

Function GetDefaultLibGCCDir adapted to case of Defaults not assigned (required for fpcmkcfg utility) reported by Andrew Kurushin

Browse Source 
git-svn-id: trunk@48157 -
This commit is contained in:
pierre 2021-01-14 22:59:16 +00:00
parent 9003114a8f
commit 50a13b4df4
1 changed files with 26 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
packages/fpmkunit/src/fpmkunit.pp
View File

@ -2850,6 +2850,8 @@ function GetDefaultLibGCCDir(CPU : TCPU;OS: TOS; var ErrorMessage: string): stri
var
CrossPrefix: string;
UseBinutilsPrefix: boolean;
SourceOS : TOS;
SourceCPU : TCPU;
function Get4thWord(const AString: string): string;
var p: pchar;
@ -2916,24 +2918,35 @@ var
begin
result := '';
ErrorMessage:='';
if (Defaults.SourceOS<>OS) then
if assigned(Defaults) then
begin
SourceOS:=Defaults.SourceOS;
SourceCPU:=Defaults.SourceCPU;
end
else
begin
SourceOS:=StringToOS({$I %FPCTARGETOS%});
SourceCPU:=StringToCPU({$I %FPCTARGETCPU%});
end;
if (SourceOS<>OS) then
UseBinutilsPrefix:=true;
if (Defaults.SourceCPU<>CPU) then
if (SourceCPU<>CPU) then
begin
{ we need to accept 32<->64 conversion }
{ expect for OpenBSD which does not allow this }
if not(
((Defaults.SourceCPU=aarch64) and (CPU=arm)) or
((Defaults.SourceCPU=powerpc64) and (CPU=powerpc)) or
((Defaults.SourceCPU=x86_64) and (CPU=i386)) or
((Defaults.SourceCPU=riscv64) and (CPU=riscv32)) or
((Defaults.SourceCPU=sparc64) and (CPU=sparc)) or
((CPU=aarch64) and (Defaults.SourceCPU=arm)) or
((CPU=powerpc64) and (Defaults.SourceCPU=powerpc)) or
((CPU=x86_64) and (Defaults.SourceCPU=i386)) or
((CPU=riscv64) and (Defaults.SourceCPU=riscv32)) or
((CPU=sparc64) and (Defaults.SourceCPU=sparc))
) or (Defaults.SourceOS=openbsd) then
((SourceCPU=aarch64) and (CPU=arm)) or
((SourceCPU=powerpc64) and (CPU=powerpc)) or
((SourceCPU=x86_64) and (CPU=i386)) or
((SourceCPU=riscv64) and (CPU=riscv32)) or
((SourceCPU=sparc64) and (CPU=sparc)) or
((CPU=aarch64) and (SourceCPU=arm)) or
((CPU=powerpc64) and (SourceCPU=powerpc)) or
((CPU=x86_64) and (SourceCPU=i386)) or
((CPU=riscv64) and (SourceCPU=riscv32)) or
((CPU=sparc64) and (SourceCPU=sparc))
) or (SourceOS=openbsd) then
UseBinutilsPrefix:=true;
end;
if not UseBinutilsPrefix then