Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests 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

23
gdb/f-valprint.c
View File

@@ -225,7 +225,7 @@ f77_create_arrayprint_offset_tbl (type, stream)
FILE *stream;
{
struct type *tmp_type;
int eltlen;
int eltlen;
int ndimen = 1;
int upper, lower, retcode;
@@ -246,31 +246,22 @@ f77_create_arrayprint_offset_tbl (type, stream)
F77_DIM_SIZE (ndimen) = upper - lower + 1;
if (ndimen == 1)
F77_DIM_OFFSET (ndimen) = 1;
else
F77_DIM_OFFSET (ndimen) =
F77_DIM_OFFSET (ndimen - 1) * F77_DIM_SIZE(ndimen - 1);
tmp_type = TYPE_TARGET_TYPE (tmp_type);
ndimen++;
}
eltlen = TYPE_LENGTH (tmp_type);
/* Now we multiply eltlen by all the offsets, so that later we
can print out array elements correctly. Up till now we
know an offset to apply to get the item but we also
have to know how much to add to get to the next item */
tmp_type = type;
ndimen = 1;
while ((TYPE_CODE (tmp_type) == TYPE_CODE_ARRAY))
ndimen--;
eltlen = TYPE_LENGTH (tmp_type);
F77_DIM_OFFSET (ndimen) = eltlen;
while (--ndimen > 0)
{
F77_DIM_OFFSET (ndimen) *= eltlen;
ndimen++;
tmp_type = TYPE_TARGET_TYPE (tmp_type);
eltlen *= F77_DIM_SIZE (ndimen + 1);
F77_DIM_OFFSET (ndimen) = eltlen;
}
}