diff options
| author | ppedrot | 2013-10-24 17:28:00 +0000 |
|---|---|---|
| committer | ppedrot | 2013-10-24 17:28:00 +0000 |
| commit | 9e37e3b9695a214040c52082b1e7288df9362b33 (patch) | |
| tree | bc2bc853f3a01999ac4b07b847e43e747e6f104d /kernel/nativecode.ml | |
| parent | 748d4e285c9352b5678e07963a295341cc6acc5b (diff) | |
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
Diffstat (limited to 'kernel/nativecode.ml')
| -rw-r--r-- | kernel/nativecode.ml | 8 |
1 files changed, 4 insertions, 4 deletions
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 |