Diff of /src/c/hash.d [c8a4d9] .. [237af2] Maximize Restore

  Switch to unified view

a/src/c/hash.d b/src/c/hash.d
...
...
191
    case t_doublefloat:
191
    case t_doublefloat:
192
        /* FIXME! We should be more precise here! */
192
        /* FIXME! We should be more precise here! */
193
        return hash_word(h, (cl_index)ecl_double_float(x));
193
        return hash_word(h, (cl_index)ecl_double_float(x));
194
    case t_bignum:
194
    case t_bignum:
195
        /* FIXME! We should be more precise here! */
195
        /* FIXME! We should be more precise here! */
196
      return hash_string(h, (unsigned char*)x->big.big_num->_mp_d,
197
                 abs(x->big.big_num->_mp_size) *
198
                 sizeof(mp_limb_t));
196
    case t_ratio:
199
    case t_ratio:
197
        h = _hash_equalp(0, h, x->ratio.num);
200
        h = _hash_equalp(0, h, x->ratio.num);
198
        return _hash_equalp(0, h, x->ratio.den);
201
        return _hash_equalp(0, h, x->ratio.den);
199
    case t_complex:
202
    case t_complex:
200
        h = _hash_equalp(0, h, x->complex.real);
203
        h = _hash_equalp(0, h, x->complex.real);