diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-09 14:54:42 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-09 14:54:42 +0100 |
| commit | a3c0094508f9f4985de4509380dada5f5c85e115 (patch) | |
| tree | 5d3758130d08ae008e87454dadf603780612b830 /backend | |
| parent | aaec016c81c062ad821fc6a6b8f000308ffaad7f (diff) | |
| download | compcert-kvx-a3c0094508f9f4985de4509380dada5f5c85e115.tar.gz compcert-kvx-a3c0094508f9f4985de4509380dada5f5c85e115.zip | |
Changed arm backend to the common backend printer.
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/PrintAsm.ml | 2 | ||||
| -rw-r--r-- | backend/PrintAsmaux.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/backend/PrintAsm.ml b/backend/PrintAsm.ml index aa317a09..0860c1d4 100644 --- a/backend/PrintAsm.ml +++ b/backend/PrintAsm.ml @@ -39,7 +39,7 @@ let print_function oc name fn = fprintf oc "%a:\n" symbol name; print_location oc (C2C.atom_location name); Target.cfi_startproc oc; - Target.print_instructions oc fn.fn_code; + Target.print_instructions oc fn; Target.cfi_endproc oc; if Target.print_fun_info then print_fun_info oc name; diff --git a/backend/PrintAsmaux.ml b/backend/PrintAsmaux.ml index 8812d320..3f619d84 100644 --- a/backend/PrintAsmaux.ml +++ b/backend/PrintAsmaux.ml @@ -34,7 +34,7 @@ module type TARGET = val print_file_line: out_channel -> string -> int -> unit val print_optional_fun_info: out_channel -> unit val cfi_startproc: out_channel -> unit - val print_instructions: out_channel -> code -> unit + val print_instructions: out_channel -> coq_function -> unit val cfi_endproc: out_channel -> unit val emit_constants: out_channel -> section_name -> unit val print_jumptable: out_channel -> section_name -> unit |