From 8cd96ec5df3ab2e434e64860757a0dadfd14e057 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 20 Dec 2020 20:33:48 -0700 Subject: [PATCH] bc: repair for foreign callbacks Fix an array whose size needs to be connected to the number of arguments to `ffi-callback-maker`. --- racket/src/bc/foreign/foreign.c | 2 +- racket/src/bc/foreign/foreign.rktc | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/bc/foreign/foreign.c b/racket/src/bc/foreign/foreign.c index adeacefe52..71fe1f03dd 100644 --- a/racket/src/bc/foreign/foreign.c +++ b/racket/src/bc/foreign/foreign.c @@ -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++) { diff --git a/racket/src/bc/foreign/foreign.rktc b/racket/src/bc/foreign/foreign.rktc index f2fa9c1954..3717500f6f 100755 --- a/racket/src/bc/foreign/foreign.rktc +++ b/racket/src/bc/foreign/foreign.rktc @@ -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++) {