From 7eb20b88a9b0828eb33c7a0d02fbc460586d5366 Mon Sep 17 00:00:00 2001 From: tg74 Date: Sun, 8 Nov 2020 22:16:55 +0000 Subject: [PATCH] cleanup git-svn-id: branches/tg74/avx512-0037785@47352 - --- compiler/x86/aasmcpu.pas | 5 ----- compiler/x86/rax86.pas | 11 +++++------ 2 files changed, 5 insertions(+), 11 deletions(-) diff --git a/compiler/x86/aasmcpu.pas b/compiler/x86/aasmcpu.pas index af790d81e5..ecadd5e0eb 100644 --- a/compiler/x86/aasmcpu.pas +++ b/compiler/x86/aasmcpu.pas @@ -2186,11 +2186,6 @@ implementation begin if aInput.typ = top_ref then begin - - // TODO delete - Message1(asmr_w_segment_override_ignored_in_64bit_mode, ' "top_ref: " ' + generic_regname(aInput.ref^.base)); - - if aInput.ref^.base <> NR_NO then begin if (aInput.ref^.offset <> 0) and diff --git a/compiler/x86/rax86.pas b/compiler/x86/rax86.pas index 5dcd4e8e8c..2b727f28ac 100644 --- a/compiler/x86/rax86.pas +++ b/compiler/x86/rax86.pas @@ -1446,7 +1446,6 @@ procedure Tx86Instruction.SetInstructionOpsize; end; var - iops: topsize; isBCastMemRef: boolean; begin if opsize<>S_NO then @@ -1484,10 +1483,10 @@ begin S_W : case tx86operand(operands[2]).opsize of S_L : - iops:=S_WL; + opsize:=S_WL; {$ifdef x86_64} S_Q : - iops:=S_WQ; + opsize:=S_WQ; {$endif} else ; @@ -1496,12 +1495,12 @@ begin begin case tx86operand(operands[2]).opsize of S_W : - iops:=S_BW; + opsize:=S_BW; S_L : - iops:=S_BL; + opsize:=S_BL; {$ifdef x86_64} S_Q : - iops:=S_BQ; + opsize:=S_BQ; {$endif} else ;