# HG changeset patch
# User wenzelm
# Date 1314192643 -7200
# Node ID aa2abd81f460cce3d0aa66f062c961c139665860
# Parent  2bcd2aefaf7f054b3d39736b31d47ee196c815cb
ignore irrelevant timings;

diff -r 2bcd2aefaf7f -r aa2abd81f460 src/Pure/General/timing.ML
--- a/src/Pure/General/timing.ML	Wed Aug 24 13:40:10 2011 +0200
+++ b/src/Pure/General/timing.ML	Wed Aug 24 15:30:43 2011 +0200
@@ -20,6 +20,7 @@
   val start: unit -> start
   val result: start -> timing
   val timing: ('a -> 'b) -> 'a -> timing * 'b
+  val is_relevant: timing -> bool
   val message: timing -> string
 end
 
@@ -67,11 +68,6 @@
 
 (* timing messages *)
 
-fun message {elapsed, cpu, gc} =
-  Time.toString elapsed ^ "s elapsed time, " ^
-  Time.toString cpu ^ "s cpu time, " ^
-  Time.toString gc ^ "s GC time" handle Time.Time => "";
-
 val min_time = Time.fromMilliseconds 1;
 
 fun is_relevant {elapsed, cpu, gc} =
@@ -79,6 +75,11 @@
   Time.>= (cpu, min_time) orelse
   Time.>= (gc, min_time);
 
+fun message {elapsed, cpu, gc} =
+  Time.toString elapsed ^ "s elapsed time, " ^
+  Time.toString cpu ^ "s cpu time, " ^
+  Time.toString gc ^ "s GC time" handle Time.Time => "";
+
 fun cond_timeit enabled msg e =
   if enabled then
     let
diff -r 2bcd2aefaf7f -r aa2abd81f460 src/Pure/PIDE/document.ML
--- a/src/Pure/PIDE/document.ML	Wed Aug 24 13:40:10 2011 +0200
+++ b/src/Pure/PIDE/document.ML	Wed Aug 24 15:30:43 2011 +0200
@@ -275,7 +275,8 @@
 
 local
 
-fun timing tr t = Toplevel.status tr (Markup.timing t);
+fun timing tr t =
+  if Timing.is_relevant t then Toplevel.status tr (Markup.timing t) else ();
 
 fun proof_status tr st =
   (case try Toplevel.proof_of st of