Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-22 07:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

checking for NULL values in hash_one

Browse source
This commit is contained in:
Alex Shinn 2011-11-04 16:00:27 +09:00
parent 68a95bc366
commit fd2bab331a
1 changed files with 28 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

54
lib/srfi/69/hash.c
View file

@ -53,38 +53,40 @@ static sexp_uint_t hash_one (sexp ctx, sexp obj, sexp_uint_t bound, sexp_sint_t
sexp t, *p; sexp t, *p;
char *p0; char *p0;
loop: loop:
if (obj) {
#if SEXP_USE_FLONUMS #if SEXP_USE_FLONUMS
if (sexp_flonump(obj)) if (sexp_flonump(obj))
acc ^= (sexp_sint_t) sexp_flonum_value(obj); acc ^= (sexp_sint_t) sexp_flonum_value(obj);
else else
#endif #endif
if (sexp_pointerp(obj)) { if (sexp_pointerp(obj)) {
if (depth) { if (depth) {
t = sexp_object_type(ctx, obj); t = sexp_object_type(ctx, obj);
p = (sexp*) (((char*)obj) + sexp_type_field_base(t)); p = (sexp*) (((char*)obj) + sexp_type_field_base(t));
p0 = ((char*)obj) + offsetof(struct sexp_struct, value); p0 = ((char*)obj) + offsetof(struct sexp_struct, value);
if ((sexp)p == obj) p=(sexp*)p0; if ((sexp)p == obj) p=(sexp*)p0;
/* hash trailing non-object data */ /* hash trailing non-object data */
size = sexp_type_size_of_object(t, obj)-offsetof(struct sexp_struct, value); size = sexp_type_size_of_object(t, obj)-offsetof(struct sexp_struct, value);
p0 = ((char*)p + sexp_type_num_slots_of_object(t,obj)*sizeof(sexp)); p0 = ((char*)p + sexp_type_num_slots_of_object(t,obj)*sizeof(sexp));
if (((char*)obj + size) > p0) if (((char*)obj + size) > p0)
for (i=0; i<size; i++) {acc *= FNV_PRIME; acc ^= p0[i];} for (i=0; i<size; i++) {acc *= FNV_PRIME; acc ^= p0[i];}
/* hash eq-object slots */ /* hash eq-object slots */
len = sexp_type_num_eq_slots_of_object(t, obj); len = sexp_type_num_eq_slots_of_object(t, obj);
if (len > 0) { if (len > 0) {
depth--; depth--;
for (i=0; i<len-1; i++) { for (i=0; i<len-1; i++) {
acc *= FNV_PRIME; acc *= FNV_PRIME;
acc ^= hash_one(ctx, p[i], 0, depth); acc ^= hash_one(ctx, p[i], 0, depth);
}
/* tail-recurse on the last value */
obj = p[len-1]; goto loop;
} }
/* tail-recurse on the last value */ } else {
obj = p[len-1]; goto loop; acc ^= sexp_pointer_tag(obj);
} }
} else { } else {
acc ^= sexp_pointer_tag(obj); acc ^= (sexp_uint_t)obj;
} }
} else {
acc ^= (sexp_uint_t)obj;
} }
return (bound ? acc % bound : acc); return (bound ? acc % bound : acc);
} }