+}
+
+void psi_do_return(impl *impl, impl_val *ret_val, zval *return_value)
+{
+ switch (impl->stmts->ret.list[0]->func->type) {
+ case PSI_T_TO_STRING:
+ psi_to_string(ret_val, impl->decl->func, return_value);
+ break;
+ case PSI_T_TO_INT:
+ psi_to_int(ret_val, impl->decl->func, return_value);
+ break;
+ EMPTY_SWITCH_DEFAULT_CASE();
+ }
+}
+
+void psi_do_free(free_stmt *fre)
+{
+ size_t i;
+
+ for (i = 0; i < fre->vars->count; ++i) {
+ decl_var *dvar = fre->vars->vars[i];
+
+ if (dvar->arg && dvar->arg->let->out.ptr) {
+ free(dvar->arg->let->out.ptr);
+ dvar->arg->let->out.ptr = NULL;
+ }
+ }
+}
+
+void psi_do_clean(impl *impl)
+{
+ size_t i;
+
+ for (i = 0; i < impl->func->args->count; ++i ) {
+ impl_arg *iarg = impl->func->args->args[i];
+
+ switch (iarg->type->type) {
+ case PSI_T_STRING:
+ if (iarg->val.str) {
+ zend_string_release(iarg->val.str);
+ }
+ break;
+ }
+ }
+
+ for (i = 0; i < impl->decl->args->count; ++i) {
+ decl_arg *darg = impl->decl->args->args[i];
+
+ if (darg->let && darg->let->mem) {
+ efree(darg->let->mem);
+ darg->let->mem = NULL;
+ }
+ }
+}
+
+PHP_MINIT_FUNCTION(psi)
+{
+ PSI_ContextOps *ops;
+
+ REGISTER_INI_ENTRIES();
+
+ if (!strcasecmp(PSI_G(engine), "jit")) {
+ ops = PSI_Libjit();
+ } else {
+ ops = PSI_Libffi();
+ }
+
+ PSI_ContextInit(&PSI_G(context), ops, psi_error);
+ PSI_ContextBuild(&PSI_G(context), PSI_G(directory));
+