contrib/gcc/gengtype.c

146 /* Create and return a new structure with tag NAME (or a union iff
158     if (strcmp (name, si->u.s.tag) == 0
210   s->u.s.tag = name;
221 /* Return the previously-defined structure with tag NAME (or a union
231     if (strcmp (name, s->u.s.tag) == 0
239   s->u.s.tag = name;
369      The field has a tag of "1".  This allows us to make the presence
373   union_fields->opt = create_option (union_fields->opt, "tag", "1");
378      tag that specifies the condition under which the field is valid.  */
536 	  note_flds->opt = create_option (nodot, "tag", note_insn_name[c]);
549     sym_flds->opt = create_option (nodot, "tag", "1");
693       flds->opt = create_option (nodot, "tag", ftag);
1462       oprintf (of, "%lu%s", (unsigned long) strlen (t->u.s.tag), t->u.s.tag);
1557     else if (strcmp (oo->name, "tag") == 0)
1675 			 nested_ptr_d->type->u.s.tag,
1782 	  error_at_line (d->line, "incomplete structure `%s'", t->u.s.tag);
1788 			   t->u.s.tag);
1804 			       t->u.s.tag);
1827 	      else if (strcmp (oo->name, "tag") == 0)
1856 			     default_p ? "default" : "tag", f->name);
1861 	"%s:%d: warning: field `%s' is missing `tag' or `default' option\n",
1867 			     "field `%s' is missing `tag' or `default' option",
1915 			 t->u.s.tag);
2008 /* A subroutine of write_func_for_structure.  Write the enum tag for S.  */
2079     oprintf (d.of, "gt_%sx_%s", wtd->prefix, orig_s->u.s.tag);
2088 	   s->kind == TYPE_UNION ? "union" : "struct", s->u.s.tag,
2090 	   s->kind == TYPE_UNION ? "union" : "struct", s->u.s.tag);
2093 	     s->kind == TYPE_UNION ? "union" : "struct", s->u.s.tag);
2125 		   s->kind == TYPE_UNION ? "union" : "struct", s->u.s.tag);
2186 		 s->u.s.tag);
2199 			 wtd->prefix, s->u.s.tag, wtd->prefix, t->u.s.tag);
2211 		 wtd->prefix, s->u.s.tag);
2216 		     s->u.s.tag);
2244 		     s->u.s.tag);
2343 	   s->kind == TYPE_UNION ? "union" : "struct", s->u.s.tag,
2344 	   s->kind == TYPE_UNION ? "union" : "struct", s->u.s.tag);
2420 		     s->u.s.tag);
2608 		    const char *tag = NULL;
2612 		      if (strcmp (oo->name, "tag") == 0)
2613 			tag = oo->info;
2614 		    if (tag == NULL || strcmp (tag, desc) != 0)
2618 			   "both `%s.%s.%s' and `%s.%s.%s' have tag `%s'",
2621 				     tag);
2681 	    oprintf (f, "    &gt_ggc_mx_%s,\n", tp->u.s.tag);
2682 	    oprintf (f, "    &gt_pch_nx_%s", tp->u.s.tag);