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/parse.c | |
| parent | b7a24051cf6415d9482b7af73375ae5637b7cba1 (diff) | |
| download | gdb-8a329002330ebe88b40210dfa64e57314275396b.zip gdb-8a329002330ebe88b40210dfa64e57314275396b.tar.gz gdb-8a329002330ebe88b40210dfa64e57314275396b.tar.bz2 | |
* 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/parse.c')
| -rw-r--r-- | gdb/parse.c | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/gdb/parse.c b/gdb/parse.c index e2723b7..dff887e 100644 --- a/gdb/parse.c +++ b/gdb/parse.c @@ -475,11 +475,6 @@ length_of_subexp (expr, endpos) args = 2; break; - case OP_F77_SUBSTR: - oplen = 1; - args = 2; - break; - case OP_FUNCALL: case OP_F77_UNDETERMINED_ARGLIST: oplen = 3; @@ -542,8 +537,6 @@ length_of_subexp (expr, endpos) /* Modula-2 */ case MULTI_SUBSCRIPT: - /* Fortran */ - case MULTI_F77_SUBSCRIPT: oplen = 3; args = 1 + longest_to_int (expr->elts[endpos- 2].longconst); break; @@ -620,11 +613,6 @@ prefixify_subexp (inexpr, outexpr, inend, outbeg) args = 2; break; - case OP_F77_SUBSTR: - oplen = 1; - args = 2; - break; - case OP_FUNCALL: case OP_F77_UNDETERMINED_ARGLIST: oplen = 3; @@ -691,8 +679,6 @@ prefixify_subexp (inexpr, outexpr, inend, outbeg) /* Modula-2 */ case MULTI_SUBSCRIPT: - /* Fortran */ - case MULTI_F77_SUBSCRIPT: oplen = 3; args = 1 + longest_to_int (inexpr->elts[inend - 2].longconst); break; |