author | wenzelm |
Mon, 26 Oct 2009 11:36:23 +0100 | |
changeset 33180 | e1b0280f0299 |
parent 33179 | f35905921049 |
child 33181 | 50268fcec3ce |
--- a/src/Pure/ML-Systems/multithreading_polyml.ML Mon Oct 26 11:30:20 2009 +0100 +++ b/src/Pure/ML-Systems/multithreading_polyml.ML Mon Oct 26 11:36:23 2009 +0100 @@ -41,7 +41,7 @@ let val m = ! max_threads in if m > 0 then m else if not tested_platform then 1 - else Int.min (Int.max (Thread.numProcessors (), 1), 8) + else Int.min (Int.max (Thread.numProcessors (), 1), 4) end; fun enabled () = max_threads_value () > 1;