|
@@ -505,14 +505,14 @@ implementation
|
|
|
current_settings.packenum:=4;
|
|
|
if changeinit then
|
|
|
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
|
|
|
(m_tp7 in current_settings.modeswitches) then
|
|
|
current_settings.asmmode:=asmmode_i386_intel;
|
|
|
if changeinit then
|
|
|
init_settings.asmmode:=current_settings.asmmode;
|
|
|
-{$endif i386}
|
|
|
+{$endif i386 or i8086}
|
|
|
|
|
|
{ Exception support explicitly turned on (mainly for macpas, to }
|
|
|
{ compensate for lack of interprocedural goto support) }
|