paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 23:50:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: branches/tg74/avx512-0037785@48437 -
This commit is contained in:
tg74 2021-01-27 15:48:20 +00:00 committed by Michaël Van Canneyt
parent 56cc421c77
commit d38e292082
3 changed files with 181 additions and 170 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4830,7 +4830,8 @@ begin
else;
end;
if OpMode <> omUnknown then
begin
sInstruction := format('%20s', [aInst]);
for il_Op1 := 0 to OItem1.Values.Count - 1 do
@ -5038,6 +5039,7 @@ begin
end;
end;
end;
end;

15
tests/utils/avx/avxopcodes.pas
View File

@ -3466,8 +3466,15 @@ begin
if NewOpCode <> '' then
begin
if (not(aX64) and (sl[1] = '1')) or // i386
(aX64 and (sl[2] = '1')) then // x86_64
if (
(not(aX64) and (sl[1] = '1')) or // i386
(aX64 and (sl[2] = '1'))
) and
(
sl[3] = '1'
)
then // x86_64
begin
sDestFile := format('%s_%d%s', [NewOpcode, i, trim(copy(sl[4],1,1) + copy(sl[5],1,1) + copy(sl[6],1,1) + copy(sl[7],1,1))]);
@ -3487,10 +3494,12 @@ begin
TAsmTestGenerator.CalcTestDataCDisp8(aX64, aAVX512 and (sl[3] = '1'), aSAE, sl[0], sl[4], sl[5], sl[6], sl[7], slAsm);
end;
if trim(slAsm.Text) <> '' then
begin
sDestFile := 'CDISP8_' + sDestFile;
SaveFile(slAsm, sDestFile, aDestPath, aFileExt, slLocalHeader, aFooterList);
writeln(format('%s%s%s', [aDestPath, sDestFile, aFileExt]));
end;
finally
FreeAndNil(slLocalHeader);
end;

2
tests/utils/avx/avxtestgenerator.pp
View File

@ -62,7 +62,7 @@ begin
'n': MakeTestFiles(tfNasm, x64, AVX512, false, Path, Filemask);
'I': MakeTestFiles(tfFPCInc, x64, AVX512, false, Path, Filemask);
'm': MakeTestFiles(tfFPCMRef, x64, AVX512, false, Path, Filemask);
'd': MakeTestFiles(tfFPCCDisp8, x64, AVX512, false, Path, Filemask);
'd': MakeTestFiles(tfFPCCDisp8, x64, true, false, Path, Filemask);
'l': ListMemRefState;
end;
end;