diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-07-03 12:43:28 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-07-13 18:02:57 +0200 |
| commit | d29b487f7c50fd8332cb1cfc144f70bc7db595d9 (patch) | |
| tree | a80671a48c3db293d46f5d8d2a929486a4d02e13 /toplevel/vernacentries.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 'toplevel/vernacentries.ml')
| -rw-r--r-- | toplevel/vernacentries.ml | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 1d05f4e62..b98801ea7 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1965,11 +1965,8 @@ let interp ?(verbosely=true) ?proof (loc,c) = current_timeout := Some n; aux ?locality ?polymorphism isprogcmd v | VernacTime v -> - let tstart = System.get_time() in - aux_list ?locality ?polymorphism isprogcmd v; - let tend = System.get_time() in - let msg = if !Flags.time then "" else "Finished transaction in " in - msg_info (str msg ++ System.fmt_time_difference tstart tend) + System.with_time !Flags.time + (aux_list ?locality ?polymorphism isprogcmd) v; | VernacLoad (_,fname) -> vernac_load (aux false) fname | c -> check_vernac_supports_locality c locality; |