diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-11 11:24:30 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-11 11:24:30 +0200 |
commit | 5862a7517105b822224191e05ff203924e408ed5 (patch) | |
tree | 72bcbaf7b0b752d00ff77827f849079a2100bb52 | |
parent | f50a1c1e1dc194c78b68ecdc7e3f6c0b0448f5f4 (diff) | |
download | compcert-kvx-5862a7517105b822224191e05ff203924e408ed5.tar.gz compcert-kvx-5862a7517105b822224191e05ff203924e408ed5.zip |
fix for aarch64
-rw-r--r-- | aarch64/TargetPrinter.ml | 2 | ||||
-rw-r--r-- | backend/PrintAsmaux.ml | 4 |
2 files changed, 5 insertions, 1 deletions
diff --git a/aarch64/TargetPrinter.ml b/aarch64/TargetPrinter.ml index 5f62c936..ef9045ea 100644 --- a/aarch64/TargetPrinter.ml +++ b/aarch64/TargetPrinter.ml @@ -616,7 +616,7 @@ module Target : TARGET = let print_epilogue oc = - print_profiling_epilogue (Init_atexit print_atexit) aarch64_profiling_stub oc; + print_profiling_epilogue elf_text_print_fun_info (Init_atexit print_atexit) aarch64_profiling_stub oc; if !Clflags.option_g then begin Debug.compute_gnu_file_enum (fun f -> ignore (print_file oc f)); section oc Section_text; diff --git a/backend/PrintAsmaux.ml b/backend/PrintAsmaux.ml index cc7b33c3..25792df5 100644 --- a/backend/PrintAsmaux.ml +++ b/backend/PrintAsmaux.ml @@ -111,6 +111,10 @@ let elf_symbol_offset oc (symb, ofs) = if ofs <> 0L then fprintf oc " + %Ld" ofs (* Functions for fun and var info *) +let elf_text_print_fun_info oc name = + fprintf oc " .type %s, @function\n" name; + fprintf oc " .size %s, . - %s\n" name name + let elf_print_fun_info oc name = fprintf oc " .type %a, @function\n" elf_symbol name; fprintf oc " .size %a, . - %a\n" elf_symbol name elf_symbol name |