fix broken inexact-reader configuration
Closes PR 11496
This commit is contained in:
parent
e2429e8362
commit
fda0228631
|
@ -43,6 +43,8 @@
|
|||
(-0.0 "-1e-10000000000000000000000000000000")
|
||||
(+0.0 "1#e-10000000000000000000000000000000")
|
||||
(-0.0 "-1#e-10000000000000000000000000000000")
|
||||
(1e-134
|
||||
"0.00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001")
|
||||
(10.0 "1#")
|
||||
(10.0 "1#e0")
|
||||
(10.0 "1####e-3")
|
||||
|
|
|
@ -245,15 +245,15 @@ static Scheme_Object *read_special_number(const mzchar *str, int pos)
|
|||
return NULL;
|
||||
}
|
||||
|
||||
/* Don't bother reading more than the following number of digits in a
|
||||
floating-point mantissa: */
|
||||
#define MAX_FLOATREAD_PRECISION_DIGITS 50
|
||||
|
||||
/* Exponent threshold for obvious infinity. Must be at least
|
||||
max(MAX_FAST_FLOATREAD_LEN, MAX_FLOATREAD_PRECISION_DIGITS) more
|
||||
than the larget possible FP exponent. */
|
||||
#define CHECK_INF_EXP_THRESHOLD 400
|
||||
|
||||
/* Don't bother reading more than the following number of digits in a
|
||||
floating-point mantissa: */
|
||||
#define MAX_FLOATREAD_PRECISION_DIGITS CHECK_INF_EXP_THRESHOLD
|
||||
|
||||
#ifdef USE_EXPLICT_FP_FORM_CHECK
|
||||
|
||||
/* Fixes Linux problem of 0e... => non-number (0 with ptr at e...) */
|
||||
|
|
Loading…
Reference in New Issue
Block a user