Need to unshare env from top callinfo; fix #3685

6a66ce10 · Yukihiro "Matz" Matsumoto · ebd6636a · 6a66ce10
Commit 6a66ce10 authored Jun 16, 2017 by Yukihiro "Matz" Matsumoto
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

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

No files found.
--- a/src/vm.c
+++ b/src/vm.c
@@ -1872,7 +1872,7 @@ RETRY_TRY_BLOCK:
            }
            ce = mrb->c->cibase + e->cioff;
-            while (--ci > ce) {
+            while (ci >= ce) {
              if (ci->env) {
                mrb_env_unshare(mrb, ci->env);
              }
@@ -1880,6 +1880,7 @@ RETRY_TRY_BLOCK:
                localjump_error(mrb, LOCALJUMP_ERROR_RETURN);
                goto L_RAISE;
              }
+              ci--;
            }
            if (ce == mrb->c->cibase) {
              localjump_error(mrb, LOCALJUMP_ERROR_RETURN);