}
}
+struct psi_decl_type *psi_decl_type_copy(struct psi_decl_type *src)
+{
+ struct psi_decl_type *dst = calloc(1, sizeof(*dst));
+
+ dst->type = src->type;
+ if (src->name) {
+ dst->name = strdup(src->name);
+ }
+ if (src->token) {
+ dst->token = psi_token_copy(src->token);
+ }
+ return dst;
+}
+
struct psi_plist *psi_decl_type_get_args(struct psi_decl_type *dtyp,
struct psi_decl_type **real_typ_ptr)
{
switch (var_typ->type) {
case PSI_T_STRUCT:
- return var_typ->real.strct->size;
+ return var_typ->real.strct ? var_typ->real.strct->size : 0;
case PSI_T_UNION:
- return var_typ->real.unn->size;
+ return var_typ->real.unn ? var_typ->real.unn->size : 0;
default:
return psi_t_size(var_typ->type);
}
if (type->real.def) {
return true;
}
- if (defs)
+ if (defs) {
while (psi_plist_get(defs, i++, &def)) {
if (def->type->type != type->type
&& !strcmp(def->var->name, type->name)) {
return true;
}
}
+ }
for (stdtyp = &psi_std_types[0]; stdtyp->type_tag; ++stdtyp) {
if (!strcmp(type->name, stdtyp->alias ?: stdtyp->type_name)) {
type->type = stdtyp->type_tag;
}
bool psi_decl_type_validate(struct psi_data *data, struct psi_decl_type *type,
- struct psi_decl_arg *def)
+ bool is_pointer, struct psi_validate_stack *type_stack)
{
if (psi_decl_type_is_weak(type)) {
if (!psi_decl_type_get_alias(type, data->types)) {
- return false;
+ if (!psi_validate_stack_has_type(type_stack, type->name)) {
+ return false;
+ }
+ type->real.def = psi_validate_stack_get_type(type_stack, type->name);
}
if (type->real.def) {
return psi_decl_type_validate(data, type->real.def->type,
- type->real.def);
+ is_pointer, type_stack);
}
return true;
}
switch (type->type) {
case PSI_T_STRUCT:
- if (!psi_decl_type_get_struct(type, data->structs) && !def) {
- data->error(data, type->token, PSI_WARNING,
- "Unknown struct '%s'", type->name);
+ if (!psi_decl_type_get_struct(type, data->structs)) {
+ if (psi_validate_stack_has_struct(type_stack, type->name)) {
+ type->real.strct = psi_validate_stack_get_struct(type_stack, type->name);
+ } else if (is_pointer) {
+ return true;
+ } else {
+ data->error(data, type->token, PSI_WARNING,
+ "Unknown struct '%s'", type->name);
+ return false;
+ }
+ }
+ if (!psi_decl_struct_validate(data, type->real.strct, type_stack)) {
return false;
}
break;
case PSI_T_UNION:
- if (!psi_decl_type_get_union(type, data->unions) && !def) {
- data->error(data, type->token, PSI_WARNING,
- "Unknown union '%s'", type->name);
+ if (!psi_decl_type_get_union(type, data->unions)) {
+ if (psi_validate_stack_has_union(type_stack, type->name)) {
+ type->real.unn = psi_validate_stack_get_union(type_stack, type->name);
+ } else if (is_pointer) {
+ return true;
+ } else {
+ data->error(data, type->token, PSI_WARNING,
+ "Unknown union '%s'", type->name);
+ return false;
+ }
+ }
+ if (!psi_decl_union_validate(data, type->real.unn, type_stack)) {
return false;
}
break;
case PSI_T_ENUM:
- if (!psi_decl_type_get_enum(type, data->enums) && !def) {
+ if (!psi_decl_type_get_enum(type, data->enums)) {
data->error(data, type->token, PSI_WARNING,
"Unknown enum '%s'", type->name);
return false;
"Unknown decl '%s'", type->name);
return false;
}
- if (!psi_decl_validate_nodl(data, type->real.func)) {
+ if (!psi_decl_validate_nodl(data, type->real.func, type_stack)) {
return false;
}
break;
+ default:
+ break;
}
+
return true;
}
while (psi_plist_get(args, i++, &sarg)) {
dprintf(fd, "%s", psi_t_indent(level));
psi_decl_arg_dump(fd, sarg, level);
- dprintf(fd, "::(%zu, %zu);\n", sarg->layout->pos,
- sarg->layout->len);
+ if (sarg->layout) {
+ if (sarg->layout->bfw) {
+ dprintf(fd, ":%zu", sarg->layout->bfw->len);
+ }
+ dprintf(fd, "::(%zu, %zu);\n", sarg->layout->pos,
+ sarg->layout->len);
+ } else {
+ dprintf(fd, ";\n");
+ }
}
--level;
}
}
}
--level;
- dprintf(fd, "%s} ", psi_t_indent(level));
+ dprintf(fd, "%s\n} ", psi_t_indent(level));
return;
}
break;
case PSI_T_SHORT:
case PSI_T_INT:
case PSI_T_LONG:
+ case PSI_T_UNSIGNED:
+ case PSI_T_SIGNED:
case PSI_T_NAME:
return type->type;
default: