diff options
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index d0baf5a..70296f9 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -4525,13 +4525,12 @@ ada_convert_actual (struct value *actual, struct type *formal_type0) static CORE_ADDR value_pointer (struct value *value, struct type *type) { - struct gdbarch *gdbarch = get_type_arch (type); unsigned len = TYPE_LENGTH (type); gdb_byte *buf = (gdb_byte *) alloca (len); CORE_ADDR addr; addr = value_address (value); - gdbarch_address_to_pointer (gdbarch, type, buf, addr); + gdbarch_address_to_pointer (type->arch (), type, buf, addr); addr = extract_unsigned_integer (buf, len, type_byte_order (type)); return addr; } @@ -11234,7 +11233,7 @@ ada_is_system_address_type (struct type *type) static struct type * ada_scaling_type (struct type *type) { - return builtin_type (get_type_arch (type))->builtin_long_double; + return builtin_type (type->arch ())->builtin_long_double; } /* Assuming that TYPE is the representation of an Ada fixed-point |