bjoernager/rust
bjoernager/rust
1
Fork 0
Code Activity

Add a cumulative timer count to be sure we're getting everything.

Browse source
This commit is contained in:
Graydon Hoare 2010-07-26 12:31:08 -07:00
parent 1b41d7be1a
commit c4897f849c
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/boot/driver/main.ml
View file

@ -423,14 +423,17 @@ exit_if_failed ()
if sess.Session.sess_report_timing if sess.Session.sess_report_timing
then then
begin begin
let cumulative = ref 0.0 in
Printf.fprintf stdout "timing:\n\n"; Printf.fprintf stdout "timing:\n\n";
Array.iter Array.iter
begin begin
fun name -> fun name ->
Printf.fprintf stdout "%20s: %f\n" name let t = Hashtbl.find sess.Session.sess_timings name in
(Hashtbl.find sess.Session.sess_timings name) Printf.fprintf stdout "%20s: %f\n" name t;
cumulative := (!cumulative) +. t
end end
(sorted_htab_keys sess.Session.sess_timings) (sorted_htab_keys sess.Session.sess_timings);
Printf.fprintf stdout "\n%20s: %f\n" "cumulative" (!cumulative)
end; end;
;; ;;