From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <sourceware-bugzilla@sourceware.org>
Received: by sourceware.org (Postfix, from userid 48)
 id 04D8A383E802; Wed, 30 Sep 2020 09:00:15 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 04D8A383E802
From: "vries at gcc dot gnu.org" <sourceware-bugzilla@sourceware.org>
To: gdb-prs@sourceware.org
Subject: [Bug gdb/26680] FAIL: gdb.ada/variant.exp: scenario=minimal: fetch
 type for python (GDB internal error)
Date: Wed, 30 Sep 2020 09:00:14 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: changed
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gdb
X-Bugzilla-Component: gdb
X-Bugzilla-Version: HEAD
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: vries at gcc dot gnu.org
X-Bugzilla-Status: NEW
X-Bugzilla-Resolution: 
X-Bugzilla-Priority: P2
X-Bugzilla-Assigned-To: unassigned at sourceware dot org
X-Bugzilla-Target-Milestone: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: 
Message-ID: <bug-26680-4717-3lI95bgUoD@http.sourceware.org/bugzilla/>
In-Reply-To: <bug-26680-4717@http.sourceware.org/bugzilla/>
References: <bug-26680-4717@http.sourceware.org/bugzilla/>
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Bugzilla-URL: http://sourceware.org/bugzilla/
Auto-Submitted: auto-generated
MIME-Version: 1.0
X-BeenThere: gdb-prs@sourceware.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gdb-prs mailing list <gdb-prs.sourceware.org>
List-Unsubscribe: <https://sourceware.org/mailman/options/gdb-prs>,
 <mailto:gdb-prs-request@sourceware.org?subject=unsubscribe>
List-Archive: <https://sourceware.org/pipermail/gdb-prs/>
List-Help: <mailto:gdb-prs-request@sourceware.org?subject=help>
List-Subscribe: <https://sourceware.org/mailman/listinfo/gdb-prs>,
 <mailto:gdb-prs-request@sourceware.org?subject=subscribe>
X-List-Received-Date: Wed, 30 Sep 2020 09:00:15 -0000

https://sourceware.org/bugzilla/show_bug.cgi?id=3D26680

--- Comment #3 from Tom de Vries <vries at gcc dot gnu.org> ---
Tentative patch:
...
diff --git a/gdb/dwarf2/read.c b/gdb/dwarf2/read.c
index bcac94ed36..ba98fe6ff6 100644
--- a/gdb/dwarf2/read.c
+++ b/gdb/dwarf2/read.c
@@ -16187,7 +16187,17 @@ handle_variant (struct die_info *die, struct type
*type,
        variant.discr_list_data =3D discr->as_block ();
     }
   else
-    variant.discriminant_value =3D discr->as_unsigned ();
+    if (discr->form_is_unsigned ())
+      variant.discriminant_value =3D discr->as_unsigned ();
+    else
+      {
+       union {
+         ULONGEST u;
+         LONGEST i;
+       } val;
+       val.i =3D discr->as_signed ();;
+       variant.discriminant_value =3D val.u;
+      }

   for (die_info *variant_child =3D die->child;
        variant_child !=3D NULL;
...

--=20
You are receiving this mail because:
You are on the CC list for the bug.=