paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 18:08:15 +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@48261 -
This commit is contained in:
tg74 2021-01-21 04:57:47 +00:00 committed by Michaël Van Canneyt
parent 4737a937b1
commit 84d05a5b0e
1 changed files with 46 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3601,6 +3601,7 @@ var
procedure SplitOperands(const aOperand1, aOperand2, aOperand3, aOperand4: string; var aRegCombi0, aRegCombi1, aRegCombi2, aRegCombi3, aRegCombi4: string);
var
i: integer;
s1: string;
s2: string;
s3: string;
@ -3630,6 +3631,51 @@ var
if iCnt3 > iMaxCnt then iMaxCnt := iCnt3;
if iCnt4 > iMaxCnt then iMaxCnt := iCnt4;
if (aOperand1 <> '') and (aRegCombi0 <> '') then
begin
aRegCombi0 := aRegCombi0 + ',';
aRegCombi1 := aRegCombi1 + ',';
aRegCombi2 := aRegCombi2 + ',';
aRegCombi3 := aRegCombi3 + ',';
aRegCombi4 := aRegCombi4 + ',';
end;
Text := StringReplace(trim(aOperand1), '|', #13#10, [rfReplaceAll]);
if Count = iMaxCnt then
begin
for i := 0 to iMaxCnt - 1 do
begin
case i of
0: aRegCombi0 := aRegCombi0 + ',' + Strings[i];
1: aRegCombi1 := aRegCombi1 + ',' + Strings[i];
2: aRegCombi2 := aRegCombi2 + ',' + Strings[i];
3: aRegCombi3 := aRegCombi3 + ',' + Strings[i];
4: aRegCombi4 := aRegCombi4 + ',' + Strings[i];
end;
end;
end
else
begin
if Count = 1 then
begin
for i := 0 to iMaxCnt - 1 do
begin
case i of
0: aRegCombi0 := aRegCombi0 + ',' + Strings[0];
1: aRegCombi1 := aRegCombi1 + ',' + Strings[0];
2: aRegCombi2 := aRegCombi2 + ',' + Strings[0];
3: aRegCombi3 := aRegCombi3 + ',' + Strings[0];
4: aRegCombi4 := aRegCombi4 + ',' + Strings[0];
end;
end;
end
else
begin
// TODO log
end;
end;
finally
Free;
end;