diff options
| author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-10 15:44:19 +0000 |
|---|---|---|
| committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-10 15:44:19 +0000 |
| commit | ae44ea7ebf7a2e54476bcf9f63432b74cbf23519 (patch) | |
| tree | ba22d9b98782d474c21ebd598f44480f1cc1a18c | |
| parent | 272a1b5d7a49ee4349e172b7cb5331f533fd635d (diff) | |
| download | fpc-ae44ea7ebf7a2e54476bcf9f63432b74cbf23519.tar.gz | |
+ introduced the asmmodes_x86_intel constant set
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@42209 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | compiler/systems.pas | 7 | ||||
| -rw-r--r-- | 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: |