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

working on new testmethods avx512-memref-operands - 'compressed disp8*N'

Browse Source 
git-svn-id: branches/tg74/avx512-0037785@48870 -
This commit is contained in:
tg74 2021-03-02 16:30:31 +00:00 committed by Michaël Van Canneyt
parent 183fbf77af
commit 4cc3a7fb12
1 changed files with 37 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
tests/utils/avx/asmtestgenerator.pas
View File

@ -4831,12 +4831,26 @@ begin
sLogMsg := MapOperand(OItem1.Optyp) + MapOperand(OItem2.Optyp) + MapOperand(OItem3.Optyp);
if sLogMsg <> '' then
begin
if (sLogMsg <> 'XX') and
if (sLogMsg <> 'KX') and
(sLogMsg <> 'KY') and
(sLogMsg <> 'KZ') and
(sLogMsg <> 'RM') and
(sLogMsg <> 'RX') and
(sLogMsg <> 'XK') and
(sLogMsg <> 'XR') and
(sLogMsg <> 'XX') and
(sLogMsg <> 'XY') and
(sLogMsg <> 'XZ') and
(sLogMsg <> 'YK') and
(sLogMsg <> 'YR') and
(sLogMsg <> 'YX') and
(sLogMsg <> 'YY') and
(sLogMsg <> 'YZ') and
(sLogMsg <> 'ZK') and
(sLogMsg <> 'ZR') and
(sLogMsg <> 'ZX') and
(sLogMsg <> 'ZY') and
(sLogMsg <> 'ZZ') then
writeln('offen : ' + sLogMsg + ' (' + aInst + ')');
@ -5234,6 +5248,14 @@ begin
result.Add(AsmCodeBlockCompare(iAsmCounter, cmKORTESTNC));
end;
omYB32,
omYB64: begin
sMREF := OItem2.Values[il_Op2];
result.Add(format('%20s%6s,%6s + $2000', [aInst, 'YMM1', sMREF]));
result.Add(format('%20s%6s,%6s, %s', ['vpcmpeqd', 'K2', OItem1.Values[il_Op1], 'YMM1']));
result.Add(AsmCodeBlockCompare(iAsmCounter, cmKORTESTNC));
end;
omYB32I,
omYB64I:
begin
@ -5308,6 +5330,15 @@ begin
result.Add(AsmCodeBlockCompare(iAsmCounter, cmKORTESTNC));
end;
omZB32,
omZB64: begin
sMREF := OItem2.Values[il_Op2];
result.Add(format('%20s%6s,%6s + $2000', [aInst, 'ZMM1', sMREF]));
result.Add(format('%20s%6s,%6s, %s', ['vpcmpeqq', 'K2', OItem1.Values[il_Op1], 'ZMM1']));
result.Add(AsmCodeBlockCompare(iAsmCounter, cmKORTESTNC));
end;
omZB32I,
omZB64I:
begin
@ -5401,7 +5432,11 @@ begin
result.Add(AsmCodeBlockCompare(iAsmCounter, cmKORTESTNC));
end;
else begin
sLogMsg := '';
sLogMsg := MapOperand(OItem1.Optyp) + MapOperand(OItem2.Optyp) + MapOperand(OItem3.Optyp);
writeln('offen - : ' + sLogMsg + ' (' + aInst + ')');
end;
end;
sRegCombi := '';