From a3c0094508f9f4985de4509380dada5f5c85e115 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Mon, 9 Feb 2015 14:54:42 +0100 Subject: Changed arm backend to the common backend printer. --- backend/PrintAsm.ml | 2 +- backend/PrintAsmaux.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'backend') 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 -- cgit