paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-04 18:58:30 +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;
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) }