Finish patch for Hint Resolve, stopping to generate new constant names for

hints. 


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16052 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 8 insertions, 0 deletions

diff --git a/library/globnames.ml b/library/globnames.ml
index 81cb241c9..b5312e574 100644
--- a/library/globnames.ml
+++ b/library/globnames.ml
@@ -128,6 +128,14 @@ module ExtRefOrdered = struct
       | _, _ -> Pervasives.compare x y
 end
 
+type global_reference_or_constr = 
+  | IsGlobal of global_reference
+  | IsConstr of constr
+
+let constr_of_global_or_constr = function
+  | IsConstr c -> c
+  | IsGlobal gr -> constr_of_global gr
+
 (** {6 Temporary function to brutally form kernel names from section paths } *)
 
 let encode_mind dir id = make_mind (MPfile dir) empty_dirpath (label_of_id id)