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

Fixed typo in hash.d (J. James)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-01-24 22:12:31 +01:00
parent 1b78dcc002
commit 1d03e4d50e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/hash.d
View file

@ -140,7 +140,7 @@ _hash_equal(int depth, cl_hashkey h, cl_object x)
/* We coerce to double because long double has extra bits
* that give rise to different hash key and are not
* meaningful */
struct { double mantissa; int exponent; int sign} aux;
struct { double mantissa; int exponent; int sign; } aux;
aux.mantissa = frexpl(ecl_long_float(x), &aux.exponent);
aux.sign = (ecl_long_float(x) < 0)? -1: 1;
if (aux.mantissa == 0.0) aux.mantissa = 0.0;