Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

Implement support for Chill POWERSETs.

Browse Source 
* 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.
This commit is contained in:
Per Bothner
1993-12-14 04:32:51 +00:00
parent 1400cdc51d
commit e909f287a8
7 changed files with 108 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/stabsread.c
View File

@@ -1568,6 +1568,13 @@ read_type (pp, objfile)
type = read_array_type (pp, type, objfile);
break;
case 'S':
type1 = read_type (pp, objfile);
type = create_set_type ((struct type*) NULL, type1);
if (typenums[0] != -1)
*dbx_lookup_type (typenums) = type;
break;
default:
--*pp; /* Go back to the symbol in error */
/* Particularly important if it was \0! */