| .. | .. |
|---|
| 1 | 1 | #!/usr/bin/perl -w |
|---|
| 2 | +# SPDX-License-Identifier: GPL-2.0-only |
|---|
| 2 | 3 | # (c) 2009, Tom Zanussi <tzanussi@gmail.com> |
|---|
| 3 | | -# Licensed under the terms of the GNU GPL License version 2 |
|---|
| 4 | 4 | |
|---|
| 5 | 5 | # Display avg/min/max wakeup latency |
|---|
| 6 | 6 | |
|---|
| .. | .. |
|---|
| 28 | 28 | sub sched::sched_switch |
|---|
| 29 | 29 | { |
|---|
| 30 | 30 | my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs, |
|---|
| 31 | | - $common_pid, $common_comm, |
|---|
| 31 | + $common_pid, $common_comm, $common_callchain, |
|---|
| 32 | 32 | $prev_comm, $prev_pid, $prev_prio, $prev_state, $next_comm, $next_pid, |
|---|
| 33 | 33 | $next_prio) = @_; |
|---|
| 34 | 34 | |
|---|
| .. | .. |
|---|
| 51 | 51 | sub sched::sched_wakeup |
|---|
| 52 | 52 | { |
|---|
| 53 | 53 | my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs, |
|---|
| 54 | | - $common_pid, $common_comm, |
|---|
| 54 | + $common_pid, $common_comm, $common_callchain, |
|---|
| 55 | 55 | $comm, $pid, $prio, $success, $target_cpu) = @_; |
|---|
| 56 | 56 | |
|---|
| 57 | 57 | $last_wakeup{$target_cpu}{ts} = nsecs($common_secs, $common_nsecs); |
|---|
| .. | .. |
|---|
| 101 | 101 | sub trace_unhandled |
|---|
| 102 | 102 | { |
|---|
| 103 | 103 | my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs, |
|---|
| 104 | | - $common_pid, $common_comm) = @_; |
|---|
| 104 | + $common_pid, $common_comm, $common_callchain) = @_; |
|---|
| 105 | 105 | |
|---|
| 106 | 106 | $unhandled{$event_name}++; |
|---|
| 107 | 107 | } |
|---|