From dd26c1502c8637ab6bc1741724fe876d66af1104 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 26 Aug 2024 21:42:20 +0100
Subject: [PATCH]   * estimate complexity of ordconst node better on RiscV

---
 compiler/nutils.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/nutils.pas b/compiler/nutils.pas
index be48e1f27d..0427a6faa5 100644
--- a/compiler/nutils.pas
+++ b/compiler/nutils.pas
@@ -927,6 +927,10 @@ implementation
                   if not(is_shifter_const(aint(tordconstnode(p).value.svalue),dummy)) then
                     result:=2;
 {$endif ARM}
+{$ifdef RISCV}
+                  if not(is_imm12(aint(tordconstnode(p).value.svalue))) then
+                    result:=2;
+{$endif RISCV}
                   exit;
                 end;
               exitn: