diff options
author | 2014-07-07 21:34:49 +0200 | |
---|---|---|
committer | 2014-07-07 21:34:49 +0200 | |
commit | a3503c0aca07f5e7f5785faa7b76123a02ecc2af (patch) | |
tree | ae07277425e50314b0c341752a11af3055a01907 /toplevel/vernacentries.ml | |
parent | abad0a15ac44cb5b53b87382bb4d587d9800a0f6 (diff) |
Revert "time tac" (committed by mistake).
This reverts commit abad0a15ac44cb5b53b87382bb4d587d9800a0f6.
Diffstat (limited to 'toplevel/vernacentries.ml')
-rw-r--r-- | toplevel/vernacentries.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 5e829a2d9..1d05f4e62 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1965,7 +1965,11 @@ let interp ?(verbosely=true) ?proof (loc,c) = current_timeout := Some n; aux ?locality ?polymorphism isprogcmd v | VernacTime v -> - System.with_time !Flags.time (aux ?locality ?polymorphism isprogcmd) 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) | VernacLoad (_,fname) -> vernac_load (aux false) fname | c -> check_vernac_supports_locality c locality; |