Răsfoiți Sursa

Fix LLVM compilation by casting untyped real constants to double type, as LLVM does not support extended type constant apparently

git-svn-id: trunk@47551 -
pierre 4 ani în urmă
părinte
comite
6d900039c4
1 a modificat fișierele cu 6 adăugiri și 6 ștergeri
  1. 6 6
      rtl/inc/genmath.inc

+ 6 - 6
rtl/inc/genmath.inc

@@ -66,12 +66,12 @@ type
   the system interface symbol table. }
 
 const
-      PIO4   =  7.85398163397448309616E-1;    {  pi/4        }
-      SQRT2  =  1.41421356237309504880;       {  sqrt(2)     }
-      LOG2E  =  1.4426950408889634073599;     {  1/log(2)    }
-      lossth =  1.073741824e9;
-      MAXLOG =  8.8029691931113054295988E1;    { log(2**127)  }
-      MINLOG = -8.872283911167299960540E1;     { log(2**-128) }
+      PIO4   {$ifdef llvm} : double {$endif}  =  7.85398163397448309616E-1;    {  pi/4        }
+      SQRT2  {$ifdef llvm} : double {$endif}  =  1.41421356237309504880;       {  sqrt(2)     }
+      LOG2E  {$ifdef llvm} : double {$endif}  =  1.4426950408889634073599;     {  1/log(2)    }
+      lossth {$ifdef llvm} : double {$endif} =  1.073741824e9;
+      MAXLOG {$ifdef llvm} : double {$endif} =  8.8029691931113054295988E1;    { log(2**127)  }
+      MINLOG {$ifdef llvm} : double {$endif} = -8.872283911167299960540E1;     { log(2**-128) }
       H2_54: double = 18014398509481984.0;    {2^54}
       huge: double = 1e300;
       one:  double = 1.0;