gcc/testsuite/gcc.target/ia64/20101014.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-w -O2 -g -fselective-scheduling2" } */
   3
   4 typedef long unsigned int size_t;
   5 struct fileloc
   6 {
   7   const char *file;
   8 };
   9 typedef struct type *type_p;
  10 typedef const struct type *const_type_p;
  11 enum typekind
  12 {
  13   TYPE_STRUCT,
  14   TYPE_UNION,
  15   TYPE_POINTER,
  16   TYPE_LANG_STRUCT,
  17   TYPE_PARAM_STRUCT
  18 };
  19 struct type
  20 {
  21   enum typekind kind;
  22   union
  23   {
  24     struct
  25     {
  26       struct fileloc line;
  27     } s;
  28     struct
  29     {
  30       struct fileloc line;
  31     } param_struct;
  32   } u;
  33 };
  34 struct outf
  35 {
  36   size_t bufused;
  37   char *buf;
  38 };
  39 typedef struct outf *outf_p;
  40 oprintf (outf_p o, const char *format, ...)
  41 {
  42   char *s;
  43   size_t slength;
  44   memcpy (o->buf + o->bufused, s, slength);
  45 }
  46 output_mangled_typename (outf_p of, const_type_p t)
  47 {
  48     switch (t->kind)
  49       {
  50       case TYPE_POINTER: (fancy_abort ("/gcc/gengtype.c", 1988, __FUNCTION__));
  51     }
  52 }
  53 output_type_enum (outf_p of, type_p s)
  54 {
  55   if (s->kind == TYPE_PARAM_STRUCT && s->u.param_struct.line.file != ((void *)0))
  56     {
  57       oprintf (of, ", gt_e_");
  58     }
  59   else if (((s)->kind == TYPE_UNION || (s)->kind == TYPE_STRUCT || (s)->kind == TYPE_LANG_STRUCT) && s->u.s.line.file != ((void *)0))
  60     {
  61       oprintf (of, ", gt_ggc_e_");
  62       output_mangled_typename (of, s);
  63     }
  64   else
  65     oprintf (of, ", gt_types_enum_last");
  66 }