22#define DEBUG_ENTER_INSN(insn) \
23 rb_vmdebug_debug_print_pre(ec, GET_CFP(), GET_PC());
26#define SC_REGS() , reg_a, reg_b
31#define DEBUG_END_INSN() \
32 rb_vmdebug_debug_print_post(ec, GET_CFP() SC_REGS());
37#define DEBUG_ENTER_INSN(insn)
38#define DEBUG_END_INSN()
41#define throwdebug if(0)printf
45#if defined(DISPATCH_XXX)
48#elif OPT_CALL_THREADED_CODE
50#define LABEL(x) insn_func_##x
52#define LABEL_PTR(x) &LABEL(x)
54#define INSN_ENTRY(insn) \
55 static rb_control_frame_t * \
56 FUNC_FASTCALL(LABEL(insn))(rb_execution_context_t *ec, rb_control_frame_t *reg_cfp) {
58#define END_INSN(insn) return reg_cfp;}
60#define NEXT_INSN() return reg_cfp;
62#define START_OF_ORIGINAL_INSN(x)
63#define DISPATCH_ORIGINAL_INSN(x) return LABEL(x)(ec, reg_cfp);
66#elif OPT_TOKEN_THREADED_CODE || OPT_DIRECT_THREADED_CODE
69#define LABEL(x) INSN_LABEL_##x
70#define ELABEL(x) INSN_ELABEL_##x
71#define LABEL_PTR(x) RB_GNUC_EXTENSION(&&LABEL(x))
73#define INSN_ENTRY_SIG(insn) \
74 if (0) fprintf(stderr, "exec: %s@(%"PRIdPTRDIFF", %"PRIdPTRDIFF")@%s:%u\n", #insn, \
75 (reg_pc - reg_cfp->iseq->body->iseq_encoded), \
76 (reg_cfp->pc - reg_cfp->iseq->body->iseq_encoded), \
77 RSTRING_PTR(rb_iseq_path(reg_cfp->iseq)), \
78 rb_iseq_line_no(reg_cfp->iseq, reg_pc - reg_cfp->iseq->body->iseq_encoded));
80#define INSN_DISPATCH_SIG(insn)
82#define INSN_ENTRY(insn) \
84 INSN_ENTRY_SIG(insn); \
87#if OPT_DIRECT_THREADED_CODE
90#define TC_DISPATCH(insn) \
91 INSN_DISPATCH_SIG(insn); \
92 RB_GNUC_EXTENSION_BLOCK(goto *(void const *)GET_CURRENT_INSN()); \
99#if defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__)) && __GNUC__ == 3
100#define DISPATCH_ARCH_DEPEND_WAY(addr) \
101 __asm__ __volatile__("jmp *%0;\t# -- inserted by vm.h\t[length = 2]" : : "r" (addr))
104#define DISPATCH_ARCH_DEPEND_WAY(addr) \
107#define TC_DISPATCH(insn) \
108 DISPATCH_ARCH_DEPEND_WAY(insns_address_table[GET_CURRENT_INSN()]); \
109 INSN_DISPATCH_SIG(insn); \
110 RB_GNUC_EXTENSION_BLOCK(goto *insns_address_table[GET_CURRENT_INSN()]); \
115#define END_INSN(insn) \
119#define INSN_DISPATCH() \
120 TC_DISPATCH(__START__) \
123#define END_INSNS_DISPATCH() \
124 rb_bug("unknown insn: %"PRIdVALUE, GET_CURRENT_INSN()); \
127#define NEXT_INSN() TC_DISPATCH(__NEXT_INSN__)
129#define START_OF_ORIGINAL_INSN(x) start_of_##x:
130#define DISPATCH_ORIGINAL_INSN(x) goto start_of_##x;
136#define INSN_ENTRY(insn) \
139#define END_INSN(insn) \
143#define INSN_DISPATCH() \
145 switch (GET_CURRENT_INSN()) {
147#define END_INSNS_DISPATCH() \
150 rb_bug("unknown insn: %ld", GET_CURRENT_INSN()); \
154#define NEXT_INSN() goto first
156#define START_OF_ORIGINAL_INSN(x) start_of_##x:
157#define DISPATCH_ORIGINAL_INSN(x) goto start_of_##x;
161#define VM_SP_CNT(ec, sp) ((sp) - (ec)->vm_stack)
164#define THROW_EXCEPTION(exc) do { \
165 ec->errinfo = (VALUE)(exc); \
166 EC_JUMP_TAG(ec, ec->tag->state); \
169#if OPT_CALL_THREADED_CODE
170#define THROW_EXCEPTION(exc) do { \
171 ec->errinfo = (VALUE)(exc); \
175#define THROW_EXCEPTION(exc) return (VALUE)(exc)
179#define SCREG(r) (reg_##r)
181#define VM_DEBUG_STACKOVERFLOW 0
183#if VM_DEBUG_STACKOVERFLOW
184#define CHECK_VM_STACK_OVERFLOW_FOR_INSN(cfp, margin) \
185 WHEN_VM_STACK_OVERFLOWED(cfp, (cfp)->sp, margin) vm_stack_overflow_for_insn()
187#define CHECK_VM_STACK_OVERFLOW_FOR_INSN(cfp, margin)
190#define INSN_LABEL2(insn, name) INSN_LABEL_ ## insn ## _ ## name
191#define INSN_LABEL(x) INSN_LABEL2(NAME_OF_CURRENT_INSN, x)