From c6c593f277a2f9f5511918f0b97c9c193a62cae8 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 16 Jul 2010 08:22:10 +0900 Subject: [PATCH] adding 5 and 6 arg variations to generic sexp_fcall --- opt/fcall.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/opt/fcall.c b/opt/fcall.c index 17e7b82f..c38cc3fe 100644 --- a/opt/fcall.c +++ b/opt/fcall.c @@ -16,6 +16,8 @@ sexp sexp_fcall (sexp ctx, sexp self, sexp_sint_t n, sexp f) { sexp *stack = sexp_stack_data(sexp_context_stack(ctx)); sexp_sint_t top = sexp_context_top(ctx); switch (n) { + case 5: return ((sexp_proc6)sexp_opcode_func(f))(ctx, f, 5, _A(1), _A(2), _A(3), _A(4), _A(5)); + case 6: return ((sexp_proc7)sexp_opcode_func(f))(ctx, f, 6, _A(1), _A(2), _A(3), _A(4), _A(5), _A(6)); case 7: return ((sexp_proc8)sexp_opcode_func(f))(ctx, f, 7, _A(1), _A(2), _A(3), _A(4), _A(5), _A(6), _A(7)); case 8: return ((sexp_proc9)sexp_opcode_func(f))(ctx, f, 8, _A(1), _A(2), _A(3), _A(4), _A(5), _A(6), _A(7), _A(8)); case 9: return ((sexp_proc10)sexp_opcode_func(f))(ctx, f, 9, _A(1), _A(2), _A(3), _A(4), _A(5), _A(6), _A(7), _A(8), _A(9));