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

* clean up overlefts from "SCL" based approach

Browse Source 
git-svn-id: branches/tg74/avx512merge@43275 -
This commit is contained in:
florian 2019-10-20 14:43:16 +00:00
parent b73ebce671
commit 85ca3248bf
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/x86/aasmcpu.pas
View File

@ -5079,12 +5079,12 @@ implementation
inc(actMemCount); inc(actMemCount);
if ExistsSSEAVXReg and ExistsCode336 then actMemSize := actMemSize or OT_BITS32 if ExistsSSEAVXReg and ExistsCode336 then
else if ExistsSSEAVXReg and ExistsCode337 then actMemSize := actMemSize or OT_BITS64 actMemSize := actMemSize or OT_BITS32
else if ExistsSSEAVXReg and ExistsCode337 then
//if IF_SCL32 in insentry^.Flags then actMemSize := actMemSize or OT_BITS32 actMemSize := actMemSize or OT_BITS64
// else if IF_SCL64 in insentry^.Flags then actMemSize := actMemSize or OT_BITS64 else
else actMemSize:=actMemSize or (insentry^.optypes[j] and (OT_SIZE_MASK OR OT_VECTORBCST)); actMemSize:=actMemSize or (insentry^.optypes[j] and (OT_SIZE_MASK OR OT_VECTORBCST));
if (insentry^.optypes[j] and OT_REGMEM) = OT_REGMEM then if (insentry^.optypes[j] and OT_REGMEM) = OT_REGMEM then
begin begin
@ -5198,16 +5198,12 @@ implementation
MRefInfo := msiUnknown; MRefInfo := msiUnknown;
if not(ExistsCode336 or ExistsCode337) then if not(ExistsCode336 or ExistsCode337) then
//if (insentry^.Flags * [IF_SCL32, IF_SCL64] = []) then
begin
case actRegMemTypes and (OT_MMXRM or OT_XMMRM or OT_YMMRM or OT_ZMMRM or OT_REG_EXTRA_MASK) of case actRegMemTypes and (OT_MMXRM or OT_XMMRM or OT_YMMRM or OT_ZMMRM or OT_REG_EXTRA_MASK) of
OT_MMXRM: actMemSize := actMemSize or OT_BITS64; OT_MMXRM: actMemSize := actMemSize or OT_BITS64;
OT_XMMRM: actMemSize := actMemSize or OT_BITS128; OT_XMMRM: actMemSize := actMemSize or OT_BITS128;
OT_YMMRM: actMemSize := actMemSize or OT_BITS256; OT_YMMRM: actMemSize := actMemSize or OT_BITS256;
OT_ZMMRM: actMemSize := actMemSize or OT_BITS512; OT_ZMMRM: actMemSize := actMemSize or OT_BITS512;
end; end;
end;
case actMemSize of case actMemSize of
0: MRefInfo := msiNoSize; 0: MRefInfo := msiNoSize;