diff options
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 69c3395..9dbaf18 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -99,10 +99,11 @@ f77_get_dynamic_lowerbound (struct type *type, int *lower_bound) current_frame_addr = get_frame_base (frame); if (current_frame_addr > 0) { + struct gdbarch *arch = get_frame_arch (frame); ptr_to_lower_bound = read_memory_typed_address (current_frame_addr + TYPE_ARRAY_LOWER_BOUND_VALUE (type), - builtin_type_void_data_ptr); + builtin_type (arch)->builtin_data_ptr); *lower_bound = read_memory_integer (ptr_to_lower_bound, 4); } else @@ -165,10 +166,11 @@ f77_get_dynamic_upperbound (struct type *type, int *upper_bound) current_frame_addr = get_frame_base (frame); if (current_frame_addr > 0) { + struct gdbarch *arch = get_frame_arch (frame); ptr_to_upper_bound = read_memory_typed_address (current_frame_addr + TYPE_ARRAY_UPPER_BOUND_VALUE (type), - builtin_type_void_data_ptr); + builtin_type (arch)->builtin_data_ptr); *upper_bound = read_memory_integer (ptr_to_upper_bound, 4); } else |