aboutsummaryrefslogtreecommitdiffhomepage
path: root/printing
diff options
context:
space:
mode:
authorGravatar Emilio Jesus Gallego Arias <e+git@x80.org>2017-03-14 18:38:42 +0100
committerGravatar Emilio Jesus Gallego Arias <e+git@x80.org>2017-05-24 11:47:36 +0200
commitcb316573aa1d09433531e7c67e320c14ef05c3e2 (patch)
tree02e9e26f826aace38552372979efb7ff7d9e8ef6 /printing
parentbf84180f963a31d1ec850d4ccedd599f2984ea9b (diff)
[option] Remove support for non-synchronous options.
Inspired by https://coq.inria.fr/bugs/show_bug.cgi?id=5229 , which this PR solves, I propose to remove support for non-synchronous options. It seems the few uses of `optsync = false` we legacy and shouldn't have any impact. Moreover, non synchronous options may create particularly tricky situations as for instance, they won't be propagated to workers.
Diffstat (limited to 'printing')
-rw-r--r--printing/printer.ml15
-rw-r--r--printing/printmod.ml3
2 files changed, 6 insertions, 12 deletions
diff --git a/printing/printer.ml b/printing/printer.ml
index e0ca51f0c..0276e6d1d 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -44,8 +44,7 @@ let should_gname() = !enable_goal_names_printing
let _ =
let open Goptions in
declare_bool_option
- { optsync = true;
- optdepr = false;
+ { optdepr = false;
optname = "printing of unfocused goal";
optkey = ["Printing";"Unfocused"];
optread = (fun () -> !enable_unfocused_goal_printing);
@@ -56,8 +55,7 @@ let _ =
let _ =
let open Goptions in
declare_bool_option
- { optsync = true;
- optdepr = false;
+ { optdepr = false;
optname = "printing of goal tags";
optkey = ["Printing";"Goal";"Tags"];
optread = (fun () -> !enable_goal_tags_printing);
@@ -67,8 +65,7 @@ let _ =
let _ =
let open Goptions in
declare_bool_option
- { optsync = true;
- optdepr = false;
+ { optdepr = false;
optname = "printing of goal names";
optkey = ["Printing";"Goal";"Names"];
optread = (fun () -> !enable_goal_names_printing);
@@ -449,8 +446,7 @@ let print_hyps_limit = ref (None : int option)
let _ =
let open Goptions in
declare_int_option
- { optsync = false;
- optdepr = false;
+ { optdepr = false;
optname = "the hypotheses limit";
optkey = ["Hyps";"Limit"];
optread = (fun () -> !print_hyps_limit);
@@ -635,8 +631,7 @@ let should_print_dependent_evars = ref false
let _ =
let open Goptions in
declare_bool_option
- { optsync = true;
- optdepr = false;
+ { optdepr = false;
optname = "Printing Dependent Evars Line";
optkey = ["Printing";"Dependent";"Evars";"Line"];
optread = (fun () -> !should_print_dependent_evars);
diff --git a/printing/printmod.ml b/printing/printmod.ml
index 6f4b162d7..c4affd4ac 100644
--- a/printing/printmod.ml
+++ b/printing/printmod.ml
@@ -42,8 +42,7 @@ let short = ref false
let _ =
declare_bool_option
- { optsync = true;
- optdepr = false;
+ { optdepr = false;
optname = "short module printing";
optkey = ["Short";"Module";"Printing"];
optread = (fun () -> !short) ;