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