hc
2023-12-09 b22da3d8526a935aa31e086e63f60ff3246cb61c
kernel/tools/perf/scripts/perl/rw-by-file.pl
....@@ -1,6 +1,6 @@
11 #!/usr/bin/perl -w
2
+# SPDX-License-Identifier: GPL-2.0-only
23 # (c) 2009, Tom Zanussi <tzanussi@gmail.com>
3
-# Licensed under the terms of the GNU GPL License version 2
44
55 # Display r/w activity for files read/written to for a given program
66
....@@ -28,7 +28,7 @@
2828 sub syscalls::sys_enter_read
2929 {
3030 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
31
- $common_pid, $common_comm, $nr, $fd, $buf, $count) = @_;
31
+ $common_pid, $common_comm, $common_callchain, $nr, $fd, $buf, $count) = @_;
3232
3333 if ($common_comm eq $for_comm) {
3434 $reads{$fd}{bytes_requested} += $count;
....@@ -39,7 +39,7 @@
3939 sub syscalls::sys_enter_write
4040 {
4141 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
42
- $common_pid, $common_comm, $nr, $fd, $buf, $count) = @_;
42
+ $common_pid, $common_comm, $common_callchain, $nr, $fd, $buf, $count) = @_;
4343
4444 if ($common_comm eq $for_comm) {
4545 $writes{$fd}{bytes_written} += $count;
....@@ -98,7 +98,7 @@
9898 sub trace_unhandled
9999 {
100100 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
101
- $common_pid, $common_comm) = @_;
101
+ $common_pid, $common_comm, $common_callchain) = @_;
102102
103103 $unhandled{$event_name}++;
104104 }