Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
more standard Value.print_time;
authorwenzelm
Thu, 15 Oct 2020 14:42:05 +0200
changeset 72481 5bf00b1dd7d8
parent 72480 b772a93d44aa
child 72482 11f645d25498
child 72483 ca6a3ea1f7c4
more standard Value.print_time;
src/HOL/Tools/SMT/smt_solver.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/SMT/smt_solver.ML	Thu Oct 15 14:31:55 2020 +0200
+++ b/src/HOL/Tools/SMT/smt_solver.ML	Thu Oct 15 14:42:05 2020 +0200
@@ -96,8 +96,8 @@
 
     val output = drop_suffix (equal "") res
     val _ = SMT_Config.trace_msg ctxt (pretty "Result:") output
-    val _ = SMT_Config.trace_msg ctxt (pretty "Time (ms):") [\<^make_string> (Time.toMilliseconds elapsed)]
-    val _ = SMT_Config.statistics_msg ctxt (pretty "Time (ms):") [\<^make_string> (Time.toMilliseconds elapsed)]
+    val _ = SMT_Config.trace_msg ctxt (pretty "Time:") [Value.print_time elapsed ^ "s"]
+    val _ = SMT_Config.statistics_msg ctxt (pretty "Time:") [Value.print_time elapsed ^ "s"]
 
     val _ = member (op =) normal_return_codes return_code orelse
       raise SMT_Failure.SMT (SMT_Failure.Abnormal_Termination return_code)
isabelle