From ce8ec3ab5d5d8458b16c2e19e2650ec16822e542 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Mon, 10 Jun 2019 15:44:19 +0000
Subject: [PATCH] + introduced the asmmodes_x86_intel constant set

git-svn-id: trunk@42209 -
---
 compiler/systems.pas   | 7 +++++++
 compiler/x86/rax86.pas | 4 ++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/compiler/systems.pas b/compiler/systems.pas
index 33cf454d3a..0a31907d19 100644
--- a/compiler/systems.pas
+++ b/compiler/systems.pas
@@ -430,6 +430,13 @@ interface
          (name: 'RISCVHF'; supported:{$if defined(riscv32) or defined(riscv64)}true{$else}false{$endif})
        );
 
+       { x86 asm modes with an Intel-style syntax }
+       asmmodes_x86_intel = [
+         asmmode_i8086_intel,
+         asmmode_i386_intel,
+         asmmode_x86_64_intel
+       ];
+
     var
        targetinfos   : array[tsystem] of psysteminfo;
        arinfos       : array[tar] of parinfo;
diff --git a/compiler/x86/rax86.pas b/compiler/x86/rax86.pas
index 2048229a51..fa1ea8033a 100644
--- a/compiler/x86/rax86.pas
+++ b/compiler/x86/rax86.pas
@@ -258,7 +258,7 @@ begin
         begin
           if (getsupreg(opr.ref.base)=RS_EBP) and (opr.ref.offset>0) then
             begin
-              if current_settings.asmmode in [asmmode_i8086_intel,asmmode_i386_intel,asmmode_x86_64_intel] then
+              if current_settings.asmmode in asmmodes_x86_intel then
                 begin
                   case getsubreg(opr.ref.base) of
                     R_SUBW:
@@ -291,7 +291,7 @@ begin
             end
           else if (getsupreg(opr.ref.base)=RS_EBP) and (opr.ref.offset<0) then
             begin
-              if current_settings.asmmode in [asmmode_i8086_intel,asmmode_i386_intel,asmmode_x86_64_intel] then
+              if current_settings.asmmode in asmmodes_x86_intel then
                 begin
                   case getsubreg(opr.ref.base) of
                     R_SUBW: