bc: repair for foreign callbacks

Fix an array whose size needs to be connected to the number of
arguments to `ffi-callback-maker`.
This commit is contained in:
Matthew Flatt 2020-12-20 20:33:48 -07:00
parent 344f2c9713
commit 8cd96ec5df
2 changed files with 2 additions and 2 deletions

View File

@ -4500,7 +4500,7 @@ static Scheme_Object *foreign_ffi_callback(int argc, Scheme_Object *argv[])
static Scheme_Object *make_ffi_callback_from_curried(int argc, Scheme_Object *argv[], Scheme_Object *self)
{
Scheme_Object *vec = SCHEME_PRIM_CLOSURE_ELS(self)[0];
Scheme_Object *a[6];
Scheme_Object *a[7];
int c = SCHEME_VEC_SIZE(vec), i;
for (i = 0; i < c; i++) {

View File

@ -3650,7 +3650,7 @@ static Scheme_Object *ffi_callback_or_curry(const char *who, int curry, int argc
static Scheme_Object *make_ffi_callback_from_curried(int argc, Scheme_Object *argv[], Scheme_Object *self)
{
Scheme_Object *vec = SCHEME_PRIM_CLOSURE_ELS(self)[0];
Scheme_Object *a[6];
Scheme_Object *a[7];
int c = SCHEME_VEC_SIZE(vec), i;
for (i = 0; i < c; i++) {