src/Pure/System/isabelle_process.ML
changeset 51941 ead4248aef3b
parent 51554 041bc3d31f23
child 52058 387dc978422b
equal deleted inserted replaced
51940:958d439b3013 51941:ead4248aef3b
   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 ();