# HG changeset patch
# User wenzelm
# Date 1253643931 -7200
# Node ID e4511a1b4c1b2014e1ff1ea84cd66a0765429b06
# Parent  72979e93f919c0b09a505b4c7ab1957210be323c
full reserve of worker threads -- for improved CPU utilization;

diff -r 72979e93f919 -r e4511a1b4c1b src/Pure/Concurrent/future.ML
--- a/src/Pure/Concurrent/future.ML	Tue Sep 22 15:38:12 2009 +0200
+++ b/src/Pure/Concurrent/future.ML	Tue Sep 22 20:25:31 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 = if m = 9999 then 1 else (m * 3) div 2;
+    val mm = if m = 9999 then 1 else m * 2;
     val l = length (! workers);
     val _ = excessive := l - mm;
     val _ =