From 513c8983e0b7fa03529185436c6da150346f5f11 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Mon, 13 Feb 2023 22:43:26 +0000
Subject: [PATCH]  Fix compilation error with -dFPC_USE_LIBC for loongarch64
 cpu

---
 rtl/loongarch64/math.inc | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/rtl/loongarch64/math.inc b/rtl/loongarch64/math.inc
index 31e2a55c03..28ed89b6c1 100644
--- a/rtl/loongarch64/math.inc
+++ b/rtl/loongarch64/math.inc
@@ -14,6 +14,7 @@
 
  **********************************************************************}
 
+    {$ifndef FPC_SYSTEM_HAS_INT}
     {$define FPC_SYSTEM_HAS_INT}
     function fpc_int_real(d : ValReal) : ValReal;assembler;nostackframe;compilerproc;
       asm
@@ -23,7 +24,9 @@
         frint.d $fa0, $fa0
         movgr2fcsr $r3, $t0
       end;
+    {$endif ndef FPC_SYSTEM_HAS_INT}
 
+    {$ifndef FPC_SYSTEM_HAS_FRAC}
     {$define FPC_SYSTEM_HAS_FRAC}
     function fpc_frac_real(d : ValReal) : ValReal;assembler;nostackframe;compilerproc;
       asm
@@ -44,3 +47,5 @@
         fdiv.d $fa0, $fa0, $fa1
         // jr $ra
       end;
+    {$endif ndef FPC_SYSTEM_HAS_FRAC}
+