vm_exec.h (b57404b461ba8bf34e802d86b0db78388216e182)

#ifndef RUBY_VM_EXEC_H
#define RUBY_VM_EXEC_H
/**********************************************************************
 
  vm.h -
 
  $Author$
  created at: 04/01/01 16:56:59 JST
 
  Copyright (C) 2004-2007 Koichi Sasada
 
**********************************************************************/
 
typedef long OFFSET;
typedef unsigned long lindex_t;
typedef VALUE GENTRY;
typedef rb_iseq_t *ISEQ;
 
#if VMDEBUG > 0
#define debugs printf
#define DEBUG_ENTER_INSN(insn) \
    rb_vmdebug_debug_print_pre(ec, GET_CFP(), GET_PC());
 
#define SC_REGS()
 
#define DEBUG_END_INSN() \
  rb_vmdebug_debug_print_post(ec, GET_CFP() SC_REGS());
 
#else
 
#define debugs
#define DEBUG_ENTER_INSN(insn)
#define DEBUG_END_INSN()
#endif
 
#define throwdebug if(0)ruby_debug_printf
/* #define throwdebug ruby_debug_printf */
 
/************************************************/
#if defined(DISPATCH_XXX)
error !
/************************************************/
#elif OPT_CALL_THREADED_CODE
 
#define LABEL(x)  insn_func_##x
#define ELABEL(x)
#define LABEL_PTR(x) &LABEL(x)
 
#define INSN_ENTRY(insn) \
  static rb_control_frame_t * \
    FUNC_FASTCALL(LABEL(insn))(rb_execution_context_t *ec, rb_control_frame_t *reg_cfp) {
 
#define END_INSN(insn) return reg_cfp;}
 
#define NEXT_INSN() return reg_cfp;
 
#define START_OF_ORIGINAL_INSN(x) /* ignore */
#define DISPATCH_ORIGINAL_INSN(x) return LABEL(x)(ec, reg_cfp);
 
/************************************************/
#elif OPT_TOKEN_THREADED_CODE || OPT_DIRECT_THREADED_CODE
/* threaded code with gcc */
 
#define LABEL(x)  INSN_LABEL_##x
#define ELABEL(x) INSN_ELABEL_##x
#define LABEL_PTR(x) RB_GNUC_EXTENSION(&&LABEL(x))
 
#define INSN_ENTRY_SIG(insn) \
  if (0) { \
      VALUE path = rb_iseq_path(CFP_ISEQ(reg_cfp)); \
      ruby_debug_printf("exec: %s@(%"PRIdPTRDIFF", %"PRIdPTRDIFF")@%.*s:%u\n", #insn, \
                        (reg_pc - ISEQ_BODY(CFP_ISEQ(reg_cfp))->iseq_encoded), \
                        (reg_cfp->pc - ISEQ_BODY(CFP_ISEQ(reg_cfp))->iseq_encoded), \
                        RSTRING_LENINT(path), RSTRING_PTR(path), \
                        rb_iseq_line_no(CFP_ISEQ(reg_cfp), reg_pc - ISEQ_BODY(CFP_ISEQ(reg_cfp))->iseq_encoded)); \
  }
 
#define INSN_DISPATCH_SIG(insn)
 
#define INSN_ENTRY(insn) \
  LABEL(insn): \
  INSN_ENTRY_SIG(insn); \
 
/**********************************/
#if OPT_DIRECT_THREADED_CODE
 
/* for GCC 3.4.x */
#define TC_DISPATCH(insn) \
  INSN_DISPATCH_SIG(insn); \
  RB_GNUC_EXTENSION_BLOCK(goto *(void const *)GET_CURRENT_INSN()); \
  ;
 
#else
/* token threaded code */
 
/* dispatcher */
#define TC_DISPATCH(insn)  \
  INSN_DISPATCH_SIG(insn); \
  RB_GNUC_EXTENSION_BLOCK(goto *insns_address_table[GET_CURRENT_INSN()]); \
  rb_bug("tc error");
 
#endif /* OPT_DIRECT_THREADED_CODE */
 
#define END_INSN(insn)      \
  DEBUG_END_INSN();         \
  TC_DISPATCH(insn);
 
#define INSN_DISPATCH()     \
  TC_DISPATCH(__START__)    \
  {
 
#define END_INSNS_DISPATCH()    \
      rb_bug("unknown insn: %"PRIdVALUE, GET_CURRENT_INSN());   \
  }   /* end of while loop */   \
 
#define NEXT_INSN() TC_DISPATCH(__NEXT_INSN__)
 
/************************************************/
#else /* no threaded code */
/* most common method */
 
#define INSN_ENTRY(insn) \
case BIN(insn):
 
#define END_INSN(insn)                        \
  DEBUG_END_INSN();                           \
  break;
 
#define INSN_DISPATCH()         \
  while (1) {                   \
    switch (GET_CURRENT_INSN()) {
 
#define END_INSNS_DISPATCH()    \
default:                        \
  SDR(); \
      rb_bug("unknown insn: %ld", GET_CURRENT_INSN());   \
    } /* end of switch */       \
  }   /* end of while loop */   \
 
#define NEXT_INSN() goto first
 
#endif
 
#ifndef START_OF_ORIGINAL_INSN
#define START_OF_ORIGINAL_INSN(x) if (0) goto start_of_##x; start_of_##x:
#define DISPATCH_ORIGINAL_INSN(x) goto  start_of_##x;
#endif
 
#define VM_SP_CNT(ec, sp) ((sp) - (ec)->vm_stack)
 
#if OPT_CALL_THREADED_CODE
#define THROW_EXCEPTION(exc) do { \
    ec->errinfo = (VALUE)(exc); \
    return 0; \
} while (0)
#else
#define THROW_EXCEPTION(exc) return (VALUE)(exc)
#endif
 
// Run the interpreter from the JIT
#define VM_EXEC(ec, val) do { \
    if (UNDEF_P(val)) { \
        VM_ENV_FLAGS_SET(ec->cfp->ep, VM_FRAME_FLAG_FINISH); \
        val = vm_exec(ec); \
    } \
} while (0)
 
// Run the JIT from the interpreter
#define JIT_EXEC(ec, val) do { \
    /* don't run tailcalls since that breaks FINISH */ \
    if (UNDEF_P(val) && GET_CFP() != ec->cfp) { \
        rb_zjit_func_t zjit_entry; \
        if (rb_yjit_enabled_p) { \
            rb_jit_func_t func = yjit_compile(ec); \
            if (func) { \
                val = func(ec, ec->cfp); \
                if (ec->tag->state) THROW_EXCEPTION(val); \
            } \
        } \
        else if ((zjit_entry = (rb_zjit_func_t)rb_zjit_entry)) { \
            rb_jit_func_t func = zjit_compile(ec); \
            if (func) { \
                val = zjit_entry(ec, ec->cfp, func); \
            } \
        } \
    } \
} while (0)
 
#define SCREG(r) (reg_##r)
 
#define VM_DEBUG_STACKOVERFLOW 0
 
#if VM_DEBUG_STACKOVERFLOW
#define CHECK_VM_STACK_OVERFLOW_FOR_INSN CHECK_VM_STACK_OVERFLOW
#else
#define CHECK_VM_STACK_OVERFLOW_FOR_INSN(cfp, margin)
#endif
 
#define INSN_LABEL2(insn, name) INSN_LABEL_ ## insn ## _ ## name
#define INSN_LABEL(x) INSN_LABEL2(NAME_OF_CURRENT_INSN, x)
 
#endif /* RUBY_VM_EXEC_H */