diff options
| author | Per Bothner <per@bothner.com> | 1995-11-29 22:59:31 +0000 |
|---|---|---|
| committer | Per Bothner <per@bothner.com> | 1995-11-29 22:59:31 +0000 |
| commit | badefd2800f5ee2dc6a0eef870771af9dc29bba7 (patch) | |
| tree | 042d9206d56686bbe7753b3467d91f5ee03ce794 /gdb/ch-lang.c | |
| parent | b00c57ec37e4c971d96b40cf76ce21f8837b84a5 (diff) | |
| download | gdb-badefd2800f5ee2dc6a0eef870771af9dc29bba7.zip gdb-badefd2800f5ee2dc6a0eef870771af9dc29bba7.tar.gz gdb-badefd2800f5ee2dc6a0eef870771af9dc29bba7.tar.bz2 | |
* expression.h (enum exp_opcode): Add BINOP_RANGE.
* expprint.c (dump_expression): Support BINOP_RANGE.
* eval.c (evaluate_subexp_standard): Handle BINOP_RANGE (as error).
(case MULTI_SUBSCRIPT): Fix broken f77 value->int ad hoc conversion.
* ch-lang.c (chill_op_print_tab): Support BINOP_RANGE.
(evaluate_subexp_chill): Error on BINOP_COMMA.
Diffstat (limited to 'gdb/ch-lang.c')
| -rw-r--r-- | gdb/ch-lang.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gdb/ch-lang.c b/gdb/ch-lang.c index f8be814..1e681f5 100644 --- a/gdb/ch-lang.c +++ b/gdb/ch-lang.c @@ -272,6 +272,7 @@ static const struct op_print chill_op_print_tab[] = { {"-", UNOP_NEG, PREC_PREFIX, 0}, {"->", UNOP_IND, PREC_SUFFIX, 1}, {"->", UNOP_ADDR, PREC_PREFIX, 0}, + {":", BINOP_RANGE, PREC_ASSIGN, 0}, {NULL, 0, 0, 0} }; @@ -453,6 +454,9 @@ evaluate_subexp_chill (expect_type, exp, pos, noside) arg1 = (*exp->language_defn->evaluate_exp) (NULL_TYPE, exp, pos, noside); return value_chill_length (arg1); + case BINOP_COMMA: + error ("',' operator used in invalid context"); + default: break; } |