diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-03-28 13:32:21 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-03-28 13:32:21 +0000 |
commit | befbc76f89f3d8abc8da17caf91ea4a87ec96eeb (patch) | |
tree | d84d76258ca9b2505713552bb62be8c40714787b /cparser/Parse.ml | |
parent | 26c166e279ec05837b6b3b5db80a7ef3c520db32 (diff) | |
download | compcert-befbc76f89f3d8abc8da17caf91ea4a87ec96eeb.tar.gz compcert-befbc76f89f3d8abc8da17caf91ea4a87ec96eeb.zip |
checklink: first import of Valentin Robert's validator for asm and link
cparser: renamed Errors to Cerrors; removed packing into Cparser.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1856 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cparser/Parse.ml')
-rw-r--r-- | cparser/Parse.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/cparser/Parse.ml b/cparser/Parse.ml index 0fc85bf3..2a144e2b 100644 --- a/cparser/Parse.ml +++ b/cparser/Parse.ml @@ -39,15 +39,15 @@ let parse_transformations s = !t let preprocessed_file transfs name sourcefile = - Errors.reset(); + Cerrors.reset(); let t = parse_transformations transfs in let ic = open_in sourcefile in let p = try transform_program t (Elab.elab_preprocessed_file name ic) with Parsing.Parse_error -> - Errors.error "Error during parsing"; [] - | Errors.Abort -> + Cerrors.error "Error during parsing"; [] + | Cerrors.Abort -> [] in close_in ic; - if Errors.check_errors() then None else Some p + if Cerrors.check_errors() then None else Some p |