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

internal assembler-reader x86 opsize local/global var - cleanup

Browse Source 
git-svn-id: branches/tg74/avx512-0037785@47899 -
This commit is contained in:
tg74 2020-12-30 07:10:37 +00:00 committed by Michaël Van Canneyt
parent 95fae1a81d
commit 195c8b599c
1 changed files with 1 additions and 17 deletions

18
compiler/x86/aasmcpu.pas
View File

@ -1827,24 +1827,8 @@ implementation
for i:=0 to p^.ops-1 do
begin
insot:=p^.optypes[i];
if ((insot and (OT_XMMRM or OT_REG_EXTRA_MASK)) = OT_XMMRM) OR
((insot and (OT_YMMRM or OT_REG_EXTRA_MASK)) = OT_YMMRM) OR
((insot and (OT_ZMMRM or OT_REG_EXTRA_MASK)) = OT_ZMMRM) then
begin
if (insot and OT_SIZE_MASK) = 0 then
begin
case insot and (OT_XMMRM or OT_YMMRM or OT_ZMMRM or OT_REG_EXTRA_MASK) of
OT_MEM128: insot := insot or OT_BITS128;
OT_MEM256: insot := insot or OT_BITS256;
OT_MEM512: insot := insot or OT_BITS512;
else
;
end;
end;
end;
currot:=oper[i]^.ot;
{ Check the operand flags }
if (insot and (not currot) and OT_NON_SIZE)<>0 then
exit;