diff options
| author | Markus Deuling <deuling@de.ibm.com> | 2008-04-22 06:53:18 +0000 |
|---|---|---|
| committer | Markus Deuling <deuling@de.ibm.com> | 2008-04-22 06:53:18 +0000 |
| commit | 9eec4d1e39028b54f54638c90b2c628b958162fe (patch) | |
| tree | 01ab148246a55aa0a0bf1b48c8956d0e42a40094 /gdb/valarith.c | |
| parent | 68837c9d8d2b2fed53f1232a82d333b23d01e320 (diff) | |
| download | gdb-9eec4d1e39028b54f54638c90b2c628b958162fe.zip gdb-9eec4d1e39028b54f54638c90b2c628b958162fe.tar.gz gdb-9eec4d1e39028b54f54638c90b2c628b958162fe.tar.bz2 | |
* eval.c (evaluate_subexp_standard): Use value_subscripted_rvalue for
multi_f77_subscript to support values from registers.
* valarith.c (value_subscripted_rvalue): Remove prototype and static.
* value.h (value_subscripted_rvalue): Add prototype.
* f-typeprint.c (f_type_print_base): Add support for TYPE_CODE_UNION.
Fix output.
* f-valprint.c (f_val_print): Likewise.
Diffstat (limited to 'gdb/valarith.c')
| -rw-r--r-- | gdb/valarith.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gdb/valarith.c b/gdb/valarith.c index 7d6f35b..7e6b66e 100644 --- a/gdb/valarith.c +++ b/gdb/valarith.c @@ -39,7 +39,6 @@ #define TRUNCATION_TOWARDS_ZERO ((-5 / 2) == -2) #endif -static struct value *value_subscripted_rvalue (struct value *, struct value *, int); static struct type *unop_result_type (enum exp_opcode op, struct type *type1); static struct type *binop_result_type (enum exp_opcode op, struct type *type1, struct type *type2); @@ -257,7 +256,7 @@ value_subscript (struct value *array, struct value *idx) (eg, a vector register). This routine used to promote floats to doubles, but no longer does. */ -static struct value * +struct value * value_subscripted_rvalue (struct value *array, struct value *idx, int lowerbound) { struct type *array_type = check_typedef (value_type (array)); |