mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 22:01:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Long doubles have extra, unused bits which should not be used for hashing

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-13 22:48:55 +02:00
parent 198a58f626
commit 99b5c72283
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/c/hash.d
View file

@ -59,7 +59,10 @@ _hash_eql(cl_hashkey h, cl_object x)
return hash_string(h, (unsigned char*)&df(x), sizeof(df(x)));
#ifdef ECL_LONG_FLOAT
case t_longfloat: {
long double d = ecl_long_float(x);
/* We coerce to double because long double has extra bits
* that give rise to different hash key and are not
* meaningful */
double d = ecl_long_float(x);
return hash_string(h, (unsigned char*)&d, sizeof(d));
}
#endif
@ -135,7 +138,10 @@ _hash_equal(int depth, cl_hashkey h, cl_object x)
}
# ifdef ECL_LONG_FLOAT
case t_longfloat: {
long double f = ecl_long_float(x);
/* We coerce to double because long double has extra bits
* that give rise to different hash key and are not
* meaningful */
double f = ecl_long_float(x);
if (f == 0.0) f = 0.0;
return hash_string(h, (unsigned char*)&f, sizeof(f));
}