From badefd2800f5ee2dc6a0eef870771af9dc29bba7 Mon Sep 17 00:00:00 2001 From: Per Bothner Date: Wed, 29 Nov 1995 22:59:31 +0000 Subject: * 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. --- gdb/ch-lang.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gdb/ch-lang.c') 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; } -- cgit v1.1