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

* Delegate darwin ifdef out of program flow, towards const, for clarity

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2022-12-16 11:51:17 +01:00 committed by Michaël Van Canneyt
parent c0893e5c16
commit babcb631f8
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/utils/fpc.pp
View File

@ -44,6 +44,18 @@ program fpc;
{$endif HASAMIGA}
{$endif UNIX}
Const
{$ifdef darwin}
{ the mach-o format supports "fat" binaries whereby }
{ a single executable contains machine code for }
{ several architectures -> it is counter-intuitive }
{ and non-standard to use different binary names }
{ for cross-compilers vs. native compilers }
CrossSuffix = '';
{$else not darwin}
CrossSuffix = 'ross';
{$endif not darwin}
procedure error(const s : string);
@ -295,17 +307,7 @@ program fpc;
if TargetCPU <> SourceCPU then
begin
cpusuffix:=processortosuffix(TargetCPU);
{$ifndef darwin}
ppcbin:='ppcross'+cpusuffix;
{$else not darwin}
{ the mach-o format supports "fat" binaries whereby }
{ a single executable contains machine code for }
{ several architectures -> it is counter-intuitive }
{ and non-standard to use different binary names }
{ for cross-compilers vs. native compilers }
ppcbin:='ppc'+cpusuffix;
{$endif not darwin}
ppcbin:='ppc'+crosssuffix+cpusuffix;
end;
end
else if pos('-Xp',s)=1 then