equal
deleted
inserted
replaced
235 |
235 |
236 val _ = |
236 val _ = |
237 protocol_command "Isabelle_Process.options" |
237 protocol_command "Isabelle_Process.options" |
238 (fn [options_yxml] => |
238 (fn [options_yxml] => |
239 let val options = Options.decode (YXML.parse_body options_yxml) in |
239 let val options = Options.decode (YXML.parse_body options_yxml) in |
|
240 Options.set_default options; |
240 Future.ML_statistics := true; |
241 Future.ML_statistics := true; |
241 Multithreading.trace := Options.int options "threads_trace"; |
242 Multithreading.trace := Options.int options "threads_trace"; |
242 Multithreading.max_threads := Options.int options "threads"; |
243 Multithreading.max_threads := Options.int options "threads"; |
243 if Multithreading.max_threads_value () < 2 |
244 if Multithreading.max_threads_value () < 2 |
244 then Multithreading.max_threads := 2 else (); |
245 then Multithreading.max_threads := 2 else (); |