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

* correct handling of constant operands of aad/aam

Browse Source 
git-svn-id: trunk@12158 -
This commit is contained in:
florian 2008-11-18 16:21:58 +00:00
parent 145dc4d8d6
commit 80ff09c6f4
1 changed files with 2 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

@ -997,7 +997,8 @@ implementation
top_const : top_const :
begin begin
{ allow 2nd or 3rd operand being a constant and expect no size for shuf* etc. } { allow 2nd or 3rd operand being a constant and expect no size for shuf* etc. }
if (opsize=S_NO) and not(i in [1,2]) then { further, allow AAD and AAM with imm. operand }
if (opsize=S_NO) and not((i in [1,2]) or ((i=0) and (opcode in [A_AAD,A_AAM]))) then
message(asmr_e_invalid_opcode_and_operand); message(asmr_e_invalid_opcode_and_operand);
if (opsize<>S_W) and (aint(val)>=-128) and (val<=127) then if (opsize<>S_W) and (aint(val)>=-128) and (val<=127) then
ot:=OT_IMM8 or OT_SIGNED ot:=OT_IMM8 or OT_SIGNED