espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-10-13 02:45:02 +08:00
Code Issues Packages Projects Releases Wiki Activity

* f-typeprint.c (f_type_print_varspec_suffix): Print array index

Browse Source 
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.
This commit is contained in:
Per Bothner
1995-02-02 05:23:51 +00:00
parent b7a24051cf
commit 8a32900233
4 changed files with 24 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
gdb/parse.c
View File

@ -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;