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

fix hash for +inf.0, -inf.0, +nan.0; cannot use frexp; also hash 0.0 and -0.0 differently

Browse Source 
svn: r2177
This commit is contained in:
Matthew Flatt 2006-02-08 19:25:40 +00:00
parent 6f6df78f85
commit f8bd35592d
1 changed files with 26 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/mzscheme/src/hash.c
View File

@ -929,18 +929,28 @@ static long equal_hash_key(Scheme_Object *o, long k)
return k + SCHEME_INT_VAL(o); return k + SCHEME_INT_VAL(o);
#ifdef MZ_USE_SINGLE_FLOATS #ifdef MZ_USE_SINGLE_FLOATS
case scheme_float_type: case scheme_float_type:
{
double d;
int e;
d = frexp(SCHEME_DBL_VAL(o), &e);
return k + ((long)(d * (1 << 30))) + e;
}
#endif #endif
case scheme_double_type: case scheme_double_type:
{ {
double d; double d;
int e; int e;
d = frexp(SCHEME_DBL_VAL(o), &e); d = SCHEME_DBL_VAL(o);
if (MZ_IS_NAN(d)) {
d = 0.0;
e = 1000;
} else if (MZ_IS_POS_INFINITY(d)) {
d = 0.5;
e = 1000;
} else if (MZ_IS_NEG_INFINITY(d)) {
d = -0.5;
e = 1000;
} else if (!d && scheme_minus_zero_p(d)) {
d = 0;
e = 1000;
} else {
/* frexp should not be used on inf or nan: */
d = frexp(d, &e);
}
return k + ((long)(d * (1 << 30))) + e; return k + ((long)(d * (1 << 30))) + e;
} }
case scheme_bignum_type: case scheme_bignum_type:
@ -1172,7 +1182,15 @@ long scheme_equal_hash_key2(Scheme_Object *o)
{ {
double d; double d;
int e; int e;
d = frexp(SCHEME_DBL_VAL(o), &e); d = SCHEME_DBL_VAL(o);
if (MZ_IS_NAN(d)
|| MZ_IS_POS_INFINITY(d)
|| MZ_IS_NEG_INFINITY(d)) {
e = 1;
} else {
/* frexp should not be used on inf or nan: */
d = frexp(d, &e);
}
return e; return e;
} }
case scheme_bignum_type: case scheme_bignum_type: