aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
authorDoug Evans <dje@google.com>2016-11-07 13:31:24 -0800
committerDoug Evans <dje@google.com>2016-11-07 13:31:24 -0800
commit5996220cfa24ef6fddb782617720cd56913b1bb7 (patch)
treeee456ac21b112fe28ab29aa01e7f80c7bfc8a432 /gdb
parentad9eb1fdda263cd91ee8fb36292fb29d546b0076 (diff)
downloadgdb-5996220cfa24ef6fddb782617720cd56913b1bb7.zip
gdb-5996220cfa24ef6fddb782617720cd56913b1bb7.tar.gz
gdb-5996220cfa24ef6fddb782617720cd56913b1bb7.tar.bz2
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.
Diffstat (limited to 'gdb')
-rw-r--r--gdb/ChangeLog5
-rw-r--r--gdb/guile/scm-value.c3
-rw-r--r--gdb/python/py-value.c3
3 files changed, 9 insertions, 2 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f4f6fd51..fbdb168 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,10 @@
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.
2016-11-07 Doug Evans <dje@google.com>
diff --git a/gdb/guile/scm-value.c b/gdb/guile/scm-value.c
index 1cdf953..416e488 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 46683b8..f8bf17a 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");