+ psi_ffi_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) {
+ let_stmt *let = impl->stmts->let.list[j];
+
+ if (let->val && let->val->kind == PSI_LET_CALLBACK) {
+ let_callback *cb = let->val->data.callback;
+
+ if (cb->decl && cb->decl->call.info) {
+ psi_ffi_call_free(cb->decl->call.info);
+ }
+ }
+ }
+ }
+ }
+ psi_ffi_context_free((void *) &C->context);
+}
+
+static inline void psi_ffi_compile_callbacks(struct psi_context *C, let_val *let_val) {
+ struct psi_ffi_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_ffi_call_alloc(C, cb->decl))) {
+ if (FFI_OK != psi_ffi_call_init_callback_closure(C, call, cb)) {
+ psi_ffi_call_free(call);
+ break;