mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

fix hash of zero-length vectors

Browse source 
* libguile/hash.c (scm_raw_ihash): Fix for zero-length vectors.
This commit is contained in:
Andy Wingo 2011-10-27 14:00:38 +02:00
parent 4938d3cb74
commit 549333efd8
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/hash.c
View file

@ -286,8 +286,9 @@ scm_raw_ihash (SCM obj, size_t depth)
size_t len = SCM_SIMPLE_VECTOR_LENGTH (obj);
size_t i = depth / 2;
unsigned long h = scm_raw_ihashq (SCM_CELL_WORD_0 (obj));
while (i--)
h ^= scm_raw_ihash (scm_c_vector_ref (obj, h % len), i);
if (len)
while (i--)
h ^= scm_raw_ihash (scm_c_vector_ref (obj, h % len), i);
return h;
}
case scm_tcs_cons_imcar: