diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-03-30 16:37:32 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-03-30 16:37:32 +0200 |
| commit | b3de120011683866149ac2a9fbd0da38e2eef96c (patch) | |
| tree | ffc6998a6651539befa513adb7b9a3bf56742f3b /debug/DwarfUtil.ml | |
| parent | b3e77f00563656357af05052da2310d546145358 (diff) | |
| download | compcert-kvx-b3de120011683866149ac2a9fbd0da38e2eef96c.tar.gz compcert-kvx-b3de120011683866149ac2a9fbd0da38e2eef96c.zip | |
Added more comments and fixed issue in DwarfPrinter.mli
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 |