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

more fixes to avoid warnings

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

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

@ -2039,9 +2039,12 @@ real_to_double_flonum (int argc, Scheme_Object *argv[])
static Scheme_Object *
real_to_long_double_flonum (int argc, Scheme_Object *argv[])
{
CHECK_MZ_LONG_DOUBLE_UNSUPPORTED("real->extfl");
#ifdef MZ_LONG_DOUBLE
CHECK_MZ_LONG_DOUBLE_UNSUPPORTED("real->extfl");
return scheme_TO_LONG_DOUBLE(argv[0]);
#else
scheme_raise_exn(MZEXN_FAIL_UNSUPPORTED, "real->extfl" ": " NOT_SUPPORTED_STR);
ESCAPED_BEFORE_HERE;
#endif
}
@ -4015,7 +4018,8 @@ extfl_to_exact (int argc, Scheme_Object *argv[])
return scheme_rational_from_long_double(d);
#else
CHECK_MZ_LONG_DOUBLE_UNSUPPORTED("extfl->exact");
scheme_raise_exn(MZEXN_FAIL_UNSUPPORTED, "extfl->exact" ": " NOT_SUPPORTED_STR);
ESCAPED_BEFORE_HERE;
#endif
}

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

@ -1925,6 +1925,7 @@ static char *number_to_allocated_string(int radix, Scheme_Object *obj, int alloc
"number", 1, obj,
"requested base", 1, scheme_make_integer(radix),
NULL);
memset(&stub, 0, sizeof(long_double));
s = double_to_string(SCHEME_FLOAT_VAL(obj), alloc, SCHEME_FLTP(obj), 0, stub);
} else if (SCHEME_LONG_DBLP(obj)) {
if (radix != 10)