diff options
| author | Enrico Tassi | 2019-02-08 17:15:20 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2019-02-08 17:15:20 +0100 |
| commit | e6694bfa536ddeff1a318adac73d05f5fb8ebec0 (patch) | |
| tree | 67ceb80007f7bb941c42f998caf0bcc2d9166ab5 | |
| parent | 8c1c7601674f150a969223c67f3e963141b07b4f (diff) | |
| parent | f828ca388911f66452c88d0e907331bf0a8a59cb (diff) | |
Merge PR #9492: [stm] Filter some more arguments that shouldn't be sent to workers.
Reviewed-by: gares
| -rw-r--r-- | stm/asyncTaskQueue.ml | 12 | ||||
| -rw-r--r-- | test-suite/stm/arg_filter_1.v | 4 |
2 files changed, 11 insertions, 5 deletions
diff --git a/stm/asyncTaskQueue.ml b/stm/asyncTaskQueue.ml index be8ef24a09..73b9ef7da0 100644 --- a/stm/asyncTaskQueue.ml +++ b/stm/asyncTaskQueue.ml @@ -128,11 +128,13 @@ module Make(T : Task) () = struct | ("-emacs"|"-emacs-U"|"-batch")::tl -> set_slave_opt tl (* Options to discard: 1 argument *) - | ("-async-proofs" |"-vio2vo" | "-o" - |"-load-vernac-source" |"-l" |"-load-vernac-source-verbose" |"-lv" - |"-compile" |"-compile-verbose" - |"-async-proofs-cache" - |"-async-proofs-worker-priority" |"-worker-id") :: _ :: tl -> + | ( "-async-proofs" | "-vio2vo" | "-o" + | "-load-vernac-source" | "-l" | "-load-vernac-source-verbose" | "-lv" + | "-compile" | "-compile-verbose" + | "-async-proofs-cache" | "-async-proofs-j" | "-async-proofs-tac-j" + | "-async-proofs-private-flags" | "-async-proofs-tactic-error-resilience" + | "-async-proofs-command-error-resilience" | "-async-proofs-delegation-threshold" + | "-async-proofs-worker-priority" | "-worker-id") :: _ :: tl -> set_slave_opt tl (* We need to pass some options with one argument *) | ( "-I" | "-include" | "-top" | "-topfile" | "-coqlib" | "-exclude-dir" | "-compat" diff --git a/test-suite/stm/arg_filter_1.v b/test-suite/stm/arg_filter_1.v new file mode 100644 index 0000000000..1cf66d6b43 --- /dev/null +++ b/test-suite/stm/arg_filter_1.v @@ -0,0 +1,4 @@ +(* coq-prog-args: ("-async-proofs-tac-j" "1") *) + +Lemma foo : True. +Proof. now auto. Qed. |