less bulky timing information, e.g. HOL 56913 ~> 672;
authorwenzelm
Fri, 01 Apr 2016 17:00:18 +0200
changeset 62793 f235646b1b73
parent 62792 340428bebdb8
child 62794 c4fa2b381591
less bulky timing information, e.g. HOL 56913 ~> 672;
etc/options
src/Pure/Tools/build.ML
--- a/etc/options	Fri Apr 01 16:32:20 2016 +0200
+++ b/etc/options	Fri Apr 01 17:00:18 2016 +0200
@@ -76,6 +76,9 @@
 option parallel_subproofs_threshold : real = 0.01
   -- "lower bound of timing estimate for forked nested proofs (seconds)"
 
+option command_timing_threshold : real = 0.1
+  -- "default threshold for persistent command timing (seconds)"
+
 
 section "Detail of Proof Checking"
 
--- a/src/Pure/Tools/build.ML	Fri Apr 01 16:32:20 2016 +0200
+++ b/src/Pure/Tools/build.ML	Fri Apr 01 17:00:18 2016 +0200
@@ -81,8 +81,11 @@
           val name = the_default "" (Properties.get args Markup.nameN);
           val pos = Position.of_properties args;
           val {elapsed, ...} = Markup.parse_timing_properties args;
+          val is_significant =
+            Timing.is_relevant_time elapsed andalso
+            Time.>= (elapsed, Options.default_seconds "command_timing_threshold");
         in
-          if Timing.is_relevant_time elapsed then
+          if is_significant then
             (case approximative_id name pos of
               SOME id => inline_message (#2 function) (Markup.command_timing_properties id elapsed)
             | NONE => ())