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

+ RiscV: FcmpAndi2Fcmp optimization

Browse Source
This commit is contained in:
florian 2025-03-19 23:00:22 +01:00
parent 36e9e39bca
commit 61bf79c0ac
1 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
compiler/riscv/aoptcpurv.pas
View File

@ -59,6 +59,7 @@ type
function OptPass1SxxI(var p: tai): boolean;
function OptPass1Add(var p: tai): boolean;
function OptPass1Sub(var p: tai): boolean;
function OptPass1Fcmp(var p: tai): boolean;
procedure RemoveInstr(var orig: tai; moveback: boolean=true);
end;
@ -255,6 +256,39 @@ implementation
end;
function TRVCpuAsmOptimizer.OptPass1Fcmp(var p: tai) : boolean;
var
hp1 : tai;
begin
result:=false;
{ replace
<FOp> %reg3,%reg2,%reg1
<mvop> %reg4,%reg3,%reg3
dealloc %reg3
by
<FOp> %reg4,%reg2,%reg1
?
}
if GetNextInstruction(p,hp1) and
MatchInstruction(hp1,A_ANDI) and
MatchOperand(taicpu(p).oper[0]^,taicpu(hp1).oper[1]^) and
((taicpu(hp1).oper[2]^.val and 1)=1) then
begin
TransferUsedRegs(TmpUsedRegs);
UpdateUsedRegs(TmpUsedRegs, tai(p.next));
if not(RegUsedAfterInstruction(taicpu(hp1).oper[1]^.reg,hp1,TmpUsedRegs)) then
begin
taicpu(p).loadoper(0,taicpu(hp1).oper[0]^);
DebugMsg('Peephole FcmpAndi2Fcmp done',p);
RemoveInstruction(hp1);
result:=true;
end;
end;
end;
function TRVCpuAsmOptimizer.OptPass1FSGNJ(var p: tai; mvop: tasmop): boolean;
var
hp1 : tai;
@ -922,6 +956,13 @@ implementation
A_FMADD_D,A_FMSUB_D,A_FNMSUB_D,A_FNMADD_D,
A_FMIN_D,A_FMAX_D:
result:=OptPass1FOP(p,A_FSGNJ_D);
A_FEQ_S,
A_FLT_S,
A_FLE_S,
A_FEQ_D,
A_FLT_D,
A_FLE_D:
result:=OptPass1Fcmp(p);
A_FSGNJ_S,
A_FSGNJ_D:
result:=OptPass1FSGNJ(p,taicpu(p).opcode);