summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortg74 <tg74@3ad0048d-3df7-0310-abae-a5850022a9f2>2021-01-12 09:47:18 +0000
committertg74 <tg74@3ad0048d-3df7-0310-abae-a5850022a9f2>2021-01-12 09:47:18 +0000
commit5207c0b7f152b0df265af2982450f9dbecddd1cf (patch)
tree22b54e7288c32965b413fc4b841add1cce452586
parentd0f4a613791a7056404d1c8d72c5c40324e905ff (diff)
downloadfpc-5207c0b7f152b0df265af2982450f9dbecddd1cf.tar.gz
cleanup bugfix 0037785
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/tg74@48145 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r--avx512-0037785/compiler/x86/aasmcpu.pas8
-rw-r--r--avx512-0037785/compiler/x86/rax86.pas4
2 files changed, 9 insertions, 3 deletions
diff --git a/avx512-0037785/compiler/x86/aasmcpu.pas b/avx512-0037785/compiler/x86/aasmcpu.pas
index fb2384c25f..c1b37e3f32 100644
--- a/avx512-0037785/compiler/x86/aasmcpu.pas
+++ b/avx512-0037785/compiler/x86/aasmcpu.pas
@@ -4910,6 +4910,7 @@ implementation
var
AsmOp: TasmOp;
i,j: longint;
+ iCntOpcodeValError: longint;
insentry : PInsEntry;
MRefInfo: TMemRefSizeInfo;
@@ -4971,6 +4972,7 @@ implementation
new(InsTabMemRefSizeInfoCache);
FillChar(InsTabMemRefSizeInfoCache^,sizeof(TInsTabMemRefSizeInfoCache),0);
+ iCntOpcodeValError := 0;
for AsmOp := low(TAsmOp) to high(TAsmOp) do
begin
i := InsTabCache^[AsmOp];
@@ -5506,7 +5508,8 @@ implementation
(not(InsTabMemRefSizeInfoCache^[AsmOp].MemRefSize in MemRefMultiples)) then
begin
// combination (attsuffix <> "AttSufNONE") and (MemRefSize is not in MemRefMultiples) is not supported =>> check opcode-definition in x86ins.dat');
- //InternalError(20210102);
+
+ inc(iCntOpcodeValError);
Str(gas_needsuffix[AsmOp],hs1);
Str(InsTabMemRefSizeInfoCache^[AsmOp].MemRefSize,hs2);
Message3(asmr_e_not_supported_combination_attsuffix_memrefsize_type,
@@ -5515,6 +5518,9 @@ implementation
end;
end;
+ if iCntOpcodeValError > 0 then
+ InternalError(2021011201);
+
for AsmOp := low(TAsmOp) to high(TAsmOp) do
begin
diff --git a/avx512-0037785/compiler/x86/rax86.pas b/avx512-0037785/compiler/x86/rax86.pas
index 1e4eccddf2..5f06215607 100644
--- a/avx512-0037785/compiler/x86/rax86.pas
+++ b/avx512-0037785/compiler/x86/rax86.pas
@@ -1682,8 +1682,8 @@ begin
;
end;
end;
- A_MOVSS,
- A_VMOVSS,
+ //A_MOVSS,
+ //A_VMOVSS,
A_MOVD : { movd is a move from a mmx register to a
32 bit register or memory, so no opsize is correct here PM }
exit;