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

split opcode-testcode in more specific testfiles (operand-types)

Browse Source 
git-svn-id: branches/tg74/avx512-0037785@47256 -
This commit is contained in:
tg74 2020-10-30 15:39:27 +00:00
parent 7b9892c641
commit 12ccccd610
1 changed files with 23 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3281,6 +3281,7 @@ function TAVXTestGenerator.InternalMakeTestFiles(aX64, aAVX512, aSAE: boolean; a
var var
i: integer; i: integer;
sData: string; sData: string;
sDestFile: string;
sl: TStringList; sl: TStringList;
slAsm: TStringList; slAsm: TStringList;
LastOpCode: String; LastOpCode: String;
@ -3321,18 +3322,18 @@ begin
NewOpCode := ansilowercase(sl[0]); NewOpCode := ansilowercase(sl[0]);
if NewOpCode <> '' then if NewOpCode <> '' then
begin begin
if NewOpCode <> LastOpCode then //if NewOpCode <> LastOpCode then
begin //begin
if LastOpCode <> '' then // if LastOpCode <> '' then
begin // begin
SaveFile(slAsm, LastOpCode, aDestPath, aFileExt, aHeaderList, aFooterList); // SaveFile(slAsm, LastOpCode, aDestPath, aFileExt, aHeaderList, aFooterList);
writeln(format('%s%s%s', [aDestPath, LastOpCode, aFileExt])); // writeln(format('%s%s%s', [aDestPath, LastOpCode, aFileExt]));
//
slAsm.Clear; // slAsm.Clear;
LastOpCode := NewOpCode; // LastOpCode := NewOpCode;
end // end
else LastOpCode := NewOpCode; // else LastOpCode := NewOpCode;
end; //end;
if (not(aX64) and (sl[1] = '1')) or // i386 if (not(aX64) and (sl[1] = '1')) or // i386
@ -3346,14 +3347,22 @@ begin
slAsm.Add(' ' + sl[0]); slAsm.Add(' ' + sl[0]);
end end
else TAsmTestGenerator.CalcTestData(aX64, aAVX512 and (sl[3] = '1'), aSAE, sl[0], sl[4], sl[5], sl[6], sl[7], slAsm); else TAsmTestGenerator.CalcTestData(aX64, aAVX512 and (sl[3] = '1'), aSAE, sl[0], sl[4], sl[5], sl[6], sl[7], slAsm);
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))]);
SaveFile(slAsm, sDestFile, aDestPath, aFileExt, aHeaderList, aFooterList);
writeln(format('%s%s%s', [aDestPath, sDestFile, aFileExt]));
slAsm.Clear;
end; end;
end; end;
end; end;
if NewOpCode <> '' then if NewOpCode <> '' then
begin begin
SaveFile(slAsm, NewOpCode, aDestPath, aFileExt, aHeaderList, aFooterList); //SaveFile(slAsm, NewOpCode, aDestPath, aFileExt, aHeaderList, aFooterList);
writeln(format('%s%s%s', [aDestPath, NewOpCode, aFileExt])); //writeln(format('%s%s%s', [aDestPath, NewOpCode, aFileExt]));
end; end;
finally finally