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

Fix build when disabling single-precision floats.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-02-01 11:54:44 -05:00
parent 8c6c1a0e9b
commit a0e6d67db2
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -166,7 +166,9 @@ static Scheme_Object *unsafe_make_flrectangular (int argc, Scheme_Object *argv[]
static Scheme_Object *unsafe_flreal_part (int argc, Scheme_Object *argv[]); static Scheme_Object *unsafe_flreal_part (int argc, Scheme_Object *argv[]);
static Scheme_Object *unsafe_flimag_part (int argc, Scheme_Object *argv[]); static Scheme_Object *unsafe_flimag_part (int argc, Scheme_Object *argv[]);
#ifdef MZ_USE_SINGLE_FLOATS
static Scheme_Object *TO_FLOAT(const Scheme_Object *n); static Scheme_Object *TO_FLOAT(const Scheme_Object *n);
#endif
Scheme_Object *scheme_TO_DOUBLE(const Scheme_Object *n); Scheme_Object *scheme_TO_DOUBLE(const Scheme_Object *n);
/* globals */ /* globals */
@ -1368,7 +1370,11 @@ real_to_single_flonum (int argc, Scheme_Object *argv[])
if (!SCHEME_REALP(n)) if (!SCHEME_REALP(n))
NEED_REAL(real->single-flonum); NEED_REAL(real->single-flonum);
#ifdef MZ_USE_SINGLE_FLOATS
return TO_FLOAT(n); return TO_FLOAT(n);
#else
return scheme_TO_DOUBLE(n);
#endif
} }
static Scheme_Object * static Scheme_Object *