diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-03-23 09:12:08 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-03-23 09:12:08 +0100 |
commit | 5f10d3ecb0104527adf59d8ff2b74aec89811f23 (patch) | |
tree | abff1e4c515b1df706b9e05a48c2259269862ab9 | |
parent | 253e8e9b72a1204f334460af0ffc7893d3e4b752 (diff) | |
parent | 8d75ab2d38fa20dc7d8e3839967015cc276cd642 (diff) | |
download | compcert-5f10d3ecb0104527adf59d8ff2b74aec89811f23.tar.gz compcert-5f10d3ecb0104527adf59d8ff2b74aec89811f23.zip |
Merge branch 'master' into dwarf
-rw-r--r-- | arm/TargetPrinter.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/arm/TargetPrinter.ml b/arm/TargetPrinter.ml index 357990da..b37683d3 100644 --- a/arm/TargetPrinter.ml +++ b/arm/TargetPrinter.ml @@ -1060,9 +1060,13 @@ module Target (Opt: PRINTER_OPTIONS) : TARGET = if !Clflags.option_mthumb then fprintf oc " .thumb_func\n" - let print_fun_info = elf_print_fun_info + let print_fun_info oc name = + fprintf oc " .type %a, %%function\n" symbol name; + fprintf oc " .size %a, . - %a\n" symbol name symbol name - let print_var_info = elf_print_var_info + let print_var_info oc name = + fprintf oc " .type %a, %%object\n" symbol name; + fprintf oc " .size %a, . - %a\n" symbol name symbol name let print_comm_symb oc sz name align = if C2C.atom_is_static name then |