diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2015-08-24 15:08:49 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2015-08-24 15:08:49 +0200 |
commit | e5be647428d5aa2139dd8fd2e86b8046b4d0aa35 (patch) | |
tree | cd32ccd6821677feb938ce02977aaba61b50f222 /driver/Driver.ml | |
parent | 3521ff4b742d25d69d7d35212ef50c85e6053e1a (diff) | |
download | compcert-e5be647428d5aa2139dd8fd2e86b8046b4d0aa35.tar.gz compcert-e5be647428d5aa2139dd8fd2e86b8046b4d0aa35.zip |
Improve error reporting in Asmexpand.
Diffstat (limited to 'driver/Driver.ml')
-rw-r--r-- | driver/Driver.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/driver/Driver.ml b/driver/Driver.ml index 37e3b44c..b19ba5cc 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -179,9 +179,11 @@ let compile_c_ast sourcename csyntax ofile debug = set_dest PrintMach.destination option_dmach ".mach"; (* Convert to Asm *) let asm = - match Compiler.transf_c_program csyntax with + match Compiler.apply_partial + (Compiler.transf_c_program csyntax) + Asmexpand.expand_program with | Errors.OK asm -> - Asmexpand.expand_program asm + asm | Errors.Error msg -> print_error stderr msg; exit 2 in |