author | wenzelm |
Wed, 17 Jun 2009 18:02:51 +0200 | |
changeset 31693 | 8d1861721887 |
parent 31686 | e54ae15335a1 |
child 31757 | c1262feb61c7 |
permissions | -rw-r--r-- |
31686 | 1 |
(* Title: Pure/ML-Systems/timing.ML |
2 |
Author: Makarius |
|
3 |
||
4 |
Compiler-independent timing functions. |
|
5 |
*) |
|
6 |
||
7 |
fun start_timing () = |
|
8 |
let |
|
9 |
val real_timer = Timer.startRealTimer (); |
|
10 |
val real_time = Timer.checkRealTimer real_timer; |
|
11 |
val cpu_timer = Timer.startCPUTimer (); |
|
12 |
val cpu_times = Timer.checkCPUTimes cpu_timer; |
|
13 |
in (real_timer, real_time, cpu_timer, cpu_times) end; |
|
14 |
||
15 |
fun end_timing (real_timer, real_time, cpu_timer, cpu_times) = |
|
16 |
let |
|
17 |
val real_time2 = Timer.checkRealTimer real_timer; |
|
18 |
val {nongc = {sys, usr}, gc = {sys = gc_sys, usr = gc_usr}} = cpu_times; |
|
19 |
val {nongc = {sys = sys2, usr = usr2}, gc = {sys = gc_sys2, usr = gc_usr2}} = |
|
20 |
Timer.checkCPUTimes cpu_timer; |
|
21 |
||
22 |
open Time; |
|
23 |
val elapsed = real_time2 - real_time; |
|
24 |
val gc = gc_usr2 - gc_usr + gc_sys2 - gc_sys; |
|
25 |
val cpu = usr2 - usr + sys2 - sys + gc; |
|
31693
8d1861721887
end_timing: actually display GC percentage, not factor;
wenzelm
parents:
31686
diff
changeset
|
26 |
val gc_percent = Real.fmt (StringCvt.FIX (SOME 1)) (100.0 * toReal gc / toReal cpu); |
31686 | 27 |
val factor = Real.fmt (StringCvt.FIX (SOME 2)) (toReal cpu / toReal elapsed); |
28 |
val message = |
|
29 |
(toString elapsed ^ "s elapsed time, " ^ toString cpu ^ "s cpu time, " ^ |
|
31693
8d1861721887
end_timing: actually display GC percentage, not factor;
wenzelm
parents:
31686
diff
changeset
|
30 |
gc_percent ^ "% GC time, factor " ^ factor) handle Time => ""; |
31686 | 31 |
in {message = message, elapsed = elapsed, cpu = cpu, gc = gc} end; |
32 |