* value.c (value_virtual_fn_field): Handle the situation where
vtbl is a pointer to a structure instead of a pointer to an array.
This commit is contained in:
parent
d98ee4f5af
commit
1b0df0adcb
|
@ -1,3 +1,8 @@
|
||||||
|
Wed Dec 30 17:23:14 1998 Mark Alexander <marka@cygnus.com>
|
||||||
|
|
||||||
|
* value.c (value_virtual_fn_field): Handle the situation where
|
||||||
|
vtbl is a pointer to a structure instead of a pointer to an array.
|
||||||
|
|
||||||
Mon Dec 28 17:43:36 1998 David Taylor <taylor@texas.cygnus.com>
|
Mon Dec 28 17:43:36 1998 David Taylor <taylor@texas.cygnus.com>
|
||||||
|
|
||||||
The following changes were made by Jim Blandy <jimb@cygnus.com>,
|
The following changes were made by Jim Blandy <jimb@cygnus.com>,
|
||||||
|
|
32
gdb/values.c
32
gdb/values.c
|
@ -1040,15 +1040,31 @@ value_virtual_fn_field (arg1p, f, j, type, offset)
|
||||||
|
|
||||||
/* The virtual function table is now an array of structures
|
/* The virtual function table is now an array of structures
|
||||||
which have the form { int16 offset, delta; void *pfn; }. */
|
which have the form { int16 offset, delta; void *pfn; }. */
|
||||||
vtbl = value_ind (value_primitive_field (arg1, 0,
|
vtbl = value_primitive_field (arg1, 0, TYPE_VPTR_FIELDNO (context),
|
||||||
TYPE_VPTR_FIELDNO (context),
|
TYPE_VPTR_BASETYPE (context));
|
||||||
TYPE_VPTR_BASETYPE (context)));
|
|
||||||
|
/* With older versions of g++, the vtbl field pointed to an array
|
||||||
|
of structures. Nowadays it points directly to the structure. */
|
||||||
|
if (TYPE_CODE (VALUE_TYPE (vtbl)) == TYPE_CODE_PTR
|
||||||
|
&& TYPE_CODE (TYPE_TARGET_TYPE (VALUE_TYPE (vtbl))) == TYPE_CODE_ARRAY)
|
||||||
|
{
|
||||||
|
/* Handle the case where the vtbl field points to an
|
||||||
|
array of structures. */
|
||||||
|
vtbl = value_ind (vtbl);
|
||||||
|
|
||||||
|
/* Index into the virtual function table. This is hard-coded because
|
||||||
|
looking up a field is not cheap, and it may be important to save
|
||||||
|
time, e.g. if the user has set a conditional breakpoint calling
|
||||||
|
a virtual function. */
|
||||||
|
entry = value_subscript (vtbl, vi);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
/* Handle the case where the vtbl field points directly to a structure. */
|
||||||
|
vtbl = value_add (vtbl, vi);
|
||||||
|
entry = value_ind (vtbl);
|
||||||
|
}
|
||||||
|
|
||||||
/* Index into the virtual function table. This is hard-coded because
|
|
||||||
looking up a field is not cheap, and it may be important to save
|
|
||||||
time, e.g. if the user has set a conditional breakpoint calling
|
|
||||||
a virtual function. */
|
|
||||||
entry = value_subscript (vtbl, vi);
|
|
||||||
entry_type = check_typedef (VALUE_TYPE (entry));
|
entry_type = check_typedef (VALUE_TYPE (entry));
|
||||||
|
|
||||||
if (TYPE_CODE (entry_type) == TYPE_CODE_STRUCT)
|
if (TYPE_CODE (entry_type) == TYPE_CODE_STRUCT)
|
||||||
|
|
Loading…
Reference in New Issue