diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-12 09:10:29 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-10-12 09:10:29 +0000 |
| commit | 71cdbefb8ce0f20e21f2c1dcd02f914fad24614c (patch) | |
| tree | 557804680a79f3b30369092c837b92c79901a41e | |
| parent | cfd34abde53f114f3b66e6d28ee6d7384981c8b4 (diff) | |
option -no-hash-consing pour supprimmer le hash-consing
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6201 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | lib/options.ml | 2 | ||||
| -rw-r--r-- | lib/options.mli | 2 | ||||
| -rw-r--r-- | library/declare.ml | 2 | ||||
| -rw-r--r-- | toplevel/coqtop.ml | 2 |
4 files changed, 7 insertions, 1 deletions
diff --git a/lib/options.ml b/lib/options.ml index c6b962121..3459279bb 100644 --- a/lib/options.ml +++ b/lib/options.ml @@ -73,6 +73,8 @@ let silently f x = let if_silent f x = if !silent then f x let if_verbose f x = if not !silent then f x +let hash_cons_proofs = ref true + (* The number of printed hypothesis in a goal *) let print_hyps_limit = ref (None : int option) diff --git a/lib/options.mli b/lib/options.mli index 3554bc98e..d999425e9 100644 --- a/lib/options.mli +++ b/lib/options.mli @@ -44,6 +44,8 @@ val silently : ('a -> 'b) -> 'a -> 'b val if_silent : ('a -> unit) -> 'a -> unit val if_verbose : ('a -> unit) -> 'a -> unit +val hash_cons_proofs : bool ref + (* Temporary activate an option ('c must be an atomic type) *) val with_option : bool ref -> ('a -> 'b) -> 'a -> 'b diff --git a/library/declare.ml b/library/declare.ml index c2d83a71c..93a90380c 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -179,7 +179,7 @@ let (in_constant, out_constant) = export_function = export_constant } let hcons_constant_declaration = function - | DefinitionEntry ce -> + | DefinitionEntry ce when !Options.hash_cons_proofs -> let (hcons1_constr,_) = hcons_constr (hcons_names()) in DefinitionEntry { const_entry_body = hcons1_constr ce.const_entry_body; diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index d22003637..248f68796 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -256,6 +256,8 @@ let parse_args is_ide = | "-v7" :: rem -> (* Options.v7 := true; *) parse rem | "-v8" :: rem -> (* Options.v7 := false; *) parse rem + | "-no-hash-consing" :: rem -> Options.hash_cons_proofs := false; parse rem + (* Translator options *) | "-strict-implicit" :: rem -> Options.translate_strict_impargs := false; parse rem |