suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make ffl_buf local

Browse Source 
svn: r17315
This commit is contained in:
Kevin Tew 2009-12-15 22:10:28 +00:00
parent 881b34dd80
commit a23c519ac8
1 changed files with 25 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/mzscheme/src/numstr.c
View File

@ -229,11 +229,6 @@ static Scheme_Object *read_special_number(const mzchar *str, int pos)
floating-point mantissa: */
#define MAX_FLOATREAD_PRECISION_DIGITS 50
/* We'd like to use strtod() for the common case, but we don't trust
it entirely. */
#define MAX_FAST_FLOATREAD_LEN 50
static char ffl_buf[MAX_FAST_FLOATREAD_LEN + 1];
/* 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. */
@ -1014,6 +1009,7 @@ Scheme_Object *scheme_read_number(const mzchar *str, long len,
#endif
#define MAX_FAST_FLOATREAD_LEN 50
/* When possible, use the standard floating-point parser */
if (!is_not_float && (is_float || decimal_means_float)
&& !has_slash && !has_hash && (radix == 10)
@ -1030,6 +1026,10 @@ Scheme_Object *scheme_read_number(const mzchar *str, long len,
return scheme_false;
}
{
/* We'd like to use strtod() for the common case, but we don't trust it entirely. */
char ffl_buf[MAX_FAST_FLOATREAD_LEN + 1];
{
int k;
for (k = delta; k < len; k++) {
@ -1053,6 +1053,7 @@ Scheme_Object *scheme_read_number(const mzchar *str, long len,
str, len);
return scheme_false;
}
}
if (!saw_nonzero_digit) {
/* Assert: d = 0.0 or -0.0 */