mirror of
https://github.com/JakeHillion/scx.git
synced 2024-11-26 19:30:24 +00:00
7b4689cbde
Use tabs instead of spaces for indentation in process_runqlat.bt. I also updated comments and fixed a typo. Signed-off-by: Jose Fernandez <josef@netflix.com>
78 lines
1.6 KiB
Plaintext
Executable File
78 lines
1.6 KiB
Plaintext
Executable File
#!/usr/bin/env bpftrace
|
|
|
|
/*
|
|
* Copyright (c) Jose Fernandez <josef@netflix.com>
|
|
*
|
|
* process_runqlat.bt - Instrument runqueue latency for a PID and its threads.
|
|
*
|
|
* This script measures the runqueue latency for a specified process ID (PID)
|
|
* and includes all threads spawned by that process.
|
|
*
|
|
* USAGE: sudo ./process_runqlat.bt <PID>
|
|
*
|
|
* The program output will include:
|
|
* - Stats by task (count, avg latency, total latency)
|
|
* - A histogram of all latency measurements
|
|
* - Aggregated total stats (count, avg latency, total latency)
|
|
*/
|
|
|
|
#include <linux/sched.h>
|
|
|
|
BEGIN
|
|
{
|
|
if ($1 == 0) {
|
|
printf("PID is missing, use `sudo ./process_runqlat.bt <pid>`\n");
|
|
exit();
|
|
}
|
|
printf("Instrumenting runqueue latency for PID %d. Hit Ctrl-C to end.\n", $1);
|
|
}
|
|
|
|
/*
|
|
* args:
|
|
* - struct task_struct *p
|
|
*/
|
|
rawtracepoint:sched_wakeup,
|
|
rawtracepoint:sched_wakeup_new,
|
|
{
|
|
$task = (struct task_struct *)arg0;
|
|
// We filter by tgid to include all threads of the process
|
|
if ($task->tgid == $1) {
|
|
@qtime[$task->pid] = nsecs;
|
|
}
|
|
}
|
|
|
|
/*
|
|
* args:
|
|
* - bool preempt
|
|
* - struct task_struct *prev
|
|
* - struct task_struct *next
|
|
* - unsigned int prev_state
|
|
*/
|
|
rawtracepoint:sched_switch
|
|
{
|
|
$prev = (struct task_struct *)arg1;
|
|
$next = (struct task_struct *)arg2;
|
|
$prev_state = arg3;
|
|
|
|
if ($next->tgid != $1) {
|
|
return;
|
|
}
|
|
|
|
if ($prev_state == TASK_RUNNING && $prev->tgid == $1) {
|
|
@qtime[$prev->pid] = nsecs;
|
|
}
|
|
|
|
$nsec = @qtime[$next->pid];
|
|
if ($nsec) {
|
|
$usec = (nsecs - $nsec) / 1000;
|
|
@usec_total_stats = stats($usec);
|
|
@usec_hist = hist($usec);
|
|
@tasks[$next->comm, $next->pid] = stats($usec);
|
|
}
|
|
delete(@qtime[$next->pid]);
|
|
}
|
|
|
|
END
|
|
{
|
|
clear(@qtime);
|
|
} |