Copy over fix for fetching dynamic type of a reference from python side.
* 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:
parent
f180a1fb46
commit
0be03e8417
|
@ -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>
|
2014-04-11 Joel Brobecker <brobecker@adacore.com>
|
||||||
|
|
||||||
Revert the following changes due to regressions:
|
Revert the following changes due to regressions:
|
||||||
|
|
|
@ -585,7 +585,10 @@ gdbscm_value_dynamic_type (SCM self)
|
||||||
struct value *target;
|
struct value *target;
|
||||||
int was_pointer = TYPE_CODE (type) == TYPE_CODE_PTR;
|
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);
|
type = value_rtti_type (target, NULL, NULL, NULL);
|
||||||
|
|
||||||
if (type)
|
if (type)
|
||||||
|
|
|
@ -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>
|
2014-04-11 David Blaikie <dblaikie@gmail.com>
|
||||||
|
|
||||||
* gdb.opt/inline-break.exp: Explicitly specify -std=gnu89 to
|
* gdb.opt/inline-break.exp: Explicitly specify -std=gnu89 to
|
||||||
|
|
|
@ -49,6 +49,8 @@ struct Derived : public Base {
|
||||||
};
|
};
|
||||||
|
|
||||||
Base *base = new Derived ();
|
Base *base = new Derived ();
|
||||||
|
Derived derived;
|
||||||
|
Base &base_ref = derived;
|
||||||
|
|
||||||
void ptr_ref(int*& rptr_int)
|
void ptr_ref(int*& rptr_int)
|
||||||
{
|
{
|
||||||
|
|
|
@ -335,6 +335,8 @@ proc test_subscript_regression {exefile lang} {
|
||||||
# Likewise.
|
# Likewise.
|
||||||
gdb_test "gu (print (value-dynamic-type (parse-and-eval \"base\")))" \
|
gdb_test "gu (print (value-dynamic-type (parse-and-eval \"base\")))" \
|
||||||
"= Derived \[*\]"
|
"= Derived \[*\]"
|
||||||
|
gdb_test "gu (print (value-dynamic-type (parse-and-eval \"base_ref\")))" \
|
||||||
|
"= Derived \[&\]"
|
||||||
# A static type case.
|
# A static type case.
|
||||||
gdb_test "gu (print (value-dynamic-type (parse-and-eval \"5\")))" \
|
gdb_test "gu (print (value-dynamic-type (parse-and-eval \"5\")))" \
|
||||||
"= int"
|
"= int"
|
||||||
|
|
Loading…
Reference in New Issue