paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: branches/i8086@23838 -
This commit is contained in:
nickysn 2013-03-14 22:19:10 +00:00
parent 99212c0f9c
commit 7d212a7e79
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/scanner.pas
View File

@ -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} {$if defined(i386) or defined(i8086)}
{ Default to intel assembler for delphi/tp7 on i386 } { 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) }