Home | History | Annotate | Line # | Download | only in Ruby
      1  1.1  christos #!/usr/sbin/dtrace -Zs
      2  1.1  christos /*
      3  1.1  christos  * rb_objcpu.d - measure Ruby object creation on-CPU time using DTrace.
      4  1.1  christos  *               Written for the Ruby DTrace provider.
      5  1.1  christos  *
      6  1.1  christos  * $Id: rb_objcpu.d,v 1.1.1.1 2015/09/30 22:01:09 christos Exp $
      7  1.1  christos  *
      8  1.1  christos  * This traces Ruby activity from all programs running on the system with
      9  1.1  christos  * Ruby provider support.
     10  1.1  christos  *
     11  1.1  christos  * USAGE: rb_objcpu.d	 	# hit Ctrl-C to end
     12  1.1  christos  *
     13  1.1  christos  * Class names are printed if available.
     14  1.1  christos  *
     15  1.1  christos  * COPYRIGHT: Copyright (c) 2007 Brendan Gregg.
     16  1.1  christos  *
     17  1.1  christos  * CDDL HEADER START
     18  1.1  christos  *
     19  1.1  christos  *  The contents of this file are subject to the terms of the
     20  1.1  christos  *  Common Development and Distribution License, Version 1.0 only
     21  1.1  christos  *  (the "License").  You may not use this file except in compliance
     22  1.1  christos  *  with the License.
     23  1.1  christos  *
     24  1.1  christos  *  You can obtain a copy of the license at Docs/cddl1.txt
     25  1.1  christos  *  or http://www.opensolaris.org/os/licensing.
     26  1.1  christos  *  See the License for the specific language governing permissions
     27  1.1  christos  *  and limitations under the License.
     28  1.1  christos  *
     29  1.1  christos  * CDDL HEADER END
     30  1.1  christos  *
     31  1.1  christos  * 09-Sep-2007	Brendan Gregg	Created this.
     32  1.1  christos  */
     33  1.1  christos 
     34  1.1  christos #pragma D option quiet
     35  1.1  christos 
     36  1.1  christos dtrace:::BEGIN
     37  1.1  christos {
     38  1.1  christos 	printf("Tracing... Hit Ctrl-C to end.\n");
     39  1.1  christos }
     40  1.1  christos 
     41  1.1  christos ruby*:::object-create-start
     42  1.1  christos {
     43  1.1  christos 	self->vstart = vtimestamp;
     44  1.1  christos }
     45  1.1  christos 
     46  1.1  christos ruby*:::object-create-done
     47  1.1  christos /self->vstart/
     48  1.1  christos {
     49  1.1  christos 	this->oncpu = vtimestamp - self->vstart;
     50  1.1  christos 	@total = sum(this->oncpu);
     51  1.1  christos 	@dist[copyinstr(arg0)] = quantize(this->oncpu / 1000);
     52  1.1  christos 	self->vstart = 0;
     53  1.1  christos }
     54  1.1  christos 
     55  1.1  christos dtrace:::END
     56  1.1  christos {
     57  1.1  christos 	normalize(@total, 1000000);
     58  1.1  christos 	printa("Total object creation on-CPU time (ms): %@d\n\n", @total);
     59  1.1  christos 	printf("Object creation on-CPU time distributions (us),\n");
     60  1.1  christos 	printa(@dist);
     61  1.1  christos }
     62