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

When computing the hash key of a pathname, since they are not circular structures, reset the depth parameter.

Browse source
This commit is contained in:
jjgarcia 2008-05-30 23:51:57 +00:00
parent 75a324fbbe
commit 7677ee8ce6
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/c/hash.d
View file

@ -99,12 +99,12 @@ _hash_equal(int depth, cl_hashkey h, cl_object x)
return hash_string(h, x->base_string.self, x->base_string.fillp);
#endif
case t_pathname:
h = _hash_equal(depth, h, x->pathname.host);
h = _hash_equal(depth, h, x->pathname.device);
h = _hash_equal(depth, h, x->pathname.directory);
h = _hash_equal(depth, h, x->pathname.name);
h = _hash_equal(depth, h, x->pathname.type);
return _hash_equal(depth, h, x->pathname.version);
h = _hash_equal(0, h, x->pathname.directory);
h = _hash_equal(0, h, x->pathname.name);
h = _hash_equal(0, h, x->pathname.type);
h = _hash_equal(0, h, x->pathname.host);
h = _hash_equal(0, h, x->pathname.device);
return _hash_equal(0, h, x->pathname.version);
case t_bitvector:
/* Notice that we may round out some bits. We must do this
* because the fill pointer may be set in the middle of a byte.
@ -113,7 +113,7 @@ _hash_equal(int depth, cl_hashkey h, cl_object x)
* have different hash keys. */
return hash_string(h, x->vector.self.ch, x->vector.fillp / 8);
case t_random:
return _hash_equal(depth, h, x->random.value);
return _hash_equal(0, h, x->random.value);
default:
return _hash_eql(h, x);
}