Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-09 22:17:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing vector sizing bug in FFI for functions of 6 or more arguments.

Browse source
This commit is contained in:
Alex Shinn 2011-12-02 22:54:20 +09:00
parent 75f67b5474
commit 3895be298a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tools/chibi-ffi
View file

@ -1089,7 +1089,7 @@
(if (= i 4) (if (= i 4)
(cat " sexp_opcode_argn_type(op) = " (cat " sexp_opcode_argn_type(op) = "
"sexp_make_vector(ctx, sexp_make_fixnum(" "sexp_make_vector(ctx, sexp_make_fixnum("
(- i 3) ")," (- (length (func-c-args func)) 3) "),"
" sexp_make_fixnum(SEXP_OBJECT));\n")) " sexp_make_fixnum(SEXP_OBJECT));\n"))
(cat " sexp_vector_set(sexp_opcode_argn_type(op), " (cat " sexp_vector_set(sexp_opcode_argn_type(op), "
"sexp_make_fixnum(" (- i 4) "), " "sexp_make_fixnum(" (- i 4) "), "