From 0d639873ffe010c9ac0b95aebde2084b7749cd61 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Tue, 22 Sep 2015 22:55:35 +0200
Subject: [PATCH] hash.d: compute hash_string properly
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---
 src/c/hash.d | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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: {
-- 
2.9.0