casa-mp-base
Public
Source
xxxxxxxxxx+ RUBY_FUNCTION_RETURN(classname, methodname, ruby_current_node->nd_file, nd_line(ruby_current_node)); Index: object.c===================================================================--- object.c (revision 34154)+++ object.c (working copy) #include <ctype.h> #include <math.h> +#ifdef ENABLE_DTRACE+#include "dtrace.h"+#include "node.h"+extern NODE* ruby_current_node;+#endif+ VALUE rb_mKernel; VALUE rb_cObject; VALUE rb_cModule; if (FL_TEST(klass, FL_SINGLETON)) { rb_raise(rb_eTypeError, "can't create instance of virtual class"); }++ #ifdef ENABLE_DTRACE+ if (RUBY_OBJECT_CREATE_START_ENABLED()) {+ char *file = ruby_current_node == NULL ? "" : ruby_current_node->nd_file;+ int line = ruby_current_node == NULL ? 0 : nd_line(ruby_current_node);+ RUBY_OBJECT_CREATE_START(rb_class2name(klass), file, line);+ }+ #endif+ obj = rb_funcall(klass, ID_ALLOCATOR, 0, 0);++ #ifdef ENABLE_DTRACE+ if (RUBY_OBJECT_CREATE_DONE_ENABLED()) {+ char *file = ruby_current_node == NULL ? "" : ruby_current_node->nd_file;+ int line = ruby_current_node == NULL ? 0 : nd_line(ruby_current_node);+ RUBY_OBJECT_CREATE_DONE(rb_class2name(klass), file, line);+ }+ #endif+ if (rb_obj_class(obj) != rb_class_real(klass)) { rb_raise(rb_eTypeError, "wrong instance allocation"); }Index: tracer.c===================================================================--- tracer.c (revision 0)+++ tracer.c (working copy)+#include "ruby.h"++#ifdef ENABLE_DTRACE+#include "dtrace.h"+#endif++VALUE rb_mDtrace;++static VALUE+ruby_dtrace_probe(int argc, VALUE *argv, unsigned check_only)+{+#ifdef ENABLE_DTRACE+ if (check_only) {+ return RUBY_RUBY_PROBE_ENABLED() ? Qtrue : Qfalse; + }+ else {+ VALUE name, data;+ char *probe_data;+ + rb_scan_args(argc, argv, "11", &name, &data);+ probe_data = NIL_P(data) ? "" : StringValuePtr(data);++ RUBY_RUBY_PROBE(StringValuePtr(name), probe_data);+ }+#endif+ return Qnil;+}++static VALUE+ruby_dtrace_fire(int argc, VALUE *argv, VALUE klass)+{+ return ruby_dtrace_probe(argc, argv, 0);+}++static VALUE+ruby_dtrace_enabled(VALUE klass)+{+ return ruby_dtrace_probe(0, NULL, 1);+}++void Init_DTracer()+{+ rb_mDtrace = rb_define_module("DTracer");