Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 61b3081)
hash.d: compute hash_string properly
authorDaniel Kochmański <daniel@turtleware.eu>
Tue, 22 Sep 2015 20:55:35 +0000 (22:55 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Tue, 22 Sep 2015 20:55:35 +0000 (22:55 +0200)
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/c/hash.d patch | blob | blame | history

diff --git a/src/c/hash.d b/src/c/hash.d
index 3d34d74..e907d02 100644 (file)
--- a/src/c/hash.d
+++ b/src/c/hash.d
@@ -120,8 +120,7 @@ _hash_equal(int depth, cl_hashkey h, cl_object x)
         case t_random: {
                 cl_object array = x->random.value;
                 return hash_string
-                        (h, (unsigned char*)array->vector.self.b8,
-                         array->vector.fillp);
+                        (h, (unsigned char*)array->vector.self.b8, 4*624);
         }
 #ifdef ECL_SIGNED_ZERO
         case t_singlefloat: {
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)