author | wenzelm |
Tue, 22 Sep 2009 20:25:31 +0200 | |
changeset 32644 | e4511a1b4c1b |
parent 32643 | 72979e93f919 |
child 32645 | 1cc5b24f5a01 |
--- 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 _ =