diff options
| author | ppedrot | 2011-11-24 14:18:19 +0000 |
|---|---|---|
| committer | ppedrot | 2011-11-24 14:18:19 +0000 |
| commit | fabae66b541378df3ff0c1e941b38759c19f6129 (patch) | |
| tree | efb605b835ce2d58378b2a15a4211698da3b017a /pretyping | |
| parent | 1f26b8591f3698699ee2143f5244a5d57243e283 (diff) | |
Added a DEPRECATED flag in declaration of options. For now only two options are declared as such, but I suspect Coq to contain some more.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14724 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/classops.ml | 1 | ||||
| -rw-r--r-- | pretyping/detyping.ml | 3 | ||||
| -rw-r--r-- | pretyping/unification.ml | 2 |
3 files changed, 6 insertions, 0 deletions
diff --git a/pretyping/classops.ml b/pretyping/classops.ml index 03ae6e763a..fe4d0f300a 100644 --- a/pretyping/classops.ml +++ b/pretyping/classops.ml @@ -349,6 +349,7 @@ open Goptions let _ = declare_bool_option { optsync = true; + optdepr = false; optname = "automatic import of coercions"; optkey = ["Automatic";"Coercions";"Import"]; optread = (fun () -> !automatically_import_coercions); diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 35aedd2c68..c194a0f236 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -116,6 +116,7 @@ let force_wildcard () = !wildcard_value let _ = declare_bool_option { optsync = true; + optdepr = false; optname = "forced wildcard"; optkey = ["Printing";"Wildcard"]; optread = force_wildcard; @@ -126,6 +127,7 @@ let synthetize_type () = !synth_type_value let _ = declare_bool_option { optsync = true; + optdepr = false; optname = "pattern matching return type synthesizability"; optkey = ["Printing";"Synth"]; optread = synthetize_type; @@ -136,6 +138,7 @@ let reverse_matching () = !reverse_matching_value let _ = declare_bool_option { optsync = true; + optdepr = false; optname = "pattern-matching reversibility"; optkey = ["Printing";"Matching"]; optread = reverse_matching; diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 9f7b6d748b..187533ad33 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -175,6 +175,7 @@ open Goptions let _ = declare_bool_option { optsync = true; + optdepr = false; optname = "pattern-unification for existential variables in tactics"; optkey = ["Tactic";"Evars";"Pattern";"Unification"]; optread = (fun () -> !global_evars_pattern_unification_flag); @@ -183,6 +184,7 @@ let _ = let _ = declare_bool_option { optsync = true; + optdepr = false; optname = "pattern-unification for existential variables in tactics"; optkey = ["Tactic";"Pattern";"Unification"]; optread = (fun () -> !global_evars_pattern_unification_flag); |