diff options
Diffstat (limited to 'cparser/Parse.ml')
| -rw-r--r-- | cparser/Parse.ml | 6 |
1 files changed, 3 insertions, 3 deletions
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 |