diff options
author | Per Bothner <per@bothner.com> | 1995-02-02 05:23:51 +0000 |
---|---|---|
committer | Per Bothner <per@bothner.com> | 1995-02-02 05:23:51 +0000 |
commit | 8a329002330ebe88b40210dfa64e57314275396b (patch) | |
tree | d03eee5aaf3cba3e3592cc741195d56750113666 /gdb/f-typeprint.c | |
parent | b7a24051cf6415d9482b7af73375ae5637b7cba1 (diff) | |
download | ppe42-binutils-8a329002330ebe88b40210dfa64e57314275396b.tar.gz ppe42-binutils-8a329002330ebe88b40210dfa64e57314275396b.zip |
* 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.
Diffstat (limited to 'gdb/f-typeprint.c')
-rw-r--r-- | gdb/f-typeprint.c | 10 |
1 files changed, 7 insertions, 3 deletions
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; |