diff options
author | tg74 <tg74@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-12 09:37:18 +0000 |
---|---|---|
committer | tg74 <tg74@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-12 09:37:18 +0000 |
commit | 5ac575ddd7f9f156b90c582787b6fc4ff7b5a80c (patch) | |
tree | 00bc9392590bf81dec6c7c5bbca80ea1d116fc27 | |
parent | 3c4913e61f345c5737646296cd58617e24967921 (diff) | |
download | fpc-5ac575ddd7f9f156b90c582787b6fc4ff7b5a80c.tar.gz |
avxtestgenerator: backport from trunk
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/tg74@48143 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | fixes_3_2/tests/utils/avx/asmtestgenerator.pas | 29 |
1 files changed, 28 insertions, 1 deletions
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; |