paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 10:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make ShlOp2Op optimization more fool proof

Browse Source
This commit is contained in:
florian 2021-09-09 23:10:21 +02:00
parent bad14c5dbd
commit 37bb10e893
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/x86/aoptx86.pas
View File

@ -4691,6 +4691,7 @@ unit aoptx86;
MatchInstruction(hp1,A_MOV,A_LEA,[]) and
MatchOpType(taicpu(hp1), top_ref, top_reg) and
(taicpu(p).oper[1]^.reg=taicpu(hp1).oper[0]^.ref^.index) and
(taicpu(p).oper[1]^.reg<>taicpu(hp1).oper[0]^.ref^.base) and
(taicpu(hp1).oper[0]^.ref^.scalefactor in [0,1]) then
begin
TransferUsedRegs(TmpUsedRegs);