`break` should not cross fiber-context boundary; fix #3724

1 files changed, 3 insertions, 0 deletions

diff --git a/src/vm.c b/src/vm.c
index 93f2eceba..4fca2b2ac 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -1991,6 +1991,9 @@ RETRY_TRY_BLOCK:
           if (!proc->env || !MRB_ENV_STACK_SHARED_P(proc->env)) {
             goto L_BREAK_ERROR;
           }
+          if (proc->env->cxt.c != mrb->c) {
+            goto L_BREAK_ERROR;
+          }
           while (mrb->c->eidx > mrb->c->ci->epos) {
             ecall(mrb, --mrb->c->eidx);
           }