diff options
author | tg74 <tg74@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-12 09:47:18 +0000 |
---|---|---|
committer | tg74 <tg74@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-01-12 09:47:18 +0000 |
commit | 5207c0b7f152b0df265af2982450f9dbecddd1cf (patch) | |
tree | 22b54e7288c32965b413fc4b841add1cce452586 | |
parent | d0f4a613791a7056404d1c8d72c5c40324e905ff (diff) | |
download | fpc-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.pas | 8 | ||||
-rw-r--r-- | avx512-0037785/compiler/x86/rax86.pas | 4 |
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; |