darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Copy over fix for fetching dynamic type of a reference from python side.

Browse source 
* guile/scm-value.c (gdbscm_value_dynamic_type): Use coerce_ref to
	dereference TYPE_CODE_REF values.

	testsuite/
	* gdb.guile/scm-value.c: Improve test case.
	* gdb.guile/scm-value.exp: Add new test.
This commit is contained in:
Doug Evans 2014-04-12 09:09:41 -07:00
parent f180a1fb46
commit 0be03e8417
5 changed files with 20 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gdb/ChangeLog
View file

@ -1,3 +1,9 @@
2014-04-12 Siva Chandra Reddy <sivachandra@google.com>
Doug Evans <xdje42@gmail.com>
* guile/scm-value.c (gdbscm_value_dynamic_type): Use coerce_ref to
dereference TYPE_CODE_REF values.
2014-04-11 Joel Brobecker <brobecker@adacore.com>
Revert the following changes due to regressions:

5
gdb/guile/scm-value.c
View file

@ -585,7 +585,10 @@ gdbscm_value_dynamic_type (SCM self)
struct value *target;
int was_pointer = TYPE_CODE (type) == TYPE_CODE_PTR;
target = value_ind (value);
if (was_pointer)
target = value_ind (value);
else
target = coerce_ref (value);
type = value_rtti_type (target, NULL, NULL, NULL);
if (type)

6
gdb/testsuite/ChangeLog
View file

@ -1,3 +1,9 @@
2014-04-12 Siva Chandra Reddy <sivachandra@google.com>
Doug Evans <xdje42@gmail.com>
* gdb.guile/scm-value.c: Improve test case.
* gdb.guile/scm-value.exp: Add new test.
2014-04-11 David Blaikie <dblaikie@gmail.com>
* gdb.opt/inline-break.exp: Explicitly specify -std=gnu89 to

2
gdb/testsuite/gdb.guile/scm-value.c
View file

@ -49,6 +49,8 @@ struct Derived : public Base {
};
Base *base = new Derived ();
Derived derived;
Base &base_ref = derived;
void ptr_ref(int*& rptr_int)
{

2
gdb/testsuite/gdb.guile/scm-value.exp
View file

@ -335,6 +335,8 @@ proc test_subscript_regression {exefile lang} {
# Likewise.
gdb_test "gu (print (value-dynamic-type (parse-and-eval \"base\")))" \
"= Derived \[*\]"
gdb_test "gu (print (value-dynamic-type (parse-and-eval \"base_ref\")))" \
"= Derived \[&\]"
# A static type case.
gdb_test "gu (print (value-dynamic-type (parse-and-eval \"5\")))" \
"= int"