diff options
Diffstat (limited to 'gdb/ada-valprint.c')
| -rw-r--r-- | gdb/ada-valprint.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 1db677d..a6f3f48 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -690,7 +690,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0, } else retn = ada_val_print_1 (value_type (val), value_contents (val), 0, - VALUE_ADDRESS (val), stream, recurse, options); + value_address (val), stream, recurse, options); value_free_to_mark (mark); return retn; } @@ -894,7 +894,7 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0, deref_val_int)); val_print (value_type (deref_val), value_contents (deref_val), 0, - VALUE_ADDRESS (deref_val), stream, recurse + 1, + value_address (deref_val), stream, recurse + 1, options, current_language); } else @@ -934,7 +934,7 @@ ada_value_print (struct value *val0, struct ui_file *stream, const struct value_print_options *options) { const gdb_byte *valaddr = value_contents (val0); - CORE_ADDR address = VALUE_ADDRESS (val0) + value_offset (val0); + CORE_ADDR address = value_address (val0); struct type *type = ada_to_fixed_type (value_type (val0), valaddr, address, NULL, 1); struct value *val = |