From 5ac575ddd7f9f156b90c582787b6fc4ff7b5a80c Mon Sep 17 00:00:00 2001 From: tg74 Date: Tue, 12 Jan 2021 09:37:18 +0000 Subject: avxtestgenerator: backport from trunk git-svn-id: https://svn.freepascal.org/svn/fpc/branches/tg74@48143 3ad0048d-3df7-0310-abae-a5850022a9f2 --- fixes_3_2/tests/utils/avx/asmtestgenerator.pas | 29 +++++++++++++++++++++++++- 1 file changed, 28 insertions(+), 1 deletion(-) diff --git a/fixes_3_2/tests/utils/avx/asmtestgenerator.pas b/fixes_3_2/tests/utils/avx/asmtestgenerator.pas index acba5452a8..03f76ddf77 100644 --- a/fixes_3_2/tests/utils/avx/asmtestgenerator.pas +++ b/fixes_3_2/tests/utils/avx/asmtestgenerator.pas @@ -2316,6 +2316,32 @@ begin Item.Values.Add(' gRec.rZWord'); end + else if AnsiSameText(sl_Operand, 'MEM') then + begin + Item.OpNumber := il_Op; + Item.OpTyp := otMEM8; + Item.OpActive := true; + + Item.Values.Add('lByte'); + Item.Values.Add('gByte'); + Item.Values.Add('clByte'); + Item.Values.Add('cgByte'); + + Item.Values.Add('byte lByte'); + Item.Values.Add('byte gByte'); + Item.Values.Add('byte clByte'); + Item.Values.Add('byte cgByte'); + + Item.Values.Add(' lRec'); + Item.Values.Add(' gRec'); + + Item.Values.Add(' byte lRec'); + Item.Values.Add(' byte gRec'); + + Item.Values.Add(' lRec.rByte'); + Item.Values.Add(' gRec.rByte'); + end + else if AnsiSameText(sl_Operand, 'MEM8') then begin Item.OpNumber := il_Op; @@ -2580,7 +2606,8 @@ begin Item.Values.Add('lQWord'); Item.Values.Add('gQWord'); end - else if AnsiSameText(sl_Operand, 'IMM8') then + else if AnsiSameText(sl_Operand, 'IMM8') or + AnsiSameText(sl_Operand, 'IMM') then begin Item.OpNumber := il_Op; Item.OpTyp := otIMM8; -- cgit v1.2.1