diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-09-20 13:17:50 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-09-20 13:17:50 +0000 |
commit | 719d2c04a005714b3a1a1e838ffc653d65da662b (patch) | |
tree | 997d32925c5dbf0015c217897155a164b005813e /lib/Camlcoq.ml | |
parent | 76ea1108be6f8b4ba9dc0118a13f685bcb62bc2b (diff) | |
download | compcert-719d2c04a005714b3a1a1e838ffc653d65da662b.tar.gz compcert-719d2c04a005714b3a1a1e838ffc653d65da662b.zip |
Small improvements in compilation times for the register allocation pass.
Maps.v: add a PTree.fold1 operation that doesn't maintain the key.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2329 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'lib/Camlcoq.ml')
-rw-r--r-- | lib/Camlcoq.ml | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/lib/Camlcoq.ml b/lib/Camlcoq.ml index e057771e..2415e1d9 100644 --- a/lib/Camlcoq.ml +++ b/lib/Camlcoq.ml @@ -267,7 +267,7 @@ let camlfloat_of_coqfloat f = (* Timing facility *) (* -let timers = (Hashtbl.create 9 : (string, float) Hashtbl.t) +let timers = Hashtbl.create 9 let add_to_timer name time = let old = try Hashtbl.find timers name with Not_found -> 0.0 in @@ -283,6 +283,26 @@ let time name fn arg = add_to_timer name (Unix.gettimeofday() -. start); raise x +let time2 name fn arg1 arg2 = + let start = Unix.gettimeofday() in + try + let res = fn arg1 arg2 in + add_to_timer name (Unix.gettimeofday() -. start); + res + with x -> + add_to_timer name (Unix.gettimeofday() -. start); + raise x + +let time3 name fn arg1 arg2 arg3 = + let start = Unix.gettimeofday() in + try + let res = fn arg1 arg2 arg3 in + add_to_timer name (Unix.gettimeofday() -. start); + res + with x -> + add_to_timer name (Unix.gettimeofday() -. start); + raise x + let print_timers () = Hashtbl.iter (fun name time -> Printf.printf "%-20s %.3f\n" name time) |