diff options
| -rw-r--r-- | debug/DwarfPrinter.ml | 12 | ||||
| -rw-r--r-- | debug/DwarfUtil.ml | 5 | ||||
| -rw-r--r-- | powerpc/PrintDiab.ml | 3 |
3 files changed, 12 insertions, 8 deletions
diff --git a/debug/DwarfPrinter.ml b/debug/DwarfPrinter.ml index 0c5fc96f..3e804532 100644 --- a/debug/DwarfPrinter.ml +++ b/debug/DwarfPrinter.ml @@ -54,6 +54,7 @@ module type DWARF_DEFS = val bound_ref_type_abbr: int (* Functions for the printing of the debug information *) val info_section_start: out_channel -> unit + val print_entry: out_channel -> dw_entry -> int -> unit val info_section_end: out_channel -> unit end @@ -309,8 +310,13 @@ module DwarfPrinter(Defs:DWARF_DEFS) : let print_debug oc entry = compute_abbrv entry; print_abbrv oc; - info_section_start oc; - - info_section_end oc + Defs.info_section_start oc; + entry_iter_sib (fun sib entry -> + let has_sib = match sib with + | None -> false + | Some _ -> true in + let abbrv = get_abbrv entry has_sib in + Defs.print_entry oc entry abbrv) entry; + Defs.info_section_end oc end) diff --git a/debug/DwarfUtil.ml b/debug/DwarfUtil.ml index 5bdba147..79516e65 100644 --- a/debug/DwarfUtil.ml +++ b/debug/DwarfUtil.ml @@ -44,11 +44,6 @@ let add_children entry child = {entry with children = child::entry.children;} -(* Iter over the tree in prefix order *) -let rec entry_iter f entry = - f entry.tag; - List.iter (entry_iter f) entry.children - let list_iter_with_next f list = let rec aux = (function | [] -> () diff --git a/powerpc/PrintDiab.ml b/powerpc/PrintDiab.ml index b9d02fcf..d8083168 100644 --- a/powerpc/PrintDiab.ml +++ b/powerpc/PrintDiab.ml @@ -175,6 +175,9 @@ module Diab_System = let info_section_end oc = fprintf oc "%a\n" label !debug_end_addr + let print_entry oc entry abbrv = + () + end:DWARF_DEFS) end:SYSTEM) |