suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update source "foreign.rktc"

Browse Source 
Copies change in 91fa5b6490 to original source.
This commit is contained in:
Matthew Flatt 2019-12-19 08:29:52 -07:00
parent 91fa5b6490
commit 02b534d571
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/foreign/foreign.rktc
View File

@ -3536,7 +3536,7 @@ static Scheme_Object *ffi_callback_or_curry(const char *who, int curry, int argc
}
}
cl_cif_args->data = callback_data;
if (ffi_prep_closure(cl, cif, do_callback, (void*)(cl_cif_args->data))
if (ffi_prep_closure_loc(cl, cif, do_callback, (void*)(cl_cif_args->data), cl)
!= FFI_OK)
scheme_signal_error
("internal error: ffi_prep_closure did not return FFI_OK");