Slow forking analysis

forking_off_cpu.d

#!/usr/bin/dtrace

syscall::forksys:entry
/pid == $target/
{
  self->tracing = 1;
}

syscall::forksys:return
/pid == $target/
{
  self->tracing = 0;
}

sched:::off-cpu
/pid == $target/
{
  self->start = timestamp;
}

sched:::on-cpu
/self->tracing && self->start && ((timestamp - self->start) > 1000000)/
{
  printf("waited: %d ms\\n", (timestamp - self->start) / 1000000);
  ustack(15);
}