Browse Source

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

git-svn-id: trunk@43600 -
pierre 5 years ago
parent
commit
a9bb9f7310
1 changed files with 10 additions and 0 deletions
  1. 10 0
      compiler/mips/cpugas.pas

+ 10 - 0
compiler/mips/cpugas.pas

@@ -35,6 +35,7 @@ unit cpugas;
         constructor CreateWithWriter(info: pasminfo; wr: TExternalAssemblerOutputFile; freewriter, smart: boolean); override;
         {# Constructs the command line for calling the assembler }
         function MakeCmdLine: TCmdStr; override;
+        procedure WriteExtraHeader; override;
       end;
 
       TMIPSInstrWriter = class(TCPUInstrWriter)
@@ -88,6 +89,15 @@ unit cpugas;
 //          Replace(result,'$ARCH','-march=pic32mx -mtune=pic32mx');      
       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                    }
 {****************************************************************************}