diff options
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 |