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

* look ahead for ShlOp2Op optimization

Browse Source
This commit is contained in:
florian 2022-09-25 20:43:57 +02:00
parent 1a66cde35b
commit 9375257365
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/aoptx86.pas
View File

@ -6558,11 +6558,11 @@ unit aoptx86;
if MatchOpType(taicpu(p), top_const, top_reg) and if MatchOpType(taicpu(p), top_const, top_reg) and
(taicpu(p).oper[0]^.val in [1..3]) and (taicpu(p).oper[0]^.val in [1..3]) and
GetNextInstruction(p, hp1) and GetNextInstructionUsingReg(p,hp1,taicpu(p).oper[1]^.reg) and
((MatchInstruction(hp1,A_MOV,A_LEA,[]) and ((MatchInstruction(hp1,A_MOV,A_LEA,[]) and
MatchOpType(taicpu(hp1), top_ref, top_reg)) or MatchOpType(taicpu(hp1),top_ref,top_reg)) or
(MatchInstruction(hp1,A_FST,A_FSTP,A_FLD,[]) and (MatchInstruction(hp1,A_FST,A_FSTP,A_FLD,[]) and
MatchOpType(taicpu(hp1), top_ref)) MatchOpType(taicpu(hp1),top_ref))
) and ) and
(taicpu(p).oper[1]^.reg=taicpu(hp1).oper[0]^.ref^.index) 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(p).oper[1]^.reg<>taicpu(hp1).oper[0]^.ref^.base) and