Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

Reverting until I learn how to conform..

Browse Source
This commit is contained in:
David Lecomber
2003-09-09 23:09:37 +00:00
parent e56a0ecc9e
commit 962d6d9336
2 changed files with 13 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
gdb/eval.c
View File

@@ -1666,6 +1666,10 @@ evaluate_subexp_standard (struct type *expect_type,
offset_item =
array_size_array[i] * offset_item + subscript_array[i];
/* Construct a value node with the value of the offset */
arg2 = value_from_longest (builtin_type_f_integer, offset_item);
/* Let us now play a dirty trick: we will take arg1
which is a value node pointing to the topmost level
of the multidimensional array-set and pretend
@@ -1674,15 +1678,7 @@ evaluate_subexp_standard (struct type *expect_type,
returns the correct type value */
VALUE_TYPE (arg1) = tmp_type;
f77_get_dynamic_lowerbound (tmp_type, &lower);
/* Construct a value node with the value of the offset */
/* lower will get subtracted off in value_subscript, hence add it here */
arg2 = value_from_longest (builtin_type_f_integer, offset_item + lower);
return value_subscript(arg1, arg2);
return value_ind (value_add (value_coerce_array (arg1), arg2));
}
case BINOP_LOGICAL_AND: