From 8a329002330ebe88b40210dfa64e57314275396b Mon Sep 17 00:00:00 2001 From: Per Bothner Date: Thu, 2 Feb 1995 05:23:51 +0000 Subject: * f-typeprint.c (f_type_print_varspec_suffix): Print array index ranges in reverse order. * f-valprint.c (f77_create_arrayprint_offset_tbl): Fix calculation. * eval.c (evaluate_subscript): Don't call value_subscript, since it adjusts for lower bound and enforces ranges. * expression.h (exp_code): Remove MULTI_F77_SUBSCRIPT, OP_F77_SUBSTR. * eval.c, parse.c: Removed uses of removed opcodes. --- gdb/f-typeprint.c | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'gdb/f-typeprint.c') diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c index 58558e4b5d..699c61dbbf 100644 --- a/gdb/f-typeprint.c +++ b/gdb/f-typeprint.c @@ -216,8 +216,9 @@ f_type_print_varspec_suffix (type, stream, show, passed_a_ptr, demangled_args) if (arrayprint_recurse_level == 1) fprintf_filtered(stream,"("); - else - fprintf_filtered(stream,","); + + if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_ARRAY) + f_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0, 0); retcode = f77_get_dynamic_lowerbound (type,&lower_bound); @@ -251,9 +252,12 @@ f_type_print_varspec_suffix (type, stream, show, passed_a_ptr, demangled_args) fprintf_filtered(stream,"%d",upper_bound); } - f_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0, 0); + if (TYPE_CODE (TYPE_TARGET_TYPE (type)) != TYPE_CODE_ARRAY) + f_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0, 0); if (arrayprint_recurse_level == 1) fprintf_filtered (stream, ")"); + else + fprintf_filtered(stream,","); arrayprint_recurse_level--; break; -- cgit v1.2.1