From 643e624909ecec7ba43326ff962b13c184991125 Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Sat, 8 Mar 2014 02:44:21 +0100 Subject: Using HMaps in global references. --- kernel/names.mli | 3 +++ 1 file changed, 3 insertions(+) (limited to 'kernel/names.mli') diff --git a/kernel/names.mli b/kernel/names.mli index a9da13399..b2a363174 100644 --- a/kernel/names.mli +++ b/kernel/names.mli @@ -243,6 +243,7 @@ sig (** Comparisons *) val compare : t -> t -> int val equal : t -> t -> bool + val hash : t -> int end module KNset : CSig.SetS with type elt = KerName.t @@ -412,10 +413,12 @@ val eq_ind : inductive -> inductive -> bool val ind_ord : inductive -> inductive -> int val ind_hash : inductive -> int val ind_user_ord : inductive -> inductive -> int +val ind_user_hash : inductive -> int val eq_constructor : constructor -> constructor -> bool val constructor_ord : constructor -> constructor -> int val constructor_user_ord : constructor -> constructor -> int val constructor_hash : constructor -> int +val constructor_user_hash : constructor -> int (** Better to have it here that in Closure, since required in grammar.cma *) type evaluable_global_reference = -- cgit v1.2.3