should raise error on return in block in top-level; close #664

40ea525d · Yukihiro Matz Matsumoto · e48ed9c9 · 40ea525d
Commit 40ea525d authored Dec 21, 2012 by Yukihiro Matz Matsumoto
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

src/vm.c src/vm.c +4 -0

No files found.
--- a/src/vm.c
+++ b/src/vm.c
@@ -1199,6 +1199,10 @@ mrb_run(mrb_state *mrb, struct RProc *proc, mrb_value self)
              goto L_RAISE;
            }
            ci = mrb->ci = mrb->cibase + e->cioff;
+	    if (ci == mrb->cibase) {
+              localjump_error(mrb, "return");
+              goto L_RAISE;
+	    }
            break;
          }
        case OP_R_NORMAL: