From e5b59af8a21c42b504b1beeb89208dd0cb0c8b3b Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Mon, 29 Sep 2014 14:04:59 +0200 Subject: Moved the timing facility to a seperate file. --- cparser/Parse.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'cparser/Parse.ml') diff --git a/cparser/Parse.ml b/cparser/Parse.ml index 61b5bc41..59b04e7a 100644 --- a/cparser/Parse.ml +++ b/cparser/Parse.ml @@ -48,7 +48,7 @@ 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 @@ -56,8 +56,8 @@ let preprocessed_file transfs name sourcefile = 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 -- cgit