From 44845982f412810b0c18067987f2780ef6245fbb Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Thu, 15 Oct 2015 09:10:22 +0200 Subject: Use section type also for other targets. Bug 17392. --- arm/TargetPrinter.ml | 4 ++-- 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 -- cgit