From dcda44a07a5fae20fc6ab26e07229984f87b7172 Mon Sep 17 00:00:00 2001 From: Per Bothner Date: Fri, 20 Jan 1995 23:45:21 +0000 Subject: * expression.h (OP_LABELED): New operator, for Chill labeled structre tuples. * ch-exp.y (tuple_element, named_record_element, tuple_elements): New non-terminals, to handle labeled structure tuples. (tuple): Re-define using tuple_elements. * eval.c (evaluate_labeled_field_init): New function, to handle initialization of structure fields, possibly using OP_LABELED. (evaluate_subexp): Use it. * expprint.c (print_subexp case): For OP_ARRAY, use Chill syntax for Chill. Handled OP_LABELED. * parse.c (length_of_subexp, prefixify_subexp): Handle OP_LABELED. * eval.c (evaluate_subexp): Handle Chill Powerset tuples. * valarith.c (value_bit_index): Just treat bitstring as represented by an array of bytes. Alignment is handled by compiler. --- gdb/parse.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gdb/parse.c') diff --git a/gdb/parse.c b/gdb/parse.c index 4b7d541..a6d9575 100644 --- a/gdb/parse.c +++ b/gdb/parse.c @@ -510,6 +510,7 @@ length_of_subexp (expr, endpos) args = 1; break; + case OP_LABELED: case STRUCTOP_STRUCT: case STRUCTOP_PTR: args = 1; @@ -653,6 +654,7 @@ prefixify_subexp (inexpr, outexpr, inend, outbeg) case STRUCTOP_STRUCT: case STRUCTOP_PTR: + case OP_LABELED: args = 1; /* fall through */ case OP_M2_STRING: -- cgit v1.1