From 0cb501545cba12fd05ee033eea0c84dbb27e1936 Mon Sep 17 00:00:00 2001 From: "Yukihiro \"Matz\" Matsumoto" Date: Mon, 10 Apr 2017 09:24:42 +0900 Subject: Fill omitted arguments by nil for non-strict Proc. --- src/vm.c | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src') diff --git a/src/vm.c b/src/vm.c index 49f10c5a5..1f34a8c5b 100644 --- a/src/vm.c +++ b/src/vm.c @@ -1607,9 +1607,15 @@ RETRY_TRY_BLOCK: if (argv0 != argv) { value_move(®s[1], argv, argc-mlen); /* m1 + o */ } + if (argc < m1) { + stack_clear(®s[argc+1], m1-argc); + } if (mlen) { value_move(®s[len-m2+1], &argv[argc-mlen], mlen); } + if (mlen < m2) { + stack_clear(®s[len-m2+mlen+1], m2-mlen); + } if (r) { regs[m1+o+1] = mrb_ary_new_capa(mrb, 0); } -- cgit v1.2.3