# HG changeset patch
# User wenzelm
# Date 1185980608 -7200
# Node ID 06965b38c5e9bb7382e5528160388f154a9d142a
# Parent  464f260e5a20d80fae8b0c750a413d204bab3827
tracing: level;

diff -r 464f260e5a20 -r 06965b38c5e9 src/Pure/ML-Systems/multithreading_polyml.ML
--- a/src/Pure/ML-Systems/multithreading_polyml.ML	Wed Aug 01 16:59:15 2007 +0200
+++ b/src/Pure/ML-Systems/multithreading_polyml.ML	Wed Aug 01 17:03:28 2007 +0200
@@ -12,9 +12,9 @@
 
 (* options *)
 
-val trace = ref false;
-fun tracing msg =
-  if ! trace
+val trace = ref 0;
+fun tracing level msg =
+  if level <= ! trace
   then (TextIO.output (TextIO.stdErr, (">>> " ^ msg () ^ "\n")); TextIO.flushOut TextIO.stdErr)
   else ();
 
@@ -58,10 +58,10 @@
         else
           let
             val timer = Timer.startRealTimer ();
-            val _ = tracing (fn () =>
+            val _ = tracing 3 (fn () =>
               "CRITICAL" ^ show name ^ show' (! critical_name) ^ ": waiting");
             val _ = Mutex.lock critical_lock;
-            val _ = tracing (fn () =>
+            val _ = tracing 3 (fn () =>
               "CRITICAL" ^ show name ^ show' (! critical_name) ^ ": passed after " ^
               Time.toString (Timer.checkRealTimer timer));
           in () end;
@@ -95,9 +95,9 @@
         val _ =
           if Mutex.trylock lock then ()
           else
-           (tracing (fn () => "PROTECTED" ^ show name ^ show' (! protected_name) ^ ": waiting");
+           (tracing 2 (fn () => "PROTECTED" ^ show name ^ show' (! protected_name) ^ ": waiting");
             Mutex.lock lock;
-            tracing (fn () => "PROTECTED" ^ show name ^ show' (! protected_name) ^ ": passed"));
+            tracing 2 (fn () => "PROTECTED" ^ show name ^ show' (! protected_name) ^ ": passed"));
         val _ = protected_name := name;
         val res = Exn.capture e ();
         val _ = protected_name := "";
@@ -112,7 +112,7 @@
     (*the queue of tasks*)
     val queue = ref tasks;
     val active = ref 0;
-    fun trace_active () = tracing (fn () => "SCHEDULE: " ^ Int.toString (! active) ^ " active");
+    fun trace_active () = tracing 1 (fn () => "SCHEDULE: " ^ Int.toString (! active) ^ " active");
     fun dequeue () =
       let
         val (next, tasks') = next_task (! queue);