paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 21:29:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't corrupt the assembler reader mode on i386 and i8086 if the syntax

Browse Source 
mode is set to something else but Delphi on the command line

git-svn-id: trunk@41422 -
This commit is contained in:
Jonas Maebe 2019-02-23 16:03:25 +00:00
parent 4e5f48a25e
commit ba22fe74c7
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/scanner.pas
View File

@ -572,6 +572,7 @@ implementation
{ Default to intel assembler for delphi/tp7 on i386/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
begin
{$ifdef i8086} {$ifdef i8086}
current_settings.asmmode:=asmmode_i8086_intel; current_settings.asmmode:=asmmode_i8086_intel;
{$else i8086} {$else i8086}
@ -579,6 +580,7 @@ implementation
{$endif i8086} {$endif i8086}
if changeinit then if changeinit then
init_settings.asmmode:=current_settings.asmmode; init_settings.asmmode:=current_settings.asmmode;
end;
{$endif i386 or i8086} {$endif i386 or i8086}
{ Exception support explicitly turned on (mainly for macpas, to } { Exception support explicitly turned on (mainly for macpas, to }