paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 20:29:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@47551 -
This commit is contained in:
pierre 2020-11-24 08:02:29 +00:00
parent e35e5ad349
commit 6d900039c4
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/genmath.inc
View File

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