From f356d8cc5198111bcd53e61cbc6bebbe0fb16960 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 25 Sep 2024 22:25:01 +0200
Subject: [PATCH]   * fix RiscV32 compilation

---
 compiler/riscv/aoptcpurv.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/riscv/aoptcpurv.pas b/compiler/riscv/aoptcpurv.pas
index 52b16051a8..0c2cbabc9b 100644
--- a/compiler/riscv/aoptcpurv.pas
+++ b/compiler/riscv/aoptcpurv.pas
@@ -399,6 +399,7 @@ implementation
 
                           result:=true;
                         end
+{$ifndef RISCV32}
                       else if MatchInstruction(hp1,A_ADDIW) and
                         (taicpu(hp1).ops=3) and
                         MatchOperand(taicpu(p).oper[0]^,taicpu(hp1).oper[1]^) and
@@ -416,6 +417,7 @@ implementation
 
                           result:=true;
                          end
+{$endif RISCV32}
                       else
                         result:=OptPass1OP(p);
                     end