gcc4/gcc/c-typeck.c

1623   tree field;
1626      to the field elements.  Use a binary search on this array to quickly
1635       field = TYPE_FIELDS (type);
1641 	  field = field_array[bot+half];
1643 	  if (DECL_NAME (field) == NULL_TREE)
1648 		  field = field_array[bot++];
1649 		  if (TREE_CODE (TREE_TYPE (field)) == RECORD_TYPE
1650 		      || TREE_CODE (TREE_TYPE (field)) == UNION_TYPE)
1652 		      tree anon = lookup_field (field, component);
1655 			return tree_cons (NULL_TREE, field, anon);
1667 	  if (DECL_NAME (field) == component)
1669 	  if (DECL_NAME (field) < component)
1676 	field = field_array[bot];
1677       else if (DECL_NAME (field) != component)
1682       for (field = TYPE_FIELDS (type); field; field = TREE_CHAIN (field))
1684 	  if (DECL_NAME (field) == NULL_TREE
1685 	      && (TREE_CODE (TREE_TYPE (field)) == RECORD_TYPE
1686 		  || TREE_CODE (TREE_TYPE (field)) == UNION_TYPE))
1688 	      tree anon = lookup_field (field, component);
1691 		return tree_cons (NULL_TREE, field, anon);
1694 	  if (DECL_NAME (field) == component)
1698       if (field == NULL_TREE)
1702   return tree_cons (NULL_TREE, field, NULL_TREE);
1705 /* Make an expression to refer to the COMPONENT field of
1713   tree field = NULL;
1719   /* See if there is a field or component with name COMPONENT.  */
1729       field = lookup_field (datum, component);
1731       if (!field)
1744 	  tree subdatum = TREE_VALUE (field);
1767 	  field = TREE_CHAIN (field);
1769       while (field);
3076 	      ("cannot take address of bit-field %qD", TREE_OPERAND (x, 1));
3373       tree field;
3375       for (field = TYPE_FIELDS (type); field; field = TREE_CHAIN (field))
3376 	if (comptypes (TYPE_MAIN_VARIANT (TREE_TYPE (field)),
3380       if (field)
3387 			   build_constructor_single (type, field, value),
3607   /* If storing in a field that is in actuality a short or narrower than one,
3608      we must store in the field in its actual type.  */
4714 /* For a RECORD_TYPE, this is the first field not yet written out.  */
4721 /* In a RECORD_TYPE, the byte index of the next consecutive field.
5420 /* Common handling for both array range and field name designators.
5474       error_init ("field name not in record or union initializer");
5567 /* Within a struct initializer, specify the next field to be initialized.  */
5582       error_init ("field name not in record or union initializer");
5594     error ("unknown field %qE specified in initializer", fieldname);
5607    identifies the initializer, either array index or field in a structure.
5608    VALUE is the value of that index or field.  */
5630 		warning_init ("initialized field with side-effects overwritten");
5651 		warning_init ("initialized field with side-effects overwritten");
5940 /* Return value of FIELD in pending initializer or zero if the field was
5944 find_init_member (tree field)
5951 	  && tree_int_cst_lt (field, constructor_unfilled_index))
5957 	  if (tree_int_cst_lt (field, p->purpose))
5959 	  else if (tree_int_cst_lt (p->purpose, field))
5967       tree bitpos = bit_position (field);
5978 	  if (field == p->purpose)
5990 	      == field))
6000    FIELD is the field (a FIELD_DECL) or the index that this element fills.
6010 output_init_element (tree value, bool strict_string, tree type, tree field,
6047 	       && DECL_C_BIT_FIELD (field)
6062   /* If this field is empty (and not at the end of structure),
6064   if (field
6065       && (TREE_TYPE (field) == error_mark_node
6066 	  || (COMPLETE_TYPE_P (TREE_TYPE (field))
6067 	      && integer_zerop (TYPE_SIZE (TREE_TYPE (field)))
6069 		  || TREE_CHAIN (field)))))
6083 	  || !tree_int_cst_equal (field, constructor_unfilled_index)))
6086 	  && tree_int_cst_lt (field, constructor_unfilled_index))
6089       add_pending_init (field, value);
6094 	       || field != constructor_unfilled_fields))
6097 	 no matter which field is specified, it can be initialized
6107 	      bitpos = bit_position (field);
6115       add_pending_init (field, value);
6123 	warning_init ("initialized field with side-effects overwritten");
6125       /* We can have just one union field set.  */
6133   celt->index = field;
6257 		     current unfilled field.  Fill the space first.  */
6433 	      /* For a record, keep track of end position of last field.  */
6440 	      /* If the current field was the first one not yet written out,