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

- disable Slti0B2B as well

Browse Source
This commit is contained in:
florian 2025-03-12 22:56:48 +01:00
parent ad50adf5f3
commit 860a2d0145
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

@ -627,6 +627,9 @@ implementation
(taicpu(p).oper[2]^.val=0) and (taicpu(p).oper[2]^.val=0) and
GetNextInstructionUsingReg(p, hp1, taicpu(p).oper[0]^.reg) then GetNextInstructionUsingReg(p, hp1, taicpu(p).oper[0]^.reg) then
begin begin
{
we cannot do this optimization yet as we don't know if taicpu(p).oper[0]^.reg isn't used after taking the branch
if MatchInstruction(hp1,A_Bxx) and if MatchInstruction(hp1,A_Bxx) and
(taicpu(hp1).ops=3) and (taicpu(hp1).ops=3) and
(taicpu(hp1).oper[0]^.typ=top_reg) and (taicpu(hp1).oper[0]^.typ=top_reg) and
@ -652,7 +655,7 @@ implementation
result:=true; result:=true;
exit; exit;
end end
else if MatchInstruction(hp1,A_ANDI) and else } if MatchInstruction(hp1,A_ANDI) and
(taicpu(hp1).ops=3) and (taicpu(hp1).ops=3) and
(taicpu(hp1).oper[2]^.val>0) and (taicpu(hp1).oper[2]^.val>0) and
MatchOperand(taicpu(hp1).oper[1]^,taicpu(p).oper[0]^) and MatchOperand(taicpu(hp1).oper[1]^,taicpu(p).oper[0]^) and