diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-07-28 12:13:15 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2014-07-28 12:13:15 +0000 |
| commit | 04d0d602ef7245fd566debd91bcb148acd9ed067 (patch) | |
| tree | 77a11f3e551303521aa72af1e63cea0285bcd1bc /driver | |
| parent | b8e535ccf82385573f80f6d146c04892b25ea0a6 (diff) | |
PowerPC port: refactored the expansion of built-in functions and
pseudo-instructions so that it does not need to be re-done in
cchecklink.
cchecklink: updated accordingly.
testsuite: compile with -sdump and run cchecklink if supported.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2553 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'driver')
| -rw-r--r-- | driver/Driver.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/driver/Driver.ml b/driver/Driver.ml index 556a476..09451eb 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -152,7 +152,8 @@ let compile_c_ast sourcename csyntax ofile = (* Convert to Asm *) let asm = match Compiler.transf_c_program csyntax with - | Errors.OK x -> x + | Errors.OK asm -> + Asmexpand.expand_program (Unusedglob.transf_program asm) | Errors.Error msg -> print_error stderr msg; exit 2 in @@ -161,7 +162,7 @@ let compile_c_ast sourcename csyntax ofile = dump_asm asm (output_filename sourcename ".c" ".sdump"); (* Print Asm in text form *) let oc = open_out ofile in - PrintAsm.print_program oc (Unusedglob.transf_program asm); + PrintAsm.print_program oc asm; close_out oc (* From C source to asm *) |