diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2014-09-29 14:04:59 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2014-09-29 14:04:59 +0200 |
| commit | e5b59af8a21c42b504b1beeb89208dd0cb0c8b3b (patch) | |
| tree | c257060ca943eade1562bf9071a54a6f82fa5467 /cparser/Parse.ml | |
| parent | 6087efa0b68ae3a1b003dac86970719728976395 (diff) | |
| download | compcert-kvx-e5b59af8a21c42b504b1beeb89208dd0cb0c8b3b.tar.gz compcert-kvx-e5b59af8a21c42b504b1beeb89208dd0cb0c8b3b.zip | |
Moved the timing facility to a seperate file.
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 |