OpenE2K/rust
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Encode tag names in the DWARF

Browse Source
This commit is contained in:
Patrick Walton 2010-08-26 17:48:27 -07:00
parent 7cfa7bdd23
commit 07095a3ef9
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/boot/me/dwarf.ml
View File

@ -1362,7 +1362,8 @@ let (abbrev_variant_part:abbrev) =
let (abbrev_variant:abbrev) =
(DW_TAG_variant, DW_CHILDREN_yes,
[|
(DW_AT_discr_value, DW_FORM_udata)
(DW_AT_discr_value, DW_FORM_udata);
(DW_AT_name, DW_FORM_string)
|])
;;
@ -1971,14 +1972,14 @@ let dwarf_visitor
|]
in
let emit_variant i (*name*)_ ttup =
let emit_variant i name ttup =
(* FIXME: Possibly use a DW_TAG_enumeration_type here? *)
(* Tag-names aren't getting encoded; I'm not sure if that's a
* problem. Might be. *)
emit_die (SEQ [|
uleb (get_abbrev_code abbrev_variant);
(* DW_AT_discr_value: DW_FORM_udata *)
uleb i;
(* DW_AT_name: DW_FORM_string *)
ZSTRING (Ast.sprintf_name () name)
|]);
ignore (tup ttup);
emit_null_die ();