From 2cfb790eb7560f8827f086bfa678e64888783957 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 13 Oct 2024 23:18:19 +0200
Subject: [PATCH]   * apply OptPass1FOP to FCVT.*.*

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

diff --git a/compiler/riscv/aoptcpurv.pas b/compiler/riscv/aoptcpurv.pas
index 3d07c30689..81961018cc 100644
--- a/compiler/riscv/aoptcpurv.pas
+++ b/compiler/riscv/aoptcpurv.pas
@@ -717,6 +717,7 @@ implementation
               A_FSQRT_S,
               A_FNEG_S,
               A_FLW,
+              A_FCVT_D_S,
               A_FMADD_S,A_FMSUB_S,A_FNMSUB_S,A_FNMADD_S:
                 result:=OptPass1FOP(p,A_FSGNJ_S);
               A_FADD_D,
@@ -726,6 +727,7 @@ implementation
               A_FSQRT_D,
               A_FNEG_D,
               A_FLD,
+              A_FCVT_S_D,
               A_FMADD_D,A_FMSUB_D,A_FNMSUB_D,A_FNMADD_D:
                 result:=OptPass1FOP(p,A_FSGNJ_D);
               else