paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 18:10:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

cleanup

Browse Source 
git-svn-id: branches/tg74/avx512-0037785@47352 -
This commit is contained in:
tg74 2020-11-08 22:16:55 +00:00
parent 3f05580f21
commit 7eb20b88a9
2 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/x86/aasmcpu.pas
View File

@ -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

11
compiler/x86/rax86.pas
View File

@ -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
;