mirror of
https://github.com/bminor/binutils-gdb.git
synced 2025-12-29 02:20:51 +00:00
2002-10-11 Klee Dienes <kdienes@apple.com>
* findvar.c (read_memory_typed_address): New function.
* gdbcore.h (read_memory_typed_address): Add prototype.
* blockframe.c (sigtramp_saved_pc): Use read_memory_typed_address
to read a value destined for a CORE_ADDR, not read_memory_integer.
* f-valprint.c (f77_get_dynamic_upperbound): Ditto.
(f77_get_dynamic_lowerbound): Ditto.
This commit is contained in:
@@ -102,9 +102,9 @@ f77_get_dynamic_lowerbound (struct type *type, int *lower_bound)
|
||||
if (current_frame_addr > 0)
|
||||
{
|
||||
ptr_to_lower_bound =
|
||||
read_memory_integer (current_frame_addr +
|
||||
TYPE_ARRAY_LOWER_BOUND_VALUE (type),
|
||||
4);
|
||||
read_memory_typed_address (current_frame_addr +
|
||||
TYPE_ARRAY_LOWER_BOUND_VALUE (type),
|
||||
builtin_type_void_data_ptr);
|
||||
*lower_bound = read_memory_integer (ptr_to_lower_bound, 4);
|
||||
}
|
||||
else
|
||||
@@ -165,9 +165,9 @@ f77_get_dynamic_upperbound (struct type *type, int *upper_bound)
|
||||
if (current_frame_addr > 0)
|
||||
{
|
||||
ptr_to_upper_bound =
|
||||
read_memory_integer (current_frame_addr +
|
||||
TYPE_ARRAY_UPPER_BOUND_VALUE (type),
|
||||
4);
|
||||
read_memory_typed_address (current_frame_addr +
|
||||
TYPE_ARRAY_UPPER_BOUND_VALUE (type),
|
||||
builtin_type_void_data_ptr);
|
||||
*upper_bound = read_memory_integer (ptr_to_upper_bound, 4);
|
||||
}
|
||||
else
|
||||
|
||||
Reference in New Issue
Block a user