修改内核路径

hc

2024-05-14 bedbef8ad3e75a304af6361af235302bcc61d06b

 kernel/tools/perf/scripts/perl/rw-by-pid.pl
..
..
@@ -1,6 +1,6 @@
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 r/w activity for all processes
6
6
 
..
..
@@ -24,7 +24,7 @@
24
24
 sub syscalls::sys_exit_read
25
25
 {
26
26
     my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
27
-	$common_pid, $common_comm,
27
+	$common_pid, $common_comm, $common_callchain,
28
28
 	$nr, $ret) = @_;
29
29
 
30
30
     if ($ret > 0) {
..
..
@@ -40,7 +40,7 @@
40
40
 sub syscalls::sys_enter_read
41
41
 {
42
42
     my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
43
-	$common_pid, $common_comm,
43
+	$common_pid, $common_comm, $common_callchain,
44
44
 	$nr, $fd, $buf, $count) = @_;
45
45
 
46
46
     $reads{$common_pid}{bytes_requested} += $count;
..
..
@@ -51,7 +51,7 @@
51
51
 sub syscalls::sys_exit_write
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
 	$nr, $ret) = @_;
56
56
 
57
57
     if ($ret <= 0) {
..
..
@@ -62,7 +62,7 @@
62
62
 sub syscalls::sys_enter_write
63
63
 {
64
64
     my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
65
-	$common_pid, $common_comm,
65
+	$common_pid, $common_comm, $common_callchain,
66
66
 	$nr, $fd, $buf, $count) = @_;
67
67
 
68
68
     $writes{$common_pid}{bytes_written} += $count;
..
..
@@ -178,7 +178,7 @@
178
178
 sub trace_unhandled
179
179
 {
180
180
     my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
181
-	$common_pid, $common_comm) = @_;
181
+	$common_pid, $common_comm, $common_callchain) = @_;
182
182
 
183
183
     $unhandled{$event_name}++;
184
184
 }