From 31c2adf8bf6b0093c9566644816d75b9dca4b096 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 11 Aug 2020 11:12:04 +0900 Subject: [PATCH] hash raw bytes of bignums --- lib/srfi/69/hash.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/srfi/69/hash.c b/lib/srfi/69/hash.c index 1297c007..4f7bedf6 100644 --- a/lib/srfi/69/hash.c +++ b/lib/srfi/69/hash.c @@ -67,7 +67,7 @@ static sexp_uint_t hash_one (sexp ctx, sexp obj, sexp_uint_t bound, sexp_sint_t /* if the field_base is 0, skip to the value */ if ((sexp)p == obj) p=(sexp*)p0; /* hash uvector data (otherwise strings all hash to the same value) */ - if (sexp_bytesp(obj) || sexp_uvectorp(obj)) { + if (sexp_bytesp(obj) || sexp_uvectorp(obj) || sexp_bignump(obj)) { p_right = ((char*)p + sexp_type_num_slots_of_object(t, obj)*sizeof(sexp)); right_size = ((char*)obj + sexp_type_size_of_object(t, obj)) - p_right; for (i=0; i