#!/usr/sbin/dtrace -s

#pragma D option quiet

ts_tick:entry
/ execname != "dtrace" && (tsproc_t *)args[0]->t_cldata->ts_timeleft <= 1 /
{
	self->procp  = (struct proc *)args[0]->t_procp;
	self->pid    = self->procp->p_pidp->pid_id;
	self->lwpid  = args[0]->t_tid;

	@[self->pid, self->lwpid] = count();
}

END
{
	printf("TS time quantum used...\n");
	printf("%-8s %-8s %-8s\n","PID","LWPID","CNT");
	printa("%-8d %-8d %-8@d\n",@);
}