paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-16 18:59:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add '.module nomips16' at assembly entry for mips/mipsel unless -a5 option is used

Browse Source 
git-svn-id: trunk@43600 -
This commit is contained in:
pierre 2019-11-27 22:56:35 +00:00
parent ba73f7376f
commit a9bb9f7310
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/mips/cpugas.pas
View File

@ -35,6 +35,7 @@ unit cpugas;
constructor CreateWithWriter(info: pasminfo; wr: TExternalAssemblerOutputFile; freewriter, smart: boolean); override; constructor CreateWithWriter(info: pasminfo; wr: TExternalAssemblerOutputFile; freewriter, smart: boolean); override;
{# Constructs the command line for calling the assembler } {# Constructs the command line for calling the assembler }
function MakeCmdLine: TCmdStr; override; function MakeCmdLine: TCmdStr; override;
procedure WriteExtraHeader; override;
end; end;
TMIPSInstrWriter = class(TCPUInstrWriter) TMIPSInstrWriter = class(TCPUInstrWriter)
@ -88,6 +89,15 @@ unit cpugas;
// Replace(result,'$ARCH','-march=pic32mx -mtune=pic32mx'); // Replace(result,'$ARCH','-march=pic32mx -mtune=pic32mx');
end; end;
procedure TMIPSGNUAssembler.WriteExtraHeader;
var
i : longint;
begin
if not (cs_asm_pre_binutils_2_25 in current_settings.globalswitches) then
writer.AsmWriteln(#9'.module nomips16');
end;
{****************************************************************************} {****************************************************************************}
{ Helper routines for Instruction Writer } { Helper routines for Instruction Writer }
{****************************************************************************} {****************************************************************************}