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

* make TRVCpuAsmOptimizer.OptPass1SLTIU look further ahead

Browse Source
This commit is contained in:
florian 2025-03-08 23:08:10 +01:00
parent d91be468da
commit e6d140df80
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/riscv/aoptcpurv.pas
View File

@ -751,10 +751,13 @@ implementation
(taicpu(hp1).ops=3) and
(taicpu(hp1).oper[2]^.val>0) and
MatchOperand(taicpu(hp1).oper[1]^,taicpu(p).oper[0]^) and
MatchOperand(taicpu(hp1).oper[0]^,taicpu(hp1).oper[1]^) then
(not RegModifiedBetween(taicpu(hp1).oper[0]^.reg, p,hp1)) then
begin
DebugMsg('Peephole SltiuAndi2Sltiu performed', hp1);
AllocRegBetween(taicpu(hp1).oper[0]^.reg,p,hp1,UsedRegs);
taicpu(p).loadreg(0,taicpu(hp1).oper[0]^.reg);
RemoveInstr(hp1);
result:=true;