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

* patch by Marģers: patch to enable ENTER asm instruction

Browse Source 
+ test
This commit is contained in:
florian 2024-05-29 23:15:09 +02:00
parent a6fe41f3f6
commit d5ab671ec3
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/x86/aasmcpu.pas
View File

@ -1664,8 +1664,9 @@ implementation
else
begin
{ allow 2nd, 3rd or 4th operand being a constant and expect no size for shuf* etc. }
{ further, allow AAD and AAM with imm. operand }
{ further, allow ENTER, AAD and AAM with imm. operand }
if (opsize=S_NO) and not((i in [1,2,3])
or ((i=0) and (opcode in [A_ENTER]))
{$ifndef x86_64}
or ((i=0) and (opcode in [A_AAD,A_AAM]))
{$endif x86_64}

10
tests/test/tasm30.pp Normal file
View File

@ -0,0 +1,10 @@
{ %NORUN }
{ %CPU=i386,x86_64 }
program tasm30;
begin
asm
enter $5,$1234
end;
end.