-static inline int validate_impl_let_stmts(PSI_Data *data, impl *impl) {
- size_t i, j;
- /* we can have multiple let stmts */
-
- /* check that we have a decl arg for every let stmt */
- for (i = 0; i < impl->stmts->let.count; ++i) {
- let_stmt *let = impl->stmts->let.list[i];
- decl_var *let_var;
- int check = 0;
-
- if (let->val && let->val->kind == PSI_LET_TMP) {
- let_var = let->val->data.var;
- } else {
- let_var = let->var;
- }
-
- if (!locate_decl_var_arg(let_var, impl->decl->args, impl->decl->func)) {
- data->error(PSI_WARNING, "Unknown variable '%s' in `let` statement"
- " of implementation '%s'", let_var->name, impl->func->name);
- return 0;
- }
-
- switch (let->val->kind) {
- case PSI_LET_NULL:
- break;
- case PSI_LET_TMP:
- /* e.g. let bar = &strval($bar); // decl_arg(char **bar) */
- /* e.g. let foo = *bar; */
- let->var->pointer_level = let->val->data.var->pointer_level;
- let->var->arg = init_decl_arg(
- init_decl_type(
- real_decl_type(let->val->data.var->arg->type)->type,
- real_decl_type(let->val->data.var->arg->type)->name),
- init_decl_var(
- let->var->name,
- let->var->pointer_level,
- let->var->array_size));
- break;
- case PSI_LET_NUMEXP:
- if (!validate_num_exp(data, impl->decl->args, impl->decl->func, let->val->data.num)) {
- return 0;
- }
- break;
- case PSI_LET_CALLOC:
- if (!validate_num_exp(data, impl->decl->args, impl->decl->func, let->val->data.alloc->nmemb)) {
- return 0;
- }
- if (!validate_num_exp(data, impl->decl->args, impl->decl->func, let->val->data.alloc->size)) {
- return 0;
- }
- break;
- case PSI_LET_FUNC:
- if (impl->func->args) {
- for (j = 0; j < impl->func->args->count; ++j) {
- impl_arg *iarg = impl->func->args->args[j];
-
- if (!strcmp(let->val->data.func->var->name, iarg->var->name)) {
- let->val->data.func->arg = iarg;
- check = 1;
- break;
- }
- }
- }
- if (!check) {
- data->error(PSI_WARNING, "Unknown value '$%s' of `let` statement"
- " for variable '%s' of implementation '%s'",
- let->val->data.func->var->name, let->var->name, impl->func->name);
- return 0;
- }
- break;
- }
- }
-
- /* check that we have a let stmt for every decl arg */
- if (impl->decl->args) for (i = 0; i < impl->decl->args->count; ++i) {
- decl_arg *darg = impl->decl->args->args[i];
- int check = 0;
-
- for (j = 0; j < impl->stmts->let.count; ++j) {
- let_stmt *let = impl->stmts->let.list[j];
-
- if (!strcmp(let->var->name, darg->var->name)) {
- darg->let = let;
- check = 1;
- break;
- }
- }
- if (!check) {
- data->error(PSI_WARNING, "Missing `let` statement for arg '%s %.*s%s'"
- " of declaration '%s' for implementation '%s'",
- darg->type->name, (int) darg->var->pointer_level, "*****",
- darg->var->name, impl->decl->func->var->name, impl->func->name);
- return 0;
- }
- }
-
- return 1;
-}
-static inline int validate_impl_set_stmts(PSI_Data *data, impl *impl) {
- size_t i, j, k;
- /* we can have any count of set stmts; processing out vars */
- /* check that set stmts reference known variables */
- for (i = 0; i < impl->stmts->set.count; ++i) {
- set_stmt *set = impl->stmts->set.list[i];
- int check = 0;
-
- if (impl->func->args) for (j = 0; j < impl->func->args->count; ++j) {
- impl_arg *iarg = impl->func->args->args[j];
-
- if (!strcmp(set->var->name, iarg->var->name)) {
- set->arg = iarg;
- check = 1;
- break;
- }
- }
- if (!check) {
- data->error(PSI_WARNING, "Unknown variable '$%s' of `set` statement"
- " of implementation '%s'",
- set->var->name, impl->func->name);
- return 0;
- }
-
- for (j = 0; j < set->val->vars->count; ++j) {
- decl_var *set_var = set->val->vars->vars[j];
-
- check = 0;
- if (impl->decl->args) {
- for (k = 0; k < impl->decl->args->count; ++k) {
- decl_arg *set_arg = impl->decl->args->args[k];
-
- if (!strcmp(set_var->name, set_arg->var->name)) {
- check = 1;
- set_var->arg = set_arg;
- if (!validate_set_value(data, set->val, 1, &set_arg, 1, &impl->decl->func, impl->decl->args->count, impl->decl->args->args, 0)) {
- return 0;
- }
- break;
- }
- }
- }
- if (!check) {
- for (k = 0; k < impl->stmts->let.count; ++k) {
- let_stmt *let = impl->stmts->let.list[k];
-
- /* check temp vars */
- if (let->val && let->val->kind == PSI_LET_TMP) {
- if (!strcmp(set_var->name, let->var->name)) {
- check = 1;
- set_var->arg = let->var->arg;
- if (!validate_set_value(data, set->val, 1, &set_var->arg, 1, &impl->decl->func, impl->decl->args->count, impl->decl->args->args, 0)) {
- return 0;
- }
- break;
- }
- }
- }
- }
-
- if (!check) {
- data->error(PSI_WARNING, "Unknown value '%s' of `set` statement"
- " for variable '$%s' of implementation '%s'",
- set_var->name, set->arg->var->name, impl->func->name);
- return 0;
- }
- }
- }
- return 1;
-}
-static inline decl *locate_free_decl(decls *decls, free_call *f) {
- if (decls) {
- size_t i;
-
- for (i = 0; i < decls->count; ++i) {
- if (!strcmp(decls->list[i]->func->var->name, f->func)) {
- f->decl = decls->list[i];
- return decls->list[i];
- }
- }