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

working on internal assembler-reader x86 opsize local/global var

Browse Source 
git-svn-id: branches/tg74/avx512-0037785@47811 -
This commit is contained in:
tg74 2020-12-18 16:24:57 +00:00 committed by Michaël Van Canneyt
parent ecf5e51579
commit 295e2d4dff
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/x86/rax86.pas
View File

@ -1537,6 +1537,23 @@ procedure Tx86Instruction.SetInstructionOpsize;
result := true; result := true;
end; end;
end; end;
if result and (MemRefSize in [msiMultipleMinSize128, msiMultipleMinSize256, msiMultipleMinSize512]) then
begin
for i := 1 to ops do
if tx86operand(operands[i]).opr.typ in [OPR_REGISTER] then
begin
case tx86operand(operands[i]).opsize of
S_XMM: ;
S_YMM:;
S_ZMM:;
end;
//opsize := tx86operand(operands[i]).opsize;
//result := true;
break;
end;
end;
end end
else if not(MemRefSize in [msiMemRegSize]) then else if not(MemRefSize in [msiMemRegSize]) then
begin begin