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;
oprintf(outf_p o,const char * format,...)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 }
output_mangled_typename(outf_p of,const_type_p t)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 }
output_type_enum(outf_p of,type_p s)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 }
67