From bc44d06c7374d5b925d8936227e6976622365a3e Mon Sep 17 00:00:00 2001 From: Yuichiro MASUI Date: Sun, 17 Feb 2013 00:13:42 +0900 Subject: Created hook at VM code fetch. It's for debugger --- src/vm.c | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'src/vm.c') diff --git a/src/vm.c b/src/vm.c index 7ad113d3b..5dc96fd65 100644 --- a/src/vm.c +++ b/src/vm.c @@ -480,13 +480,19 @@ argnum_error(mrb_state *mrb, int num) mrb->exc = (struct RObject*)mrb_object(exc); } +#ifdef ENABLE_DEBUG +#define HOOK_MRB_VM_FETCH_CODE(mrb, irep, pc, regs) ((mrb)->hook_vm_fetch_code ? (mrb)->hook_vm_fetch_code((mrb), (irep), (pc), (regs)) : NULL) +#else +#define HOOK_MRB_VM_FETCH_CODE(mrb, irep, pc, regs) +#endif + #ifdef __GNUC__ #define DIRECT_THREADED #endif #ifndef DIRECT_THREADED -#define INIT_DISPATCH for (;;) { i = *pc; switch (GET_OPCODE(i)) { +#define INIT_DISPATCH for (;;) { i = *pc; HOOK_MRB_VM_FETCH_CODE(mrb, irep, pc, regs); switch (GET_OPCODE(i)) { #define CASE(op) case op: #define NEXT pc++; break #define JUMP break @@ -496,8 +502,8 @@ argnum_error(mrb_state *mrb, int num) #define INIT_DISPATCH JUMP; return mrb_nil_value(); #define CASE(op) L_ ## op: -#define NEXT i=*++pc; goto *optable[GET_OPCODE(i)] -#define JUMP i=*pc; goto *optable[GET_OPCODE(i)] +#define NEXT i=*++pc; HOOK_MRB_VM_FETCH_CODE(mrb, irep, pc, regs); goto *optable[GET_OPCODE(i)] +#define JUMP i=*pc; HOOK_MRB_VM_FETCH_CODE(mrb, irep, pc, regs); goto *optable[GET_OPCODE(i)] #define END_DISPATCH -- cgit v1.2.3