fix broken inexact-reader configuration

Closes PR 11496
This commit is contained in:
Matthew Flatt 2010-12-04 16:19:34 -07:00
parent e2429e8362
commit fda0228631
2 changed files with 6 additions and 4 deletions

View File

@ -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")

View File

@ -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...) */