diff options
| author | Jason Gross | 2017-12-11 02:13:59 -0500 |
|---|---|---|
| committer | Jason Gross | 2017-12-11 18:18:27 -0500 |
| commit | 54a9d18913db05c29837f60b4d82935207ec483a (patch) | |
| tree | aa7984996d66d223a036f5511526ac3d91a9841f | |
| parent | 0275b5802ffd416dd0ed739955445a1c3c0287e9 (diff) | |
Allow LtacProf tactics to be called
This fixes #6378. Previously the ML module was never declared anywhere.
Thanks to @cmangin for the pointer.
| -rw-r--r-- | plugins/ltac/profile_ltac_tactics.ml4 | 4 | ||||
| -rw-r--r-- | test-suite/bugs/closed/6378.v | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/plugins/ltac/profile_ltac_tactics.ml4 b/plugins/ltac/profile_ltac_tactics.ml4 index 2b1106ee21..f095660638 100644 --- a/plugins/ltac/profile_ltac_tactics.ml4 +++ b/plugins/ltac/profile_ltac_tactics.ml4 @@ -13,7 +13,7 @@ open Profile_ltac open Stdarg -DECLARE PLUGIN "profile_ltac_plugin" +DECLARE PLUGIN "ltac_plugin" let tclSET_PROFILING b = Proofview.tclLIFT (Proofview.NonLogical.make (fun () -> set_profiling b)) @@ -22,7 +22,7 @@ TACTIC EXTEND start_ltac_profiling | [ "start" "ltac" "profiling" ] -> [ tclSET_PROFILING true ] END -TACTIC EXTEND stop_profiling +TACTIC EXTEND stop_ltac_profiling | [ "stop" "ltac" "profiling" ] -> [ tclSET_PROFILING false ] END diff --git a/test-suite/bugs/closed/6378.v b/test-suite/bugs/closed/6378.v new file mode 100644 index 0000000000..d0ef090d08 --- /dev/null +++ b/test-suite/bugs/closed/6378.v @@ -0,0 +1,4 @@ +Goal True. + start ltac profiling. + stop ltac profiling. +Abort. |