`OP_EPOP` operand may be bigger than `mrb->c->eidx`; fix #3810

1 files changed, 3 insertions, 1 deletions

diff --git a/src/vm.c b/src/vm.c
index 941105212..3c74f265c 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -1327,7 +1327,9 @@ RETRY_TRY_BLOCK:
         NEXT;
       }
 
-      for (n=0; n<a && mrb->c->eidx > epos; n++) {
+      if (a > mrb->c->eidx - epos)
+        a = mrb->c->eidx - epos;
+      for (n=0; n<a; n++) {
         proc = mrb->c->ensure[epos+n];
         irep = proc->body.irep;
         ci = cipush(mrb);