tsastat.bt

// On-CPU time tracking tracking
tracepoint:sched:sched_switch
{
  $prev_pid = args->prev_pid;
  $next_pid = args->next_pid;
  $prev_state = args->prev_state;

  // Record on-CPU time for previous task
  if (has_key(@start, $prev_pid))
  {
    @cpu[comm, $prev_pid] = sum(nsecs - @start[$prev_pid]);
  }

  // Start timing for next thread
  @start[$next_pid] = nsecs;
}