Moved the timing facility to a seperate file.

Author: bschommer

cparser/Parse.ml

@@ -48,16 +48,16 @@ let preprocessed_file transfs name sourcefile =
       let rec inf = Datatypes.S inf in
       let ast : Cabs.definition list =
         Obj.magic
-          (match Clflags.time2 "Parsing"
+          (match Timing.time2 "Parsing"
                  Parser.translation_unit_file inf (Lexer.tokens_stream lb) with
              | Parser.Parser.Inter.Fail_pr ->
                  (* Theoretically impossible : implies inconsistencies
                     between grammars. *)
                  Cerrors.fatal_error "Internal error while parsing"
              | Parser.Parser.Inter.Timeout_pr -> assert false
              | Parser.Parser.Inter.Parsed_pr (ast, _ ) -> ast) in
-      let p1 = Clflags.time "Elaboration" Elab.elab_file ast in
-      Clflags.time2 "Emulations" transform_program t p1
+      let p1 = Timing.time "Elaboration" Elab.elab_file ast in
+      Timing.time2 "Emulations" transform_program t p1
     with
     | Cerrors.Abort ->
         [] in

driver/Clflags.ml

@@ -54,53 +54,3 @@ let option_small_data =
        then 8 else 0)
 let option_small_const = ref (!option_small_data)
 let option_timings = ref false
-
-(** Timing facility *)
-
-let timers : (string * float) list ref = ref []
-
-let add_to_timer name time =
-  let rec add = function
-  | [] -> [name, time]
-  | (name1, time1 as nt1) :: rem ->
-      if name1 = name then (name1, time1 +. time) :: rem else nt1 :: add rem
-  in timers := add !timers
-
-let time name fn arg =
-  if not !option_timings then
-    fn arg
-  else begin
-    let start = Sys.time() in
-    try
-      let res = fn arg in
-      add_to_timer name (Sys.time() -. start);
-      res
-    with x ->
-      add_to_timer name (Sys.time() -. start);
-      raise x
-  end
-
-let time2 name fn arg1 arg2 = time name (fun () -> fn arg1 arg2) ()
-let time3 name fn arg1 arg2 arg3 = time name (fun () -> fn arg1 arg2 arg3) ()
-
-let time_coq name fn arg =
-  if not !option_timings then
-    fn arg
-  else begin
-    let start = Sys.time() in
-    try
-      let res = fn arg in
-      add_to_timer (Camlcoq.camlstring_of_coqstring name) (Sys.time() -. start);
-      res
-    with x ->
-      add_to_timer (Camlcoq.camlstring_of_coqstring name) (Sys.time() -. start);
-      raise x
-  end
-
-let print_timers () =
-  if !option_timings then
-    List.iter
-      (fun (name, time) -> Printf.printf "%7.2fs  %s\n" time name)
-      !timers
-
-let _ = at_exit print_timers

driver/Driver.ml

@@ -13,6 +13,7 @@
 open Printf
 open Camlcoq
 open Clflags
+open Timing
 
 (* Location of the compatibility library *)
 

driver/Timing.ml

@@ -0,0 +1,63 @@
+(* *********************************************************************)
+(*                                                                     *)
+(*              The Compcert verified compiler                         *)
+(*                                                                     *)
+(*          Bernhard Schommer, AbsInt Angewandte Informatik GmbH       *)
+(*                                                                     *)
+(*  AbsInt Angewandte Informatik GmbH. All rights reserved. This file  *)
+(*  is distributed under the terms of the INRIA Non-Commercial         *)
+(*  License Agreement.                                                 *)
+(*                                                                     *)
+(* *********************************************************************)
+
+open Clflags
+
+(** Timing facility *)
+
+let timers : (string * float) list ref = ref []
+
+let add_to_timer name time =
+  let rec add = function
+  | [] -> [name, time]
+  | (name1, time1 as nt1) :: rem ->
+      if name1 = name then (name1, time1 +. time) :: rem else nt1 :: add rem
+  in timers := add !timers
+
+let time name fn arg =
+  if not !option_timings then
+    fn arg
+  else begin
+    let start = Sys.time() in
+    try
+      let res = fn arg in
+      add_to_timer name (Sys.time() -. start);
+      res
+    with x ->
+      add_to_timer name (Sys.time() -. start);
+      raise x
+  end
+
+let time2 name fn arg1 arg2 = time name (fun () -> fn arg1 arg2) ()
+let time3 name fn arg1 arg2 arg3 = time name (fun () -> fn arg1 arg2 arg3) ()
+
+let time_coq name fn arg =
+  if not !option_timings then
+    fn arg
+  else begin
+    let start = Sys.time() in
+    try
+      let res = fn arg in
+      add_to_timer (Camlcoq.camlstring_of_coqstring name) (Sys.time() -. start);
+      res
+    with x ->
+      add_to_timer (Camlcoq.camlstring_of_coqstring name) (Sys.time() -. start);
+      raise x
+  end
+
+let print_timers () =
+  if !option_timings then
+    List.iter
+      (fun (name, time) -> Printf.printf "%7.2fs  %s\n" time name)
+      !timers
+
+let _ = at_exit print_timers

extraction/extraction.v

@@ -104,7 +104,7 @@ Extract Constant Compiler.print_RTL => "PrintRTL.print_if".
 Extract Constant Compiler.print_LTL => "PrintLTL.print_if".
 Extract Constant Compiler.print_Mach => "PrintMach.print_if".
 Extract Constant Compiler.print => "fun (f: 'a -> unit) (x: 'a) -> f x; x".
-Extract Constant Compiler.time  => "Clflags.time_coq".
+Extract Constant Compiler.time  => "Timing.time_coq".
 
 (*Extraction Inline Compiler.apply_total Compiler.apply_partial.*)