From 9e37e3b9695a214040c52082b1e7288df9362b33 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Thu, 24 Oct 2013 17:28:00 +0000
Subject: Specializing hash functions for widely used types.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16933 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/nativecode.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'kernel/nativecode.ml')

diff --git a/kernel/nativecode.ml b/kernel/nativecode.ml
index 874e4a5735..d656eceb63 100644
--- a/kernel/nativecode.ml
+++ b/kernel/nativecode.ml
@@ -148,11 +148,11 @@ open Hashset.Combine
 let hash_symbol symb =
   match symb with
   | SymbValue v -> combinesmall 1 (Hashtbl.hash v)
-  | SymbSort s -> combinesmall 2 (Hashtbl.hash s)
-  | SymbName name -> combinesmall 3 (Hashtbl.hash name)
-  | SymbConst c -> combinesmall 4 (Hashtbl.hash c)
+  | SymbSort s -> combinesmall 2 (Sorts.hash s)
+  | SymbName name -> combinesmall 3 (Name.hash name)
+  | SymbConst c -> combinesmall 4 (Constant.hash c)
   | SymbMatch sw -> combinesmall 5 (hash_annot_sw sw)
-  | SymbInd ind -> combinesmall 6 (Hashtbl.hash ind)
+  | SymbInd ind -> combinesmall 6 (ind_hash ind)
 
 module HashedTypeSymbol = struct
   type t = symbol
-- 
cgit v1.2.3