From: Doug Evans <dje@google.com>
Date: Mon, 7 Nov 2016 21:31:24 +0000 (-0800)
Subject: Fix ext lang calls to value_struct_elt.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5996220cfa24ef6fddb782617720cd56913b1bb7;p=binutils-gdb.git

Fix ext lang calls to value_struct_elt.

gdb/ChangeLog:

	* guile/scm-value.c (gdbscm_value_field): Fix call to value_struct_elt.
	* python/py-value.c (valpy_getitem): Ditto.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f4f6fd51487..fbdb1685981 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2016-11-07  Doug Evans  <dje@google.com>
+
+	* guile/scm-value.c (gdbscm_value_field): Fix call to value_struct_elt.
+	* python/py-value.c (valpy_getitem): Ditto.
+
 2016-11-07  Doug Evans  <dje@google.com>
 
 	* i386-tdep.c (i386_gdbarch_init): Add comments.
diff --git a/gdb/guile/scm-value.c b/gdb/guile/scm-value.c
index 1cdf9537711..416e48815f9 100644
--- a/gdb/guile/scm-value.c
+++ b/gdb/guile/scm-value.c
@@ -726,7 +726,8 @@ gdbscm_value_field (SCM self, SCM field_scm)
     {
       struct value *tmp = value;
 
-      res_val = value_struct_elt (&tmp, NULL, field, NULL, NULL);
+      res_val = value_struct_elt (&tmp, NULL, field, NULL,
+				  "struct/class/union");
     }
   CATCH (except, RETURN_MASK_ALL)
     {
diff --git a/gdb/python/py-value.c b/gdb/python/py-value.c
index 46683b818d3..f8bf17af459 100644
--- a/gdb/python/py-value.c
+++ b/gdb/python/py-value.c
@@ -754,7 +754,8 @@ valpy_getitem (PyObject *self, PyObject *key)
       struct value *res_val = NULL;
 
       if (field)
-	res_val = value_struct_elt (&tmp, NULL, field, 0, NULL);
+	res_val = value_struct_elt (&tmp, NULL, field, NULL,
+				    "struct/class/union");
       else if (bitpos >= 0)
 	res_val = value_struct_elt_bitpos (&tmp, bitpos, field_type,
 					   "struct/class/union");