gdb/gdb/f-exp.y

134       struct type *type;
138     struct type *tval;
147     struct type **tvec;
156 %type <voidval> exp  type_exp start variable
157 %type <tval> type typebase
158 %type <tvec> nonempty_typelist
159 /* %type <bval> block */
161 /* Fancy type parsing.  */
162 %type <voidval> func_mod direct_abs_decl abs_decl
163 %type <tval> ptype
171    or builtin type name (such as int or char)
180 %type <sval> name
181 %type <ssym> name_not_typename
182 %type <tsym> typename
194 /* Special type cases, put in to allow the parser to distinguish different
233 type_exp:	type
309 exp	:	'(' type ')' exp  %prec UNARY
406 			  write_exp_elt_type ($1.type);
415 			  write_exp_elt_type (val.typed_val.type);
433 exp	:	SIZEOF '(' type ')'	%prec UNARY
500 type    :       ptype
509 		  struct type *follow_type = $1;
510 		  struct type *range_type;
529 			      create_range_type ((struct type *) NULL,
533 			      create_array_type ((struct type *) NULL,
572 typebase  /* Implements (approximately): (type-qualifier)* type-specifier */
574 			{ $$ = $1.type; }
605 	:	type
606 		{ $$ = (struct type **) malloc (sizeof (struct type *) * 2);
610 	|	nonempty_typelist ',' type
611 		{ int len = sizeof (struct type *) * (++($<ivec>1[0]) + 1);
612 		  $$ = (struct type **) realloc ((char *) $1, len);
638    Set yylval and return the token type; update lexptr.
657   struct type *signed_type;
658   struct type *unsigned_type;
771   /* If the high bit of the worked out type is set then this number
775     putithere->typed_val.type = unsigned_type;
777     putithere->typed_val.type = signed_type;
1135   /* Use token-type TYPENAME for symbols that happen to be defined
1151 	yylval.tsym.type = SYMBOL_TYPE (sym);
1154     if ((yylval.tsym.type = lookup_primitive_typename (tmp)) != 0)