From 28a2641df29cd7530c3ebe329dc118ba3f444b10 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 2 Mar 2014 20:40:16 +0100
Subject: Fixing generic hashes and replacing them with proper ones.

---
 kernel/nativevalues.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/nativevalues.ml')

diff --git a/kernel/nativevalues.ml b/kernel/nativevalues.ml
index c3e2b3ab75..98094f7955 100644
--- a/kernel/nativevalues.ml
+++ b/kernel/nativevalues.ml
@@ -39,7 +39,7 @@ let eq_annot_sw asw1 asw2 =
 open Hashset.Combine
 
 let hash_annot_sw asw =
-  combine (Hashtbl.hash asw.asw_ind) (Hashtbl.hash asw.asw_prefix)
+  combine (ind_hash asw.asw_ind) (String.hash asw.asw_prefix)
 
 type sort_annot = string * int
 
-- 
cgit v1.2.3