diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-11-04 18:21:19 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-11-04 18:21:19 +0100 |
commit | cbff6d5b0f84090e2ff7f74bfb6eb7f3e3a29ef9 (patch) | |
tree | 931d9c3ac1022685525f5c0c75461d2d0d158aa2 /debug/DwarfPrinter.ml | |
parent | 738c07062ea0708fc9208318933fda16fd696cc0 (diff) | |
download | compcert-kvx-cbff6d5b0f84090e2ff7f74bfb6eb7f3e3a29ef9.tar.gz compcert-kvx-cbff6d5b0f84090e2ff7f74bfb6eb7f3e3a29ef9.zip |
New option to control the debug information build.
The new option -gonly-global allows the generation of debuging
information for global variables only.
Bug 17566.
Diffstat (limited to 'debug/DwarfPrinter.ml')
-rw-r--r-- | debug/DwarfPrinter.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/debug/DwarfPrinter.ml b/debug/DwarfPrinter.ml index 3e85ecfc..7469c4af 100644 --- a/debug/DwarfPrinter.ml +++ b/debug/DwarfPrinter.ml @@ -623,8 +623,10 @@ module DwarfPrinter(Target: DWARF_TARGET): let name = if e.section_name <> ".text" then Some e.section_name else None in section oc (Section_debug_info name); print_debug_info oc e.start_label e.line_label e.entry) entries; - section oc Section_debug_loc; - List.iter (fun e -> print_location_list oc e.locs) entries + if List.exists (fun e -> match e.locs with _,[] -> false | _,_ -> true) entries then begin + section oc Section_debug_loc; + List.iter (fun e -> print_location_list oc e.locs) entries + end let print_ranges oc r = section oc Section_debug_ranges; |