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.
scheduler backdoor: 9999 means 1 worker;
authorwenzelm
Sun, 20 Sep 2009 18:37:55 +0200
changeset 32616 8ef1aa1cfcc7
parent 32615 20f1edc87b7d
child 32617 bfbdeddc03bc
scheduler backdoor: 9999 means 1 worker;
src/Pure/Concurrent/future.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Concurrent/future.ML	Sun Sep 20 18:15:07 2009 +0200
+++ b/src/Pure/Concurrent/future.ML	Sun Sep 20 18:37:55 2009 +0200
@@ -257,7 +257,7 @@
               "SCHEDULE: disposed " ^ string_of_int (length dead) ^ " dead worker threads")));
 
     val m = if ! do_shutdown then 0 else Multithreading.max_threads_value ();
-    val mm = (m * 3) div 2;
+    val mm = if m = 9999 then 1 else (m * 3) div 2;
     val l = length (! workers);
     val _ = excessive := l - mm;
     val _ =
isabelle