`super` may be called from a block; fix #3723

7d998302 · Yukihiro "Matz" Matsumoto · 466a18b0 · 7d998302
Commit 7d998302 authored Jul 01, 2017 by Yukihiro "Matz" Matsumoto
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

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

No files found.
--- a/src/vm.c
+++ b/src/vm.c
@@ -1684,6 +1684,8 @@ RETRY_TRY_BLOCK:
      else {
        struct REnv *e = uvenv(mrb, lv-1);
        if (!e) goto L_NOSUPER;
+        if (MRB_ENV_STACK_LEN(e) <= m1+r+m2+1)
+          goto L_NOSUPER;
        stack = e->stack + 1;
      }
      if (r == 0) {