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

fix non-extflonum build

Browse Source
This commit is contained in:
Matthew Flatt 2013-03-18 11:24:04 -07:00
parent 8122249602
commit 1e31d99ca3
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/include/scheme.h
View File

@ -93,6 +93,8 @@ typedef struct {
# else # else
typedef long double mz_long_double; typedef long double mz_long_double;
# endif # endif
#else
typedef double mz_long_double;
#endif #endif
#ifdef DONT_ITIMER #ifdef DONT_ITIMER

6
src/racket/src/numstr.c
View File

@ -1204,10 +1204,14 @@ Scheme_Object *scheme_read_number(const mzchar *str, intptr_t len,
&& (len <= MAX_FAST_FLOATREAD_LEN) && (len <= MAX_FAST_FLOATREAD_LEN)
&& (!is_long_double || MZ_LONG_DOUBLE_AND(1))) { && (!is_long_double || MZ_LONG_DOUBLE_AND(1))) {
double d = 1.0; double d = 1.0;
long_double ld; #ifdef MZ_LONG_DOUBLE
mz_long_double ld;
#endif
GC_CAN_IGNORE char *ptr; GC_CAN_IGNORE char *ptr;
#ifdef MZ_LONG_DOUBLE
memset(&ld, 0, sizeof(ld)); /* avoid a compiler warning */ memset(&ld, 0, sizeof(ld)); /* avoid a compiler warning */
#endif
if (has_expt && !(str[has_expt + 1])) { if (has_expt && !(str[has_expt + 1])) {
if (report) if (report)