adjust callinfo when OP_STOP

2013-10-30 10:05:47 +09:00 · 2013-10-30 10:05:47 +09:00 · 76ec63d1ca
parent 9bc172bde5
commit 76ec63d1ca
1 changed files with 1 additions and 3 deletions
--- a/src/vm.c
+++ b/src/vm.c
@ -516,9 +516,7 @@ pic_apply(pic_state *pic, struct pic_proc *proc, pic_value argv)

    L_STOP:
      val = POP();
-
-      /* pop the first procedure */
-      POPN(1);
+      pic->sp = POPCI()->fp;

      pic->jmp = NULL;
      if (pic->errmsg) {