return mem;
}
-static inline impl_val *psi_let_val(token_t let_func, impl_arg *iarg, impl_val *arg_val, decl_struct *strct, void **to_free)
-{
- abort();
- return arg_val;
-}
-
static inline impl_val *psi_let_func(let_func *func, decl_arg *darg) {
return darg->ptr = func->handler(darg->ptr, darg->type, func->var->arg, &darg->mem);
}
while (*ptr) {
efree(*ptr++);
}
+ } else if (type->type == PSI_T_STRUCT) {
+ void **ptr = (void **) ((char *) darg->mem + type->real.unn->size);
+
+ if (*ptr) {
+ efree(*ptr);
+ }
}
}
}
case PSI_T_STRUCT:
impl->decl->func->ptr = psi_array_to_struct(real->real.strct, NULL);
break;
+ case PSI_T_UNION:
+ impl->decl->func->ptr = psi_array_to_union(real->real.unn, NULL);
+ break;
}
}
}