#define is_anon_type(name, type) !strncmp(name, type "@", sizeof(type))
static inline void dump_decl_type(int fd, decl_type *t, unsigned level) {
- size_t j;
-
switch (t->type) {
case PSI_T_POINTER:
dprintf(fd, "%s *", t->name);
return;
- case PSI_T_FUNCTION:
- dump_decl_arg(fd, t->func->func, level);
- dprintf(fd, "(");
- if (t->func->args) {
- for (j = 0; j < t->func->args->count; ++j) {
- if (j) {
- dprintf(fd, ", ");
- }
- dump_decl_arg(fd, t->func->args->args[j], level+1);
- }
- if (t->func->args->varargs) {
- dprintf(fd, ", ...");
- }
- }
- dprintf(fd, ")");
- return;
-
case PSI_T_STRUCT:
dprintf(fd, "struct ");
if (!strncmp(t->name, "struct@", sizeof("struct"))) {
- dump_struct_args(fd, t->strct->args, level);
+ dump_struct_args(fd, t->real.strct->args, level);
return;
}
break;
case PSI_T_ENUM:
dprintf(fd, "enum ");
if (!strncmp(t->name, "enum@", sizeof("enum"))) {
- dump_enum_items(fd, t->enm->items, level);
+ dump_enum_items(fd, t->real.enm->items, level);
return;
}
break;
case PSI_T_UNION:
dprintf(fd, "union ");
if (!strncmp(t->name, "union@", sizeof("union"))) {
- dump_struct_args(fd, t->unn->args, level);
+ dump_struct_args(fd, t->real.unn->args, level);
return;
}
break;
}
static inline void dump_decl_arg(int fd, decl_arg *a, unsigned level) {
- dump_decl_type(fd, a->type, level);
+ if (a->type->type == PSI_T_FUNCTION) {
+ dump_decl_type(fd, a->type->real.func->func->type, level);
+ dprintf(fd, " (");
+ dump_decl_var(fd, a->var);
+ dprintf(fd, ")(");
+ if (a->type->real.func->args) {
+ size_t j;
- if (a->type->type != PSI_T_FUNCTION) {
+ for (j = 0; j < a->type->real.func->args->count; ++j) {
+ if (j) {
+ dprintf(fd, ", ");
+ }
+ dump_decl_arg(fd, a->type->real.func->args->args[j], level+1);
+ }
+ if (a->type->real.func->args->varargs) {
+ dprintf(fd, ", ...");
+ }
+ }
+ dprintf(fd, ")");
+ } else {
+ dump_decl_type(fd, a->type, level);
dprintf(fd, " ");
dump_decl_var(fd, a->var);
}