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

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

Browse Source 
git-svn-id: branches/tg74/avx512-0037785@47745 -
This commit is contained in:
tg74 2020-12-10 04:43:24 +00:00 committed by Michaël Van Canneyt
parent 6784bcb033
commit 7040587cc3
1 changed files with 2 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
compiler/x86/rax86.pas
View File

@ -743,13 +743,6 @@ begin
msiYMem64, msiYMem64,
msiZMem64: ; // ignore; gather/scatter opcodes haven a fixed element-size, not a fixed memory-size msiZMem64: ; // ignore; gather/scatter opcodes haven a fixed element-size, not a fixed memory-size
// the vector-register have indices with base of the memory-address in the memory-operand // the vector-register have indices with base of the memory-address in the memory-operand
// msiMultipleMinSize8: memrefsize := 8;
// msiMultipleMinSize16: memrefsize := 16;
// msiMultipleMinSize32: memrefsize := 32;
// msiMultipleMinSize64: memrefsize := 64;
//msiMultipleMinSize128: memrefsize := 128;
//msiMultipleMinSize256: memrefsize := 256;
//msiMultipleMinSize512: memrefsize := 512;
msiMultipleMinSize8, msiMultipleMinSize8,
msiMultipleMinSize16, msiMultipleMinSize16,
msiMultipleMinSize32, msiMultipleMinSize32,
@ -908,7 +901,8 @@ begin
if (tx86operand(operands[i]).opsize = S_NO) then if (tx86operand(operands[i]).opsize = S_NO) then
begin begin
case operands[i].Opr.Typ of case operands[i].Opr.Typ of
OPR_REFERENCE: OPR_REFERENCE,
OPR_LOCAL:
begin begin
if ExistsBCST then if ExistsBCST then
begin begin
@ -1304,41 +1298,6 @@ begin
Internalerror(2019081008); Internalerror(2019081008);
end; end;
end; end;
OPR_LOCAL:
if not(ExistsBCST) then
begin
case MemRefInfo(opcode).MemRefSize of
msiMultipleMinSize8:
begin
Message2(asmr_w_check_mem_operand_automap_multiple_size, GetString(false), '"8 bit memory operand"');
end;
msiMultipleMinSize16:
begin
Message2(asmr_w_check_mem_operand_automap_multiple_size, GetString(false), '"16 bit memory operand"');
end;
msiMultipleMinSize32:
begin
Message2(asmr_w_check_mem_operand_automap_multiple_size, GetString(false), '"32 bit memory operand"');
end;
msiMultipleMinSize64:
begin
Message2(asmr_w_check_mem_operand_automap_multiple_size, GetString(false), '"64 bit memory operand"');
end;
msiMultipleMinSize128:
begin
Message2(asmr_w_check_mem_operand_automap_multiple_size, GetString(false), '"128 bit memory operand"');
end;
msiMultipleMinSize256:
begin
Message2(asmr_w_check_mem_operand_automap_multiple_size, GetString(false), '"256 bit memory operand"');
end;
msiMultipleMinSize512:
begin
Message2(asmr_w_check_mem_operand_automap_multiple_size, GetString(false), '"512 bit memory operand"');
end;
else;
end;
end;
OPR_CONSTANT: OPR_CONSTANT:
case MemRefInfo(opcode).ConstSize of case MemRefInfo(opcode).ConstSize of
csiMem8: begin csiMem8: begin
@ -1550,12 +1509,6 @@ procedure Tx86Instruction.SetInstructionOpsize;
if bBroadcastMemRef then if bBroadcastMemRef then
begin begin
//case MemRefSizeBCST of
// msbBCST32: opsize := S_L;
// msbBCST64: opsize := S_Q;
// else opsize := S_NO;
//end;
opsize := S_NO; opsize := S_NO;
result := true; result := true;
end end