full reserve of worker threads -- for improved CPU utilization;
authorwenzelm
Tue Sep 22 20:25:31 2009 +0200 (2009-09-22)
changeset 32644e4511a1b4c1b
parent 32643 72979e93f919
child 32645 1cc5b24f5a01
full reserve of worker threads -- for improved CPU utilization;
src/Pure/Concurrent/future.ML
     1.1 --- a/src/Pure/Concurrent/future.ML	Tue Sep 22 15:38:12 2009 +0200
     1.2 +++ b/src/Pure/Concurrent/future.ML	Tue Sep 22 20:25:31 2009 +0200
     1.3 @@ -257,7 +257,7 @@
     1.4                "SCHEDULE: disposed " ^ string_of_int (length dead) ^ " dead worker threads")));
     1.5  
     1.6      val m = if ! do_shutdown then 0 else Multithreading.max_threads_value ();
     1.7 -    val mm = if m = 9999 then 1 else (m * 3) div 2;
     1.8 +    val mm = if m = 9999 then 1 else m * 2;
     1.9      val l = length (! workers);
    1.10      val _ = excessive := l - mm;
    1.11      val _ =