From: Tom Tromey <tromey@adacore.com>
Date: Wed, 30 Sep 2020 15:46:36 +0000 (-0600)
Subject: Fix regression in variant part handling
X-Git-Tag: binutils-2_36~1061
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=cae21f8ebf01e379150bcf602a9ffb1f7c95b59e;p=thirdparty%2Fbinutils-gdb.git

Fix regression in variant part handling

My series to change DWARF attribute handling to be type-safe
introduced a regression in gdb.ada/variant.exp.  handle_variant was
using as_unsigned on an attribute with DW_FORM_sdata.  This patch
changes it to use constant_value instead.

2020-09-30  Tom Tromey  <tromey@adacore.com>

	* dwarf2/read.c (handle_variant): Use constant_value.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 9c802c57ef4..c448589b679 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2020-09-30  Tom Tromey  <tromey@adacore.com>
+
+	* dwarf2/read.c (handle_variant): Use constant_value.
+
 2020-09-29  Tom Tromey  <tom@tromey.com>
 
 	* dwarf2/read.c (lookup_dwo_id, get_type_unit_group)
diff --git a/gdb/dwarf2/read.c b/gdb/dwarf2/read.c
index bcac94ed36a..c0a89ecbe1e 100644
--- a/gdb/dwarf2/read.c
+++ b/gdb/dwarf2/read.c
@@ -16178,7 +16178,7 @@ handle_variant (struct die_info *die, struct type *type,
   /* In a variant we want to get the discriminant and also add a
      field for our sole member child.  */
   struct attribute *discr = dwarf2_attr (die, DW_AT_discr_value, cu);
-  if (discr == nullptr)
+  if (discr == nullptr || !discr->form_is_constant ())
     {
       discr = dwarf2_attr (die, DW_AT_discr_list, cu);
       if (discr == nullptr || discr->as_block ()->size == 0)
@@ -16187,7 +16187,7 @@ handle_variant (struct die_info *die, struct type *type,
 	variant.discr_list_data = discr->as_block ();
     }
   else
-    variant.discriminant_value = discr->as_unsigned ();
+    variant.discriminant_value = discr->constant_value (0);
 
   for (die_info *variant_child = die->child;
        variant_child != NULL;