mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
4c740bae97
* array.c (empty_ary_alloc, ary_new): added array create DTrace probe. * compile.c (rb_insns_name): allowing DTrace probes to access instruction sequence name. * Makefile.in: translate probes.d file to appropriate header file. * common.mk: declare dependencies on the DTrace header. * configure.in: add a test for existence of DTrace. * eval.c (setup_exception): add a probe for when an exception is raised. * gc.c: Add DTrace probes for mark begin and end, and sweep begin and end. * hash.c (empty_hash_alloc): Add a probe for hash allocation. * insns.def: Add probes for function entry and return. * internal.h: function declaration for compile.c change. * load.c (rb_f_load): add probes for `load` entry and exit, require entry and exit, and wrapping search_required for load path search. * object.c (rb_obj_alloc): added a probe for general object creation. * parse.y (yycompile0): added a probe around parse and compile phase. * string.c (empty_str_alloc, str_new): DTrace probes for string allocation. * test/dtrace/*: tests for DTrace probes. * vm.c (vm_invoke_proc): add probes for function return on exception raise, hash create, and instruction sequence execution. * vm_core.h: add probe declarations for function entry and exit. * vm_dump.c: add probes header file. * vm_eval.c (vm_call0_cfunc, vm_call0_cfunc_with_frame): add probe on function entry and return. * vm_exec.c: expose instruction number to instruction name function. * vm_insnshelper.c: add function entry and exit probes for cfunc methods. * vm_insnhelper.h: vm usage information is always collected, so uncomment the functions. 12 19:14:50 2012 Akinori MUSHA <knu@iDaemons.org> * configure.in (isinf, isnan): isinf() and isnan() are macros on DragonFly which cannot be found by AC_REPLACE_FUNCS(). This workaround enforces the fact that they exist on DragonFly. 12 15:59:38 2012 Shugo Maeda <shugo@ruby-lang.org> * vm_core.h (rb_call_info_t::refinements), compile.c (new_callinfo), vm_insnhelper.c (vm_search_method): revert r37616 because it's too slow. [ruby-dev:46477] * test/ruby/test_refinement.rb (test_inline_method_cache): skip the test until the bug is fixed efficiently. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@37631 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
145 lines
2.8 KiB
C
145 lines
2.8 KiB
C
/* -*-c-*- */
|
|
/**********************************************************************
|
|
|
|
vm_exec.c -
|
|
|
|
$Author$
|
|
|
|
Copyright (C) 2004-2007 Koichi Sasada
|
|
|
|
**********************************************************************/
|
|
|
|
#include <math.h>
|
|
|
|
void vm_analysis_insn(int insn);
|
|
|
|
#if VMDEBUG > 0
|
|
#define DECL_SC_REG(type, r, reg) register type reg_##r
|
|
|
|
#elif defined(__GNUC__) && defined(_x86_64__)
|
|
#define DECL_SC_REG(type, r, reg) register type reg_##r __asm__("r" reg)
|
|
|
|
#elif defined(__GNUC__) && defined(__i386__)
|
|
#define DECL_SC_REG(type, r, reg) register type reg_##r __asm__("e" reg)
|
|
|
|
#else
|
|
#define DECL_SC_REG(type, r, reg) register type reg_##r
|
|
#endif
|
|
/* #define DECL_SC_REG(r, reg) VALUE reg_##r */
|
|
|
|
#if !OPT_CALL_THREADED_CODE
|
|
static VALUE
|
|
vm_exec_core(rb_thread_t *th, VALUE initial)
|
|
{
|
|
|
|
#if OPT_STACK_CACHING
|
|
#if 0
|
|
#elif __GNUC__ && __x86_64__
|
|
DECL_SC_REG(VALUE, a, "12");
|
|
DECL_SC_REG(VALUE, b, "13");
|
|
#else
|
|
register VALUE reg_a;
|
|
register VALUE reg_b;
|
|
#endif
|
|
#endif
|
|
|
|
#if defined(__GNUC__) && defined(__i386__)
|
|
DECL_SC_REG(VALUE *, pc, "di");
|
|
DECL_SC_REG(rb_control_frame_t *, cfp, "si");
|
|
#define USE_MACHINE_REGS 1
|
|
|
|
#elif defined(__GNUC__) && defined(__x86_64__)
|
|
DECL_SC_REG(VALUE *, pc, "14");
|
|
DECL_SC_REG(rb_control_frame_t *, cfp, "15");
|
|
#define USE_MACHINE_REGS 1
|
|
|
|
#else
|
|
register rb_control_frame_t *reg_cfp;
|
|
VALUE *reg_pc;
|
|
#endif
|
|
|
|
#if USE_MACHINE_REGS
|
|
|
|
#undef RESTORE_REGS
|
|
#define RESTORE_REGS() \
|
|
{ \
|
|
REG_CFP = th->cfp; \
|
|
reg_pc = reg_cfp->pc; \
|
|
}
|
|
|
|
#undef REG_PC
|
|
#define REG_PC reg_pc
|
|
#undef GET_PC
|
|
#define GET_PC() (reg_pc)
|
|
#undef SET_PC
|
|
#define SET_PC(x) (reg_cfp->pc = REG_PC = (x))
|
|
#endif
|
|
|
|
#if OPT_TOKEN_THREADED_CODE || OPT_DIRECT_THREADED_CODE
|
|
#include "vmtc.inc"
|
|
if (UNLIKELY(th == 0)) {
|
|
return (VALUE)insns_address_table;
|
|
}
|
|
#endif
|
|
reg_cfp = th->cfp;
|
|
reg_pc = reg_cfp->pc;
|
|
|
|
#if OPT_STACK_CACHING
|
|
reg_a = initial;
|
|
reg_b = 0;
|
|
#endif
|
|
|
|
first:
|
|
INSN_DISPATCH();
|
|
/*****************/
|
|
#include "vm.inc"
|
|
/*****************/
|
|
END_INSNS_DISPATCH();
|
|
|
|
/* unreachable */
|
|
rb_bug("vm_eval: unreachable");
|
|
goto first;
|
|
}
|
|
|
|
const void **
|
|
rb_vm_get_insns_address_table(void)
|
|
{
|
|
return (const void **)vm_exec_core(0, 0);
|
|
}
|
|
|
|
#else /* OPT_CALL_THREADED_CODE */
|
|
|
|
#include "vm.inc"
|
|
#include "vmtc.inc"
|
|
|
|
const void **
|
|
rb_vm_get_insns_address_table(void)
|
|
{
|
|
return (const void **)insns_address_table;
|
|
}
|
|
|
|
static VALUE
|
|
vm_exec_core(rb_thread_t *th, VALUE initial)
|
|
{
|
|
register rb_control_frame_t *reg_cfp = th->cfp;
|
|
|
|
while (1) {
|
|
reg_cfp = ((rb_insn_func_t) (*GET_PC()))(th, reg_cfp);
|
|
|
|
if (UNLIKELY(reg_cfp == 0)) {
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (th->retval != Qundef) {
|
|
VALUE ret = th->retval;
|
|
th->retval = Qundef;
|
|
return ret;
|
|
}
|
|
else {
|
|
VALUE err = th->errinfo;
|
|
th->errinfo = Qnil;
|
|
return err;
|
|
}
|
|
}
|
|
#endif
|