yggdrasil/binutils-gdb
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix ext lang calls to value_struct_elt.

Browse Source 
gdb/ChangeLog:

	* guile/scm-value.c (gdbscm_value_field): Fix call to value_struct_elt.
	* python/py-value.c (valpy_getitem): Ditto.
This commit is contained in:
Doug Evans 2016-11-07 13:31:24 -08:00
parent ad9eb1fdda
commit 5996220cfa
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -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.

3
gdb/guile/scm-value.c
View File

@ -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)
{

3
gdb/python/py-value.c
View File

@ -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");