#!/usr/sbin/dtrace -s

#pragma D option quiet

sched:::off-cpu
/curlwpsinfo->pr_state == SSLEEP/
{
        /*
         * We're sleeping.  Track our sobj type.
         */
        self->sobj = curlwpsinfo->pr_stype;
        self->bedtime = timestamp;
}

sched:::off-cpu
/curlwpsinfo->pr_state == SRUN/
{
        self->bedtime = timestamp;
}

sched:::on-cpu
/self->bedtime && !self->sobj/
{
        @["preempted"] = quantize(timestamp - self->bedtime);
        self->bedtime = 0;
}

sched:::on-cpu
/self->sobj/
{
        @[self->sobj == SOBJ_MUTEX ? "kernel-level lock" :
            self->sobj == SOBJ_RWLOCK ? "rwlock" :
            self->sobj == SOBJ_CV ? "condition variable" :
            self->sobj == SOBJ_SEMA ? "semaphore" :
            self->sobj == SOBJ_USER ? "user-level lock" :
            self->sobj == SOBJ_USER_PI ? "user-level prio-inheriting lock" :
            self->sobj == SOBJ_SHUTTLE ? "shuttle" : "unknown"] =
            quantize(timestamp - self->bedtime);

        self->sobj = 0;
        self->bedtime = 0;
}