src/Pure/Tools/build.ML
changeset 62925 f1bdf10f95d8
parent 62884 66494de0aafe
child 62930 51ac6bc389e8
equal deleted inserted replaced
62924:ce47945ce4fb 62925:f1bdf10f95d8
    49   let
    49   let
    50     val start = Timing.start ();
    50     val start = Timing.start ();
    51     val y = f x;
    51     val y = f x;
    52     val timing = Timing.result start;
    52     val timing = Timing.result start;
    53 
    53 
    54     val threads = string_of_int (Multithreading.max_threads_value ());
    54     val threads = string_of_int (Multithreading.max_threads ());
    55     val factor = Time.toReal (#cpu timing) / Time.toReal (#elapsed timing)
    55     val factor = Time.toReal (#cpu timing) / Time.toReal (#elapsed timing)
    56       |> Real.fmt (StringCvt.FIX (SOME 2));
    56       |> Real.fmt (StringCvt.FIX (SOME 2));
    57 
    57 
    58     val timing_props =
    58     val timing_props =
    59       [("threads", threads)] @ Markup.timing_properties timing @ [("factor", factor)];
    59       [("threads", threads)] @ Markup.timing_properties timing @ [("factor", factor)];