diff options
author | Per Bothner <per@bothner.com> | 1993-12-14 04:32:51 +0000 |
---|---|---|
committer | Per Bothner <per@bothner.com> | 1993-12-14 04:32:51 +0000 |
commit | e909f287a8340e2fe7a99f6fc1649801ec807768 (patch) | |
tree | c63edf815aaacd4fd20ca3cd370799843151bc34 /gdb/ch-typeprint.c | |
parent | 1400cdc51d7a0264cea808e46f22a0a35faebac9 (diff) |
Implement support for Chill POWERSETs.
* ch-exp.y (operand_2): Implement 'Element IN PowerSet'.
* ch-typeprint.c (chill_type_print_base): Handle POWERSETs.
* ch-valprint.c (chill_val_print): Handle TYPE_CODE_SET.
* eval.c (evaluate_subexp): Implement BINOP_IN.
* expression.h (enum exp_opcode): Added BINOP_IN.
* gdbtypes.c (create_set_type), gdbtypes.h: New function.
* stabsread.c (read_type): If 'S', create a set type.
* valarith.c (value_bit_index, value_in), value.h: New functions,
for indexing in SETs.
Diffstat (limited to 'gdb/ch-typeprint.c')
-rw-r--r-- | gdb/ch-typeprint.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gdb/ch-typeprint.c b/gdb/ch-typeprint.c index da64b45372..3073486b88 100644 --- a/gdb/ch-typeprint.c +++ b/gdb/ch-typeprint.c @@ -131,6 +131,11 @@ chill_type_print_base (type, stream, show, level) chill_print_type (TYPE_TARGET_TYPE (type), "", stream, show, level); break; + case TYPE_CODE_SET: + fputs_filtered ("POWERSET ", stream); + chill_print_type (TYPE_FIELD_TYPE (type, 0), "", stream, show, level); + break; + case TYPE_CODE_STRING: range_type = TYPE_FIELD_TYPE (type, 0); index_type = TYPE_TARGET_TYPE (range_type); |