-}
-
-static ffi_status psi_ffi_prep_closure(ffi_closure **closure, void **code, ffi_cif *sig, void (*handler)(ffi_cif*,void*,void**,void*), void *data) {
- *closure = psi_ffi_closure_alloc(sizeof(ffi_closure), code);
- ZEND_ASSERT(*closure != NULL);
-
-#if PSI_HAVE_FFI_PREP_CLOSURE_LOC
- return ffi_prep_closure_loc(*closure, sig, handler, data, *code);
-
-#elif PSI_HAVE_FFI_PREP_CLOSURE
- return ffi_prep_closure(*code, sig, handler, data);
-#else
-# error "Neither ffi_prep_closure() nor ffi_prep_closure_loc() is available"
-#endif
-
-}
-
-static void psi_ffi_closure_free(void *c)
-{
-#ifdef PSI_HAVE_FFI_CLOSURE_ALLOC
- ffi_closure_free(c);
-#elif HAVE_MMAP
- munmap(c, sizeof(ffi_closure));
-#endif
-}
-
-static void psi_ffi_handler(ffi_cif *_sig, void *_result, void **_args, void *_data)
-{
- psi_call(*(zend_execute_data **)_args[0], *(zval **)_args[1], _data);
-}
-
-static void psi_ffi_callback(ffi_cif *_sig, void *_result, void **_args, void *_data)
-{
- unsigned argc = _sig->nargs;
- void **argv = _args;
- ffi_arg *res = _result;
- let_stmt *let;
- decl_arg *darg = let->var->arg;
- decl *decl_cb = darg->type->func;
- let_callback *cb = let->val->data.callback;
- impl_arg *iarg = cb->func->arg;
- size_t i, argc = cb->args->count;
- zval return_value, *argv = calloc(argc, sizeof(*argv));
-
- // prepare args for the userland call
- for (i = 0; i < decl_cb->args->count; ++i) {