diff options
Diffstat (limited to 'gdb/p-valprint.c')
| -rw-r--r-- | gdb/p-valprint.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gdb/p-valprint.c b/gdb/p-valprint.c index 68ff54a..30d0650 100644 --- a/gdb/p-valprint.c +++ b/gdb/p-valprint.c @@ -930,7 +930,7 @@ pascal_object_print_static_field (struct value *val, if (TYPE_CODE (type) == TYPE_CODE_STRUCT) { - CORE_ADDR *first_dont_print; + CORE_ADDR *first_dont_print, addr; int i; first_dont_print @@ -940,7 +940,7 @@ pascal_object_print_static_field (struct value *val, while (--i >= 0) { - if (VALUE_ADDRESS (val) == first_dont_print[i]) + if (value_address (val) == first_dont_print[i]) { fputs_filtered ("<same as static member of an already seen type>", stream); @@ -948,11 +948,12 @@ pascal_object_print_static_field (struct value *val, } } - obstack_grow (&dont_print_statmem_obstack, (char *) &VALUE_ADDRESS (val), + addr = value_address (val); + obstack_grow (&dont_print_statmem_obstack, (char *) &addr, sizeof (CORE_ADDR)); CHECK_TYPEDEF (type); - pascal_object_print_value_fields (type, value_contents (val), VALUE_ADDRESS (val), + pascal_object_print_value_fields (type, value_contents (val), addr, stream, recurse, options, NULL, 1); return; } |