paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 07:03:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduced the asmmodes_x86_intel constant set

Browse Source 
git-svn-id: trunk@42209 -
This commit is contained in:
nickysn 2019-06-10 15:44:19 +00:00
parent 4f2ab3fb11
commit ce8ec3ab5d
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/systems.pas
View File

@ -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;

4
compiler/x86/rax86.pas
View File

@ -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: