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 /backend/PrintAsmaux.ml | |
| parent | f50a1c1e1dc194c78b68ecdc7e3f6c0b0448f5f4 (diff) | |
| download | compcert-kvx-5862a7517105b822224191e05ff203924e408ed5.tar.gz compcert-kvx-5862a7517105b822224191e05ff203924e408ed5.zip | |
fix for aarch64
Diffstat (limited to 'backend/PrintAsmaux.ml')
| -rw-r--r-- | backend/PrintAsmaux.ml | 4 |
1 files changed, 4 insertions, 0 deletions
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 |