diff options
| author | Hugo Herbelin | 2014-07-03 12:43:28 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2014-07-13 18:02:57 +0200 |
| commit | d29b487f7c50fd8332cb1cfc144f70bc7db595d9 (patch) | |
| tree | a80671a48c3db293d46f5d8d2a929486a4d02e13 /printing/pptactic.ml | |
| parent | d90205f6284b998a8fc50b295d2d790d2580ea26 (diff) | |
Adding a "time" tactical for benchmarking purposes. In case the tactic
backtracks, print time spent in each of successive calls.
Diffstat (limited to 'printing/pptactic.ml')
| -rw-r--r-- | printing/pptactic.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/printing/pptactic.ml b/printing/pptactic.ml index f6c25d0699..e51d7b3fd9 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -865,6 +865,9 @@ let rec pr_tac inherited tac = hov 1 (str "timeout " ++ pr_or_var int n ++ spc () ++ pr_tac (ltactical,E) t), ltactical + | TacTime (s,t) -> + hov 1 (str "time" ++ pr_opt str s ++ str " " ++ pr_tac (ltactical,E) t), + ltactical | TacRepeat t -> hov 1 (str "repeat" ++ spc () ++ pr_tac (ltactical,E) t), ltactical |