paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 12:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Revert wrong change, llvm supports extended constants

Browse Source 
git-svn-id: trunk@47554 -
This commit is contained in:
pierre 2020-11-24 13:55:27 +00:00
parent de6f3ea9b5
commit e4e1ea586c
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. }
const
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) }
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) }
H2_54: double = 18014398509481984.0; {2^54}
huge: double = 1e300;
one: double = 1.0;