Parcourir la source

* default to intel assembler for delphi/tp7 modes also on i8086

git-svn-id: branches/i8086@23838 -
nickysn il y a 12 ans
Parent
commit
7d212a7e79
1 fichiers modifiés avec 3 ajouts et 3 suppressions
  1. 3 3
      compiler/scanner.pas

+ 3 - 3
compiler/scanner.pas

@@ -505,14 +505,14 @@ implementation
              current_settings.packenum:=4;
              current_settings.packenum:=4;
            if changeinit then
            if changeinit then
              init_settings.packenum:=current_settings.packenum;
              init_settings.packenum:=current_settings.packenum;
-{$ifdef i386}
-           { Default to intel assembler for delphi/tp7 on i386 }
+{$if defined(i386) or defined(i8086)}
+           { Default to intel assembler for delphi/tp7 on i386/i8086 }
            if (m_delphi in current_settings.modeswitches) or
            if (m_delphi in current_settings.modeswitches) or
               (m_tp7 in current_settings.modeswitches) then
               (m_tp7 in current_settings.modeswitches) then
              current_settings.asmmode:=asmmode_i386_intel;
              current_settings.asmmode:=asmmode_i386_intel;
            if changeinit then
            if changeinit then
              init_settings.asmmode:=current_settings.asmmode;
              init_settings.asmmode:=current_settings.asmmode;
-{$endif i386}
+{$endif i386 or i8086}
 
 
            { Exception support explicitly turned on (mainly for macpas, to }
            { Exception support explicitly turned on (mainly for macpas, to }
            { compensate for lack of interprocedural goto support)          }
            { compensate for lack of interprocedural goto support)          }