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

* estimate complexity of ordconst node better on RiscV

Browse Source
This commit is contained in:
florian 2024-08-26 21:42:20 +01:00
parent 00d5351b55
commit dd26c1502c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nutils.pas
View File

@ -927,6 +927,10 @@ implementation
if not(is_shifter_const(aint(tordconstnode(p).value.svalue),dummy)) then if not(is_shifter_const(aint(tordconstnode(p).value.svalue),dummy)) then
result:=2; result:=2;
{$endif ARM} {$endif ARM}
{$ifdef RISCV}
if not(is_imm12(aint(tordconstnode(p).value.svalue))) then
result:=2;
{$endif RISCV}
exit; exit;
end; end;
exitn: exitn: