diff options
Diffstat (limited to 'debug/DwarfUtil.ml')
-rw-r--r-- | debug/DwarfUtil.ml | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/debug/DwarfUtil.ml b/debug/DwarfUtil.ml index fe4a0f7b..e2c87a9d 100644 --- a/debug/DwarfUtil.ml +++ b/debug/DwarfUtil.ml @@ -63,15 +63,6 @@ let rec entry_fold f acc entry = let acc = f acc entry.tag in List.fold_left (entry_fold f) acc entry.children -let rec entry_map f entry = - let t = f entry.tag in - let children = List.map (entry_map f) entry.children in - { - entry with - tag = t; - children = children; - } - (* Attribute form encoding *) let dw_form_addr = 0x01 let dw_form_block2 = 0x03 @@ -95,6 +86,7 @@ let dw_form_ref8 = 0x14 let dw_ref_udata = 0x15 let dw_ref_indirect = 0x16 +(* Default corresponding encoding for the different abbreviations *) module DefaultAbbrevs = struct let sibling_type_abbr = dw_form_ref4 |