From: Daniel Kochmański <daniel@turtleware.eu>
Date: Tue, 22 Sep 2015 20:55:35 +0000 (+0200)
Subject: hash.d: compute hash_string properly
X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=0d639873ffe010c9ac0b95aebde2084b7749cd61;p=ecl.git

hash.d: compute hash_string properly

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---

diff --git a/src/c/hash.d b/src/c/hash.d
index 3d34d74..e907d02 100644
--- 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: {