Removing dead code in Genarg.

4 files changed, 0 insertions, 51 deletions

diff --git a/interp/constrarg.ml b/interp/constrarg.ml
index 20ee7aa4f..81e942d82 100644
--- a/interp/constrarg.ml
+++ b/interp/constrarg.ml
@@ -63,27 +63,6 @@ let wit_red_expr = Genarg.make0 "redexpr"
 let wit_clause_dft_concl  =
   Genarg.make0 "clause_dft_concl"
 
-(** Register location *)
-
-let () =
-  register_name0 wit_int_or_var "Constrarg.wit_int_or_var";
-  register_name0 wit_ref "Constrarg.wit_ref";
-  register_name0 wit_ident "Constrarg.wit_ident";
-  register_name0 wit_var "Constrarg.wit_var";
-  register_name0 wit_intro_pattern "Constrarg.wit_intro_pattern";
-  register_name0 wit_tactic "Constrarg.wit_tactic";
-  register_name0 wit_sort "Constrarg.wit_sort";
-  register_name0 wit_constr "Constrarg.wit_constr";
-  register_name0 wit_uconstr "Constrarg.wit_uconstr";
-  register_name0 wit_open_constr "Constrarg.wit_open_constr";
-  register_name0 wit_constr_may_eval "Constrarg.wit_constr_may_eval";
-  register_name0 wit_red_expr "Constrarg.wit_red_expr";
-  register_name0 wit_clause_dft_concl "Constrarg.wit_clause_dft_concl";
-  register_name0 wit_quant_hyp "Constrarg.wit_quant_hyp";
-  register_name0 wit_bindings "Constrarg.wit_bindings";
-  register_name0 wit_constr_with_bindings "Constrarg.wit_constr_with_bindings";
-  ()
-
 (** Aliases *)
 
 let wit_reference = wit_ref
diff --git a/interp/stdarg.ml b/interp/stdarg.ml
index e497c996f..244cdd0a7 100644
--- a/interp/stdarg.ml
+++ b/interp/stdarg.ml
@@ -23,12 +23,6 @@ let wit_string : string uniform_genarg_type =
 let wit_pre_ident : string uniform_genarg_type =
   make0 "preident"
 
-let () = register_name0 wit_unit "Stdarg.wit_unit"
-let () = register_name0 wit_bool "Stdarg.wit_bool"
-let () = register_name0 wit_int "Stdarg.wit_int"
-let () = register_name0 wit_string "Stdarg.wit_string"
-let () = register_name0 wit_pre_ident "Stdarg.wit_pre_ident"
-
 (** Aliases for compatibility *)
 
 let wit_integer = wit_int
diff --git a/lib/genarg.ml b/lib/genarg.ml
index 27d7b50e5..0deb34afd 100644
--- a/lib/genarg.ml
+++ b/lib/genarg.ml
@@ -303,17 +303,3 @@ struct
   | _ -> assert false
 
 end
-
-(** Hackish part *)
-
-let arg0_names = ref (String.Map.empty : string String.Map.t)
- 
-let register_name0 t name = match t with
-| ExtraArg s ->
-  let s = ArgT.repr s in
-  let () = assert (not (String.Map.mem s !arg0_names)) in
-  arg0_names := String.Map.add s name !arg0_names
-| _ -> failwith "register_name0"
-
-let get_name0 name =
-  String.Map.find name !arg0_names
diff --git a/lib/genarg.mli b/lib/genarg.mli
index ac13f545b..30b96c700 100644
--- a/lib/genarg.mli
+++ b/lib/genarg.mli
@@ -242,13 +242,3 @@ val wit_list : ('a, 'b, 'c) genarg_type -> ('a list, 'b list, 'c list) genarg_ty
 val wit_opt : ('a, 'b, 'c) genarg_type -> ('a option, 'b option, 'c option) genarg_type
 val wit_pair : ('a1, 'b1, 'c1) genarg_type -> ('a2, 'b2, 'c2) genarg_type ->
   ('a1 * 'a2, 'b1 * 'b2, 'c1 * 'c2) genarg_type
-
-(** {5 Magic used by the parser} *)
-
-val register_name0 : ('a, 'b, 'c) genarg_type -> string -> unit
-(** Used by the extension to give a name to types. The string should be the
-    absolute path of the argument witness, e.g.
-    [register_name0 wit_toto "MyArg.wit_toto"]. *)
-
-val get_name0 : string -> string
-(** Return the absolute path of a given witness. *)