From f8b5525eea31c226dfb2ebdc22be512f8af2ebbe Mon Sep 17 00:00:00 2001 From: letouzey Date: Wed, 8 Apr 2009 17:23:13 +0000 Subject: Some dead code removal + cleanups This commit concerns about the first half of the useless code mentionned by Oug for coqtop (without plugins). For the moment, Oug is used in a mode where any elements mentionned in a .mli is considered to be precious. This already allows to detect and remove about 600 lines, and more is still to come. Among the interesting points, the type Entries.specification_entry and its constructors SPExxx were never used. Large parts of cases.ml (and hence subtac_cases.ml) were also useless. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12069 85f007b7-540e-0410-9357-904b9bb8a0f7 --- kernel/entries.ml | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) (limited to 'kernel/entries.ml') diff --git a/kernel/entries.ml b/kernel/entries.ml index 8dde8fb3e..e30fe7737 100644 --- a/kernel/entries.ml +++ b/kernel/entries.ml @@ -70,14 +70,7 @@ type constant_entry = (*s Modules *) -type specification_entry = - SPEconst of constant_entry - | SPEmind of mutual_inductive_entry - | SPEmodule of module_entry - | SPEalias of module_path - | SPEmodtype of module_struct_entry - -and module_struct_entry = +type module_struct_entry = MSEident of module_path | MSEfunctor of mod_bound_id * module_struct_entry * module_struct_entry | MSEwith of module_struct_entry * with_declaration @@ -87,8 +80,6 @@ and with_declaration = With_Module of identifier list * module_path | With_Definition of identifier list * constr -and module_structure = (label * specification_entry) list - and module_entry = { mod_entry_type : module_struct_entry option; mod_entry_expr : module_struct_entry option} -- cgit v1.2.3