diff options
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 480074b..41a9771 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -65,13 +65,15 @@ int f77_array_offset_tbl[MAX_FORTRAN_DIMS + 1][2]; int f77_get_dynamic_lowerbound (struct type *type, int *lower_bound) { + struct frame_info *frame; CORE_ADDR current_frame_addr; CORE_ADDR ptr_to_lower_bound; switch (TYPE_ARRAY_LOWER_BOUND_TYPE (type)) { case BOUND_BY_VALUE_ON_STACK: - current_frame_addr = get_frame_base (deprecated_selected_frame); + frame = deprecated_safe_get_selected_frame (); + current_frame_addr = get_frame_base (frame); if (current_frame_addr > 0) { *lower_bound = @@ -95,7 +97,8 @@ f77_get_dynamic_lowerbound (struct type *type, int *lower_bound) break; case BOUND_BY_REF_ON_STACK: - current_frame_addr = get_frame_base (deprecated_selected_frame); + frame = deprecated_safe_get_selected_frame (); + current_frame_addr = get_frame_base (frame); if (current_frame_addr > 0) { ptr_to_lower_bound = @@ -123,13 +126,15 @@ f77_get_dynamic_lowerbound (struct type *type, int *lower_bound) int f77_get_dynamic_upperbound (struct type *type, int *upper_bound) { + struct frame_info *frame; CORE_ADDR current_frame_addr = 0; CORE_ADDR ptr_to_upper_bound; switch (TYPE_ARRAY_UPPER_BOUND_TYPE (type)) { case BOUND_BY_VALUE_ON_STACK: - current_frame_addr = get_frame_base (deprecated_selected_frame); + frame = deprecated_safe_get_selected_frame (); + current_frame_addr = get_frame_base (frame); if (current_frame_addr > 0) { *upper_bound = @@ -158,7 +163,8 @@ f77_get_dynamic_upperbound (struct type *type, int *upper_bound) break; case BOUND_BY_REF_ON_STACK: - current_frame_addr = get_frame_base (deprecated_selected_frame); + frame = deprecated_safe_get_selected_frame (); + current_frame_addr = get_frame_base (frame); if (current_frame_addr > 0) { ptr_to_upper_bound = @@ -643,10 +649,7 @@ info_common_command (char *comname, int from_tty) first make sure that it is visible and if so, let us display its contents */ - fi = deprecated_selected_frame; - - if (fi == NULL) - error (_("No frame selected")); + fi = get_selected_frame (_("No frame selected")); /* The following is generally ripped off from stack.c's routine print_frame_info() */ @@ -735,10 +738,7 @@ there_is_a_visible_common_named (char *comname) if (comname == NULL) error (_("Cannot deal with NULL common name!")); - fi = deprecated_selected_frame; - - if (fi == NULL) - error (_("No frame selected")); + fi = get_selected_frame (_("No frame selected")); /* The following is generally ripped off from stack.c's routine print_frame_info() */ |