0
@@ -35,7 +35,6 @@ runtime/platform.conf
0
 *.swp
0
 *.dylib
0
 *.so
0
-*.d
0
 *~
0
 \#*
0
 .\#*

0
@@ -10,6 +10,12 @@ else
0
   BINSUFFIX?=
0
 endif
0
 
0
+ifdef DTRACE
0
+  DTRACE_H=dtrace.h
0
+else
0
+  DTRACE_H=
0
+endif
0
+
0
 CFLAGS += -I.. $(CPPFLAGS) -Iexternal_libs/libbstring -Iexternal_libs/libcchash -Iexternal_libs/libmpa -Iexternal_libs/libmquark -Iexternal_libs/libev
0
 
0
 ALIBS=external_libs/libtommath/libtommath.a external_libs/onig/.libs/libonig.a external_libs/libzip/lib/.libs/libzip.a external_libs/libltdl/.libs/libltdl.a external_libs/libev/.libs/libev.a external_libs/libbstring/libbstring.a external_libs/libcchash/libcchash.a external_libs/libmpa/libptr_array.a external_libs/libmquark/libmquark.a
0
@@ -109,7 +115,7 @@ external_libs/libmpa/libptr_array.a:
0
 external_libs/libmquark/libmquark.a:
0
   cd external_libs/libmquark; $(MAKE)
0
 
0
-$(RBLIB): config.h $(ALIBS) external_libs/lightning/config.h 
0
+$(RBLIB): config.h $(DTRACE_H) $(ALIBS) external_libs/lightning/config.h 
0
   cd lib; $(MAKE) library; 
0
 
0
 .PHONY: $(RBLIB)
0
@@ -117,6 +123,9 @@ $(RBLIB): config.h $(ALIBS) external_libs/lightning/config.h
0
 # Don't try to build main until librubinius exists
0
 main.c: $(RBLIB)
0
 
0
+dtrace.h: rubinius.d
0
+  /usr/sbin/dtrace -h -s rubinius.d -o dtrace.h
0
+
0
 rubinius.bin: $(RBLIB) main.o
0
   $(COMP) -o rubinius.bin main.o $(RBLIB) $(BIN_RPATH)
0
 

0
@@ -162,6 +162,28 @@ void cpu_add_roots(STATE, cpu c, ptr_array roots) {
0
   #undef ar
0
 }
0
 
0
+int cpu_ip2line(STATE, OBJECT meth, int ip) {
0
+  OBJECT lines, tup;
0
+  int l, total, start, nd, op;
0
+  
0
+  if(meth->obj_type != CMethodType) return 0;
0
+
0
+  lines = cmethod_get_lines(meth);
0
+  total = NUM_FIELDS(lines);
0
+  for(l = 0; l < total; l++) {
0
+    tup = tuple_at(state, lines, l);
0
+    start = FIXNUM_TO_INT(tuple_at(state, tup, 0));
0
+    nd = FIXNUM_TO_INT(tuple_at(state, tup, 1));
0
+    op = FIXNUM_TO_INT(tuple_at(state, tup, 2));
0
+
0
+    if(ip >= start && ip <= nd) {
0
+      return op;
0
+    }
0
+  }
0
+
0
+  return 0;
0
+}
0
+
0
 void cpu_update_roots(STATE, cpu c, ptr_array roots, int start) {
0
   xpointer tmp;
0
   int i, len;

0
@@ -201,6 +201,8 @@ OBJECT cpu_marshal_to_file(STATE, OBJECT obj, char *path, int version);
0
 void cpu_bootstrap(STATE);
0
 void cpu_add_roots(STATE, cpu c, ptr_array roots);
0
 void cpu_update_roots(STATE, cpu c, ptr_array roots, int start);
0
+int cpu_ip2line(STATE, OBJECT meth, int ip);
0
+
0
 
0
 /* Method cache functions */
0
 void cpu_clear_cache(STATE, cpu c);

0
@@ -16,6 +16,13 @@
0
 #include "shotgun/lib/fixnum.h"
0
 #include "shotgun/lib/primitive_util.h"
0
 
0
+#if CONFIG_ENABLE_DTRACE
0
+#include "dtrace.h"
0
+#define ENABLE_DTRACE 1
0
+#else
0
+#define ENABLE_DTRACE 0
0
+#endif
0
+
0
 #define RISA(obj,cls) (REFERENCE_P(obj) && ISA(obj,BASIC_CLASS(cls)))
0
 
0
 #define next_int _int = *ip_ptr++;
0
@@ -553,9 +560,39 @@ static inline int cpu_try_primitive(STATE, cpu c, OBJECT mo, OBJECT recv, int ar
0
   req = FIXNUM_TO_INT(cmethod_get_required(mo));
0
   
0
   if(args == req || req < 0) {
0
+#if ENABLE_DTRACE
0
+  if (RUBINIUS_FUNCTION_ENTRY_ENABLED()) {
0
+    const char * module_name = mod == Qnil ? "<unknown>" : rbs_symbol_to_cstring(state, module_get_name(mod));
0
+    const char * method_name = rbs_symbol_to_cstring(state, sym);
0
+
0
+    cpu_flush_ip(c);
0
+
0
+    struct fast_context *fc = FASTCTX(c->active_context);
0
+    int line_number = cpu_ip2line(state, fc->method, fc->ip);
0
+    const char * filename = rbs_symbol_to_cstring(state, cmethod_get_file(fc->method));
0
+
0
+    RUBINIUS_FUNCTION_ENTRY(module_name, method_name, filename, line_number);
0
+  }
0
+#endif
0
+    
0
     stack_push(recv);
0
     if(cpu_perform_primitive(state, c, prim, mo, args, sym, mod, block)) {
0
       /* Worked! */
0
+      
0
+#if ENABLE_DTRACE
0
+  if (RUBINIUS_FUNCTION_RETURN_ENABLED()) {
0
+    const char * module_name = mod == Qnil ? "<unknown>" : rbs_symbol_to_cstring(state, module_get_name(mod));
0
+    const char * method_name = rbs_symbol_to_cstring(state, sym);
0
+
0
+    cpu_flush_ip(c);
0
+
0
+    struct fast_context *fc = FASTCTX(c->active_context);
0
+    int line_number = cpu_ip2line(state, fc->method, fc->ip);
0
+    const char * filename = rbs_symbol_to_cstring(state, cmethod_get_file(fc->method));
0
+
0
+    RUBINIUS_FUNCTION_RETURN(module_name, method_name, filename, line_number);
0
+  }
0
+#endif
0
       return TRUE;
0
     }
0
     /* Didn't work, need to remove the recv we put on before. */
0
@@ -647,6 +684,23 @@ void nmc_activate(STATE, cpu c, OBJECT nmc, OBJECT val, int reraise);
0
 inline int cpu_simple_return(STATE, cpu c, OBJECT val) {
0
   OBJECT destination, home;
0
 
0
+#if ENABLE_DTRACE
0
+  if (RUBINIUS_FUNCTION_RETURN_ENABLED()) {
0
+    OBJECT module = cpu_current_module(state, c);
0
+    
0
+    const char * module_name = (module == Qnil) ? "<unknown>" : rbs_symbol_to_cstring(state, module_get_name(module));
0
+    const char * method_name = rbs_symbol_to_cstring(state, cmethod_get_name(cpu_current_method(state, c)));
0
+    
0
+    cpu_flush_ip(c);
0
+    
0
+    struct fast_context *fc = FASTCTX(c->active_context);
0
+    int line_number = cpu_ip2line(state, fc->method, fc->ip);
0
+    const char * filename = rbs_symbol_to_cstring(state, cmethod_get_file(fc->method));
0
+
0
+    RUBINIUS_FUNCTION_RETURN(module_name, method_name, filename, line_number);
0
+  }
0
+#endif
0
+
0
   destination = cpu_current_sender(c);
0
   
0
   // printf("Rtrnng frm %p (%d)\n", c->active_context, FASTCTX(c->active_context)->size);
0
@@ -710,6 +764,24 @@ inline int cpu_return_to_sender(STATE, cpu c, OBJECT val, int consider_block, in
0
   
0
   is_block = blokctx_s_block_context_p(state, c->active_context);
0
   destination = cpu_current_sender(c);
0
+  
0
+#if ENABLE_DTRACE
0
+  if (RUBINIUS_FUNCTION_RETURN_ENABLED() && !is_block) {
0
+    OBJECT module = cpu_current_module(state, c);
0
+
0
+    const char * module_name = (module == Qnil) ? "<unknown>" : rbs_symbol_to_cstring(state, module_get_name(module));
0
+    const char * method_name = rbs_symbol_to_cstring(state, cmethod_get_name(cpu_current_method(state, c)));
0
+
0
+    cpu_flush_ip(c);
0
+    
0
+    struct fast_context *fc = FASTCTX(c->active_context);
0
+    int line_number = cpu_ip2line(state, fc->method, fc->ip);
0
+    const char * filename = rbs_symbol_to_cstring(state, cmethod_get_file(fc->method));
0
+
0
+    RUBINIUS_FUNCTION_RETURN(module_name, method_name, filename, line_number);
0
+  }
0
+#endif
0
+  
0
     
0
   if(destination == Qnil) {
0
     object_memory_retire_context(state->om, c->active_context);
0
@@ -856,8 +928,9 @@ static inline void cpu_return_to_block_creator(STATE, cpu c) {
0
 inline void cpu_goto_method(STATE, cpu c, OBJECT recv, OBJECT meth,
0
                                      int count, OBJECT name, OBJECT block) {
0
   OBJECT ctx;
0
-  
0
+
0
   if(cpu_try_primitive(state, c, meth, recv, count, name, Qnil, block)) { return; }
0
+
0
   ctx = cpu_create_context(state, c, recv, meth, name, 
0
         _real_class(state, recv), (unsigned long int)count, block);
0
   cpu_activate_context(state, c, ctx, ctx, 0);
0
@@ -933,6 +1006,22 @@ static inline void _cpu_build_and_activate(STATE, cpu c, OBJECT mo,
0
       missing ? "METHOD MISSING" : ""
0
       );
0
   }
0
+  
0
+#if ENABLE_DTRACE
0
+  if (RUBINIUS_FUNCTION_ENTRY_ENABLED()) {
0
+    const char * module_name = rbs_symbol_to_cstring(state, module_get_name(mod));
0
+    const char * method_name = rbs_symbol_to_cstring(state, sym);
0
+
0
+    cpu_flush_ip(c);
0
+
0
+    struct fast_context *fc = FASTCTX(c->active_context);
0
+    int line_number = cpu_ip2line(state, fc->method, fc->ip);
0
+    const char * filename = rbs_symbol_to_cstring(state, cmethod_get_file(fc->method));
0
+
0
+    RUBINIUS_FUNCTION_ENTRY(module_name, method_name, filename, line_number);
0
+  }
0
+#endif
0
+
0
   ctx = cpu_create_context(state, c, recv, mo, sym, mod, (unsigned long int)args, block);
0
   /* If it was missing, setup some extra data in the MethodContext for
0
      the method_missing method to check out, to see why it was missing. */
0
@@ -1281,6 +1370,12 @@ next_op:
0
 #endif
0
 check_interrupts:
0
     if(state->om->collect_now) {
0
+
0
+#if ENABLE_DTRACE
0
+      if (RUBINIUS_GC_BEGIN_ENABLED()) {
0
+        RUBINIUS_GC_BEGIN();
0
+      }
0
+#endif      
0
       int cm = state->om->collect_now;
0
       
0
       /* Collect the first generation. */
0
@@ -1311,6 +1406,12 @@ check_interrupts:
0
       }
0
       
0
       state->om->collect_now = 0;
0
+
0
+#if ENABLE_DTRACE
0
+      if (RUBINIUS_GC_END_ENABLED()) {
0
+        RUBINIUS_GC_END();
0
+      }
0
+#endif      
0
     }
0
     
0
     if(state->check_events) {

0
@@ -33,26 +33,6 @@ static int _recursive_reporting = 0;
0
 
0
 #define SYM2STR(st, sym) string_byte_address(st, rbs_symbol_to_string(st, sym))
0
 
0
-static int _ip2line(STATE, OBJECT meth, int ip) {
0
-  OBJECT lines, tup;
0
-  int l, total, start, nd, op;
0
-
0
-  lines = cmethod_get_lines(meth);
0
-  total = NUM_FIELDS(lines);
0
-  for(l = 0; l < total; l++) {
0
-    tup = tuple_at(state, lines, l);
0
-    start = FIXNUM_TO_INT(tuple_at(state, tup, 0));
0
-    nd = FIXNUM_TO_INT(tuple_at(state, tup, 1));
0
-    op = FIXNUM_TO_INT(tuple_at(state, tup, 2));
0
-
0
-    if(ip >= start && ip <= nd) {
0
-      return op;
0
-    }
0
-  }
0
-
0
-  return 0;
0
-}
0
-
0
 void machine_print_callstack_limited(machine m, int maxlev) {
0
   OBJECT context, tmp;
0
   const char *modname, *methname, *filename;
0
@@ -102,7 +82,7 @@ void machine_print_callstack_limited(machine m, int maxlev) {
0
       (void*)context, modname, methname,
0
       fc->ip,
0
       filename,
0
-      _ip2line(m->s, fc->method, fc->ip)
0
+      cpu_ip2line(m->s, fc->method, fc->ip)
0
     );
0
     context = fc->sender;
0
   }

0
@@ -73,8 +73,14 @@ echo "#define CONFIG_EXTPATH \"$EXTPATH\""
0
 echo "#define CONFIG_BUILDREV \"$BUILDREV\""
0
 echo "#define CONFIG_ENGINE \"$ENGINE\""
0
 echo "#define CONFIG_CC \"$CC\""
0
+
0
+if test "$DTRACE" = "1"; then
0
+  echo "#define CONFIG_ENABLE_DTRACE 1"
0
+fi
0
+
0
 ) > config.h
0
 
0
+
0
 if config/run is64bit; then
0
   echo "#define CONFIG_WORDSIZE 64" >> config.h
0
   echo "#define CONFIG_ENABLE_DT 0" >> config.h

0
@@ -6,3 +6,5 @@ RUBY_PATCHLEVEL=111
0
 
0
 LIBVER=0.8
0
 VERSION=${LIBVER}.0
0
+
0
+DTRACE=0