contrib/gcc/ipa-type-escape.c

401 ipa_type_escape_field_does_not_clobber_p (tree record_type, tree field_type)
413   field_type = TYPE_MAIN_VARIANT (field_type);
417       if (POINTER_TYPE_P (field_type))
418 	field_type = TYPE_MAIN_VARIANT (TREE_TYPE (field_type));
420 	/* However, if field_type is a union, this quick test is not
425 	if (TREE_CODE (field_type) == QUAL_UNION_TYPE
426 	    || TREE_CODE (field_type) == UNION_TYPE)
448       uid = get_canon_type_uid (field_type, true, true);
547 	  tree field_type;
551 	  field_type = TREE_TYPE (field);
552 	  if (field_type == child)
562 	  tree field_type;
566 	  field_type = TREE_TYPE (field);
567 	  if (TREE_CODE (field_type) == RECORD_TYPE
568 	      || TREE_CODE (field_type) == QUAL_UNION_TYPE
569 	      || TREE_CODE (field_type) == UNION_TYPE)
570 	    if (parent_type_p (field_type, child))
582 	  tree field_type;
586 	  field_type = TREE_TYPE (field);
587 	  if (field_type == child)
591 	  if (TREE_CODE (field_type) == RECORD_TYPE
592 	      || TREE_CODE (field_type) == QUAL_UNION_TYPE
593 	      || TREE_CODE (field_type) == UNION_TYPE)
595 	      if (parent_type_p (field_type, child))
1481       tree field_type;
1485       field_type = TREE_TYPE (field);
1486       if (ipa_type_escape_star_count_of_interesting_or_array_type (field_type) >= 0)
1487 	close_type_seen (get_canon_type (field_type, true, true));
1518       tree field_type;
1523       field_type = get_canon_type (TREE_TYPE (field), false, false);
1524       mark_interesting_type (field_type, EXPOSED_PARAMETER);
1527       if (ipa_type_escape_star_count_of_interesting_type (field_type) == 0)
1528 	close_type_exposed_parameter (field_type);
1596       tree field_type;
1600       field_type = TREE_TYPE (field);
1601       if (ipa_type_escape_star_count_of_interesting_or_array_type (field_type) >= 0)
1603 	  field_type = mark_type (field_type, FULL_ESCAPE);
1604 	  close_type_full_escape (field_type);