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

bugfix internal assembler compiling vpmov*

Browse Source 
git-svn-id: branches/tg74/avx512-0037785@47386 -
This commit is contained in:
tg74 2020-11-11 05:07:56 +00:00
parent 58c2e2d778
commit 99882e8d59
1 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/x86/rax86.pas
View File

@ -544,6 +544,21 @@ begin
end; end;
end; end;
end; end;
msiMemRegx16y32z64:
begin
for j := 1 to ops do
begin
if operands[j].Opr.Typ = OPR_REGISTER then
begin
case getsubreg(operands[j].opr.reg) of
R_SUBMMX: memrefsize := 16;
R_SUBMMY: memrefsize := 32;
R_SUBMMZ: memrefsize := 64;
else Message(asmr_e_unable_to_determine_reference_size);
end;
end;
end;
end;
msiMemRegx32y64: msiMemRegx32y64:
begin begin
for j := 1 to ops do for j := 1 to ops do
@ -558,6 +573,21 @@ begin
end; end;
end; end;
end; end;
msiMemRegx32y64z128:
begin
for j := 1 to ops do
begin
if operands[j].Opr.Typ = OPR_REGISTER then
begin
case getsubreg(operands[j].opr.reg) of
R_SUBMMX: memrefsize := 32;
R_SUBMMY: memrefsize := 64;
R_SUBMMZ: memrefsize := 128;
else Message(asmr_e_unable_to_determine_reference_size);
end;
end;
end;
end;
msiMemRegx64y128: msiMemRegx64y128:
begin begin
for j := 1 to ops do for j := 1 to ops do
@ -712,7 +742,7 @@ begin
msiMultiple: msiMultiple:
; ;
else else
Internalerror(2019081005); Internalerror(2020111001);
end; end;
if memrefsize > -1 then if memrefsize > -1 then