better error position display

1 files changed, 8 insertions, 1 deletions

diff --git a/src/vm.c b/src/vm.c
index 534dfaa24..9b673cd0f 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -226,6 +226,8 @@ cipush(mrb_state *mrb)
   ci->eidx = eidx;
   ci->ridx = ridx;
   ci->env = 0;
+  ci->pc = 0;
+
   return ci;
 }
 
@@ -509,8 +511,9 @@ argnum_error(mrb_state *mrb, int num)
   mrb->exc = mrb_obj_ptr(exc);
 }
 
+#define ERR_PC_HOOK(mrb, pc) mrb->c->ci->err = pc;
 #ifdef ENABLE_DEBUG
-#define CODE_FETCH_HOOK(mrb, irep, pc, regs) if ((mrb)->code_fetch_hook) (mrb)->code_fetch_hook((mrb), (irep), (pc), (regs)); 
+#define CODE_FETCH_HOOK(mrb, irep, pc, regs) if ((mrb)->code_fetch_hook) (mrb)->code_fetch_hook((mrb), (irep), (pc), (regs));
 #else
 #define CODE_FETCH_HOOK(mrb, irep, pc, regs)
 #endif
@@ -593,6 +596,7 @@ mrb_run(mrb_state *mrb, struct RProc *proc, mrb_value self)
     stack_init(mrb);
   }
   stack_extend(mrb, irep->nregs, irep->nregs);
+  mrb->c->ci->err = pc;
   mrb->c->ci->proc = proc;
   mrb->c->ci->nregs = irep->nregs + 1;
   regs = mrb->c->stack;
@@ -684,6 +688,7 @@ mrb_run(mrb_state *mrb, struct RProc *proc, mrb_value self)
 
     CASE(OP_GETCV) {
       /* A B    R(A) := ivget(Sym(B)) */
+      ERR_PC_HOOK(mrb, pc);
       regs[GETARG_A(i)] = mrb_vm_cv_get(mrb, syms[GETARG_Bx(i)]);
       NEXT;
     }
@@ -696,6 +701,7 @@ mrb_run(mrb_state *mrb, struct RProc *proc, mrb_value self)
 
     CASE(OP_GETCONST) {
       /* A B    R(A) := constget(Sym(B)) */
+      ERR_PC_HOOK(mrb, pc);
       regs[GETARG_A(i)] = mrb_vm_const_get(mrb, syms[GETARG_Bx(i)]);
       NEXT;
     }
@@ -710,6 +716,7 @@ mrb_run(mrb_state *mrb, struct RProc *proc, mrb_value self)
       /* A B C  R(A) := R(C)::Sym(B) */
       int a = GETARG_A(i);
 
+      ERR_PC_HOOK(mrb, pc);
       regs[a] = mrb_const_get(mrb, regs[a], syms[GETARG_Bx(i)]);
       NEXT;
     }