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

fix bug in round uner Solaris

Browse Source 
svn: r8934
This commit is contained in:
Matthew Flatt 2008-03-09 13:25:32 +00:00
parent a60cc40729
commit 84c0893e2b
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/mzscheme/configure.ac
View File

@ -587,8 +587,15 @@ case $OS in
fi
;;
Darwin)
if test -d "/Developer/SDKs/MacOSX10.4u.sdk"; then
PREFLAGS="$PREFLAGS -I/Developer/SDKs/MacOSX10.4u.sdk/usr/include"
PREFLAGS="$PREFLAGS -F/Developer/SDKs/MacOSX10.4u.sdk/System/Library/Frameworks/"
LDFLAGS="$LDFLAGS -L/Developer/SDKs/MacOSX10.4u.sdk/usr/lib"
LDFLAGS="$LDFLAGS -F/Developer/SDKs/MacOSX10.4u.sdk/System/Library/Frameworks/"
fi
PREFLAGS="$PREFLAGS -D_DARWIN_UNLIMITED_SELECT -DOS_X"
PREFLAGS="$PREFLAGS -DOS_X -D_DARWIN_UNLIMITED_SELECT"
# zlib comes with the OS
ZLIB_A=""

2
src/mzscheme/src/number.c
View File

@ -1221,7 +1221,7 @@ sch_round (int argc, Scheme_Object *argv[])
#ifdef FMOD_CAN_RETURN_POS_ZERO
if (minus_zero_p(d))
return d;
return o;
#endif
if (d < 0) {

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

@ -1624,8 +1624,7 @@ static Scheme_Object *bytes_to_integer (int argc, Scheme_Object *argv[])
if (!SCHEME_BYTE_STRINGP(argv[0]))
scheme_wrong_type("integer-bytes->integer", "byte string", 0, argc, argv);
else
strlen = SCHEME_BYTE_STRLEN_VAL(argv[0]);
strlen = SCHEME_BYTE_STRLEN_VAL(argv[0]);
str = SCHEME_BYTE_STR_VAL(argv[0]);