From fabae66b541378df3ff0c1e941b38759c19f6129 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Thu, 24 Nov 2011 14:18:19 +0000
Subject: 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
---
 pretyping/classops.ml    | 1 +
 pretyping/detyping.ml    | 3 +++
 pretyping/unification.ml | 2 ++
 3 files changed, 6 insertions(+)

(limited to 'pretyping')

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);
-- 
cgit v1.2.3