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

Use -march and -mabi options for GNU assembler call.

Browse Source 
This avoids problems on newer GNU assembler, which might have
 a default ABI different from O32.

git-svn-id: trunk@22664 -
This commit is contained in:
pierre 2012-10-16 10:01:23 +00:00
parent 305206354a
commit 25b0de0c28
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/mips/cpugas.pas
View File

@ -26,13 +26,15 @@ unit cpugas;
interface
uses
cpubase,
cpubase, aasmbase, globtype,
aasmtai, aasmcpu, assemble, aggas;
type
TMIPSGNUAssembler = class(TGNUassembler)
nomacro, noreorder, noat : boolean;
constructor create(smart: boolean); override;
{# Constructs the command line for calling the assembler }
function MakeCmdLine: TCmdStr; override;
end;
TMIPSInstrWriter = class(TCPUInstrWriter)
@ -50,7 +52,7 @@ unit cpugas;
implementation
uses
aasmbase, cutils, systems,
cutils, systems, cpuinfo,
verbose, itcpugas, cgbase, cgutils;
function gas_std_regname(r:Tregister):string;
@ -92,6 +94,14 @@ unit cpugas;
noat:=false;
end;
function TMIPSGNUAssembler.MakeCmdLine: TCmdStr;
begin
result := Inherited MakeCmdLine;
{ ABI selection }
Replace(result,'$ABI','-mabi='+abitypestr[mips_abi]);
{ ACH selection }
Replace(result,'$ARCH','-march='+cputypestr[mips_cpu]);
end;
{****************************************************************************}
{ Helper routines for Instruction Writer }
@ -376,7 +386,7 @@ unit cpugas;
id: as_gas;
idtxt: 'AS';
asmbin: 'as';
asmcmd: '-mips2 $NOWARN -EL $PIC -o $OBJ $ASM';
asmcmd: '$ABI $ARCH $NOWARN -EL $PIC -o $OBJ $ASM';
supported_targets: [system_mipsel_linux];
flags: [af_allowdirect, af_needar, af_smartlink_sections];
labelprefix: '.L';
@ -388,7 +398,7 @@ unit cpugas;
id: as_gas;
idtxt: 'AS';
asmbin: 'as';
asmcmd: '-mips2 $NOWARN -EB $PIC -o $OBJ $ASM';
asmcmd: '$ABI $ARCH $NOWARN -EB $PIC -o $OBJ $ASM';
supported_targets: [system_mipseb_linux];
flags: [af_allowdirect, af_needar, af_smartlink_sections];
labelprefix: '.L';