#!/usr/sbin/dtrace -s

/*
Author:         Roger Jordan (http://rjblog.es)
Usage:          ./method-time.d <pid>
Data show:      Time spendend executing each method. (in nanosec.)

*/

hotspot$1:::method-entry
{
	self->ts[stringof(copyinstr(arg3,arg4))] = timestamp;
}

hotspot$1:::method-return
{
	@method[stringof(copyinstr(arg1,arg2)),stringof(copyinstr(arg3,arg4))] = quantize( timestamp - self->ts[stringof(copyinstr(arg3,arg4))] );
	self->ts[stringof(copyinstr(arg3,arg4))] = 0;
}