+ if (decl->call.info) {
+ psi_jit_call_free(decl->call.info);
+ }
+ }
+ }
+ if (C->impls) {
+ size_t i, j;
+
+ for (i = 0; i < C->impls->count; ++i) {
+ impl *impl = C->impls->list[i];
+
+ for (j = 0; j < impl->stmts->let.count; ++j) {
+ psi_jit_destroy_callbacks(C, impl->stmts->let.list[j]->val);
+ }
+ }
+ }
+ psi_jit_context_free((void *) &C->context);
+}
+
+static inline void psi_jit_compile_callbacks(struct psi_context *C, let_val *let_val) {
+ struct psi_jit_call *call;
+ let_callback *cb;
+ let_func *fn = NULL;
+
+ switch (let_val->kind) {
+ case PSI_LET_CALLBACK:
+ cb = let_val->data.callback;
+ if ((call = psi_jit_call_alloc(C, cb->decl))) {
+ if (!psi_jit_call_init_callback_closure(C, call, cb)) {
+ psi_jit_call_free(call);
+ break;
+ }
+
+ cb->decl->call.sym = call->closure;