src/Pure/System/session.ML
changeset 50781 a0f22c2d60cc
parent 50777 20126dd9772c
child 51045 630c0895d9d1
equal deleted inserted replaced
50778:15dc91cf4750 50781:a0f22c2d60cc
    96     val factor = Time.toReal (#cpu timing) / Time.toReal (#elapsed timing)
    96     val factor = Time.toReal (#cpu timing) / Time.toReal (#elapsed timing)
    97       |> Real.fmt (StringCvt.FIX (SOME 2));
    97       |> Real.fmt (StringCvt.FIX (SOME 2));
    98 
    98 
    99     val _ =
    99     val _ =
   100       writeln ("\fTiming = " ^ ML_Syntax.print_properties
   100       writeln ("\fTiming = " ^ ML_Syntax.print_properties
   101         ([("threads", threads)] @ Timing.properties timing @ [("factor", factor)]));
   101         ([("threads", threads)] @ Markup.timing_properties timing @ [("factor", factor)]));
   102     val _ =
   102     val _ =
   103       if verbose then
   103       if verbose then
   104         Output.physical_stderr ("Timing " ^ name ^ " (" ^
   104         Output.physical_stderr ("Timing " ^ name ^ " (" ^
   105           threads ^ " threads, " ^ Timing.message timing ^ ", factor " ^ factor ^ ")\n")
   105           threads ^ " threads, " ^ Timing.message timing ^ ", factor " ^ factor ^ ")\n")
   106       else ();
   106       else ();