diff options
| author | Doug Evans <dje@google.com> | 2016-11-07 13:31:24 -0800 |
|---|---|---|
| committer | Doug Evans <dje@google.com> | 2016-11-07 13:31:24 -0800 |
| commit | 5996220cfa24ef6fddb782617720cd56913b1bb7 (patch) | |
| tree | ee456ac21b112fe28ab29aa01e7f80c7bfc8a432 | |
| parent | ad9eb1fdda263cd91ee8fb36292fb29d546b0076 (diff) | |
| download | gdb-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.
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/guile/scm-value.c | 3 | ||||
| -rw-r--r-- | gdb/python/py-value.c | 3 |
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"); |