Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Better Min/MaxExtended values. Patch by Rika. Fixes issue #40026

Michaël Van Canneyt 1 month ago
parent
b273e44379
commit
a8fbddd7fa
1 changed files with 3 additions and 2 deletions
Split View Show Diff Stats
  1. 3 2
      rtl/objpas/math.pp

+ 3 - 2
rtl/objpas/math.pp
View File 

@@ -90,8 +90,9 @@ Const
 
 {$endif FPC_HAS_TYPE_DOUBLE}
 
 {$ifdef FPC_HAS_TYPE_EXTENDED}
 
     const
 
-      MinExtended  =  3.4e-4932;
 
-      MaxExtended  =  1.1e+4932;
 
+      MinExtended  =  3.36210314311209350626e-4932;
 
+      MaxExtended  =  1.18973149535723176502e+4932;
 
+
 
 {$endif FPC_HAS_TYPE_EXTENDED}
 
 {$ifdef FPC_HAS_TYPE_COMP}
 
     const