From 0dd9a0fd6a24399852e7dda3f87700bb6f283574 Mon Sep 17 00:00:00 2001
From: Masamitsu MURASE <masamitsu.murase@gmail.com>
Date: Sat, 19 Jan 2013 23:15:20 +0900
Subject: Modify handling of OP_ENTER.

If `argc` is `-1`, `block` parameter is sometimes overwritten.
---
 src/vm.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/vm.c b/src/vm.c
index 8ae28ef5e..696b566c8 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -1121,6 +1121,7 @@ mrb_run(mrb_state *mrb, struct RProc *proc, mrb_value self)
       }
       else {
         if (argv0 != argv) {
+          regs[len+1] = *blk; /* move block */
           memmove(&regs[1], argv, sizeof(mrb_value)*(m1+o)); /* m1 + o */
         }
         if (r) {                  /* r */
@@ -1129,7 +1130,9 @@ mrb_run(mrb_state *mrb, struct RProc *proc, mrb_value self)
         if (m2) {
           memmove(&regs[m1+o+r+1], &argv[argc-m2], sizeof(mrb_value)*m2);
         }
-        regs[len+1] = *blk; /* move block */
+        if (argv0 == argv) {
+          regs[len+1] = *blk; /* move block */
+        }
         pc += o + 1;
       }
       JUMP;
-- 
cgit v1.2.3


From 8f8d9fd41a57c8356b92d5e1d5b91ce0f6264b5c Mon Sep 17 00:00:00 2001
From: Masamitsu MURASE <masamitsu.murase@gmail.com>
Date: Sun, 20 Jan 2013 01:49:52 +0900
Subject: Add test for issue #750.

---
 test/t/bs_block.rb | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/test/t/bs_block.rb b/test/t/bs_block.rb
index 4bfdc304a..10313908b 100644
--- a/test/t/bs_block.rb
+++ b/test/t/bs_block.rb
@@ -332,6 +332,14 @@ assert('BS Block [ruby-dev:31160]') do
   m {|(v,(*))|} == nil
 end
 
+assert('BS Block [issue #750]') do
+  def m(a, *b)
+    yield
+  end
+  args = [1, 2, 3]
+  m(*args){ 1 } == 1
+end
+
 assert('BS Block 31') do
   def m()
     yield
-- 
cgit v1.2.3