diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-18 15:06:53 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-02-18 15:06:53 +0100 |
commit | fcd5ba10674f499d4e270bfb68fa40da8857fb47 (patch) | |
tree | ec56ae5a6b28f85fa1670342cf26032f4ed26d6f /arm/TargetPrinter.ml | |
parent | 71260eff997f5d3c25d9ccda92b8176c893be26d (diff) | |
download | compcert-fcd5ba10674f499d4e270bfb68fa40da8857fb47.tar.gz compcert-fcd5ba10674f499d4e270bfb68fa40da8857fb47.zip |
Added an elf prefix to all common elf functions in PrintAsmaux.
Diffstat (limited to 'arm/TargetPrinter.ml')
-rw-r--r-- | arm/TargetPrinter.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/arm/TargetPrinter.ml b/arm/TargetPrinter.ml index 7eb01084..1d37d237 100644 --- a/arm/TargetPrinter.ml +++ b/arm/TargetPrinter.ml @@ -44,10 +44,12 @@ module Target (Opt: PRINTER_OPTIONS) : TARGET = (* Basic printing functions *) - let print_label oc lbl = label oc (transl_label lbl) + let print_label oc lbl = elf_label oc (transl_label lbl) let comment = "@" + let symbol = elf_symbol + let symbol_offset oc (symb, ofs) = symbol oc symb; let ofs = camlint_of_coqint ofs in @@ -1058,9 +1060,9 @@ module Target (Opt: PRINTER_OPTIONS) : TARGET = if !Clflags.option_mthumb then fprintf oc " .thumb_func\n" - let print_fun_info = print_fun_info + let print_fun_info = elf_print_fun_info - let print_var_info = print_var_info + let print_var_info = elf_print_var_info let print_comm_symb oc sz name align = if C2C.atom_is_static name then |