diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-15 09:10:22 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-15 09:10:22 +0200 |
commit | 44845982f412810b0c18067987f2780ef6245fbb (patch) | |
tree | 9ca5afb4851a726229251415d977abf296f68f5e | |
parent | df78560fdf859644274dbdabccdd1fdb9e75634e (diff) | |
download | compcert-44845982f412810b0c18067987f2780ef6245fbb.tar.gz compcert-44845982f412810b0c18067987f2780ef6245fbb.zip |
Use section type also for other targets.
Bug 17392.
-rw-r--r-- | arm/TargetPrinter.ml | 4 | ||||
-rw-r--r-- | ia32/TargetPrinter.ml | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/arm/TargetPrinter.ml b/arm/TargetPrinter.ml index 4961f897..3bffe59b 100644 --- a/arm/TargetPrinter.ml +++ b/arm/TargetPrinter.ml @@ -902,7 +902,7 @@ module Target (Opt: PRINTER_OPTIONS) : TARGET = if !Clflags.option_g then begin section oc Section_text; let low_pc = new_label () in - Debug.add_compilation_section_start ".text" low_pc; + Debug.add_compilation_section_start Section_text low_pc; fprintf oc "%a:\n" elf_label low_pc; fprintf oc " .cfi_sections .debug_frame\n" end @@ -911,7 +911,7 @@ module Target (Opt: PRINTER_OPTIONS) : TARGET = let print_epilogue oc = if !Clflags.option_g then begin let high_pc = new_label () in - Debug.add_compilation_section_end ".text" high_pc; + Debug.add_compilation_section_end Section_text high_pc; Debug.compute_gnu_file_enum (fun f -> ignore (print_file oc f)); section oc Section_text; fprintf oc "%a:\n" elf_label high_pc diff --git a/ia32/TargetPrinter.ml b/ia32/TargetPrinter.ml index 1ccfdcba..bd0c1d95 100644 --- a/ia32/TargetPrinter.ml +++ b/ia32/TargetPrinter.ml @@ -757,7 +757,7 @@ module Target(System: SYSTEM):TARGET = if !Clflags.option_g then begin section oc Section_text; let low_pc = new_label () in - Debug.add_compilation_section_start ".text" low_pc; + Debug.add_compilation_section_start Section_text low_pc; fprintf oc "%a:\n" elf_label low_pc; fprintf oc " .cfi_sections .debug_frame\n" end @@ -779,7 +779,7 @@ module Target(System: SYSTEM):TARGET = System.print_epilogue oc; if !Clflags.option_g then begin let high_pc = new_label () in - Debug.add_compilation_section_end ".text" high_pc; + Debug.add_compilation_section_end Section_text high_pc; Debug.compute_gnu_file_enum (fun f -> ignore (print_file oc f)); section oc Section_text; fprintf oc "%a:\n" elf_label high_pc |