- Don't compile fpc_abs_real and fpc_sqr_real if they are already defined (Mantis #25342).

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@27408 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 4 insertions, 0 deletions

diff --git a/rtl/arm/math.inc b/rtl/arm/math.inc
index 00c47a60a0..7dce8b1ec4 100644
--- a/rtl/arm/math.inc
+++ b/rtl/arm/math.inc
@@ -15,6 +15,7 @@
  **********************************************************************}
 
 {$if defined(FPUFPA) or defined(FPUFPA10) or defined(FPUFPA11) or defined(FPUVFPV2) or defined(FPUVFPV3) or defined(FPUVFPV3_D16)}
+    {$ifndef FPC_SYSTEM_HAS_ABS}
     {$define FPC_SYSTEM_HAS_ABS}
     function fpc_abs_real(d : ValReal) : ValReal;compilerproc;
     begin
@@ -22,6 +23,8 @@
       runerror(207);
       result:=0;
     end;
+    {$endif FPC_SYSTEM_HAS_ABS}
+    {$ifndef FPC_SYSTEM_HAS_SQR}
     {$define FPC_SYSTEM_HAS_SQR}
     function fpc_sqr_real(d : ValReal) : ValReal;compilerproc;
     begin
@@ -29,6 +32,7 @@
       runerror(207);
       result:=0;
     end;
+    {$endif FPC_SYSTEM_HAS_SQR}
     {$ifndef FPC_SYSTEM_HAS_SQRT}
     {$define FPC_SYSTEM_HAS_SQRT}
     function fpc_sqrt_real(d : ValReal) : ValReal;compilerproc;