1 # failed system call counts 1 # failed system call counts
2 # (c) 2010, Tom Zanussi <tzanussi@gmail.com> 2 # (c) 2010, Tom Zanussi <tzanussi@gmail.com>
3 # Licensed under the terms of the GNU GPL Lice 3 # Licensed under the terms of the GNU GPL License version 2
4 # 4 #
5 # Displays system-wide failed system call tota 5 # Displays system-wide failed system call totals
6 # If a [comm] arg is specified, only syscalls 6 # If a [comm] arg is specified, only syscalls called by [comm] are displayed.
7 7
8 use lib "$ENV{'PERF_EXEC_PATH'}/scripts/perl/P 8 use lib "$ENV{'PERF_EXEC_PATH'}/scripts/perl/Perf-Trace-Util/lib";
9 use lib "./Perf-Trace-Util/lib"; 9 use lib "./Perf-Trace-Util/lib";
10 use Perf::Trace::Core; 10 use Perf::Trace::Core;
11 use Perf::Trace::Context; 11 use Perf::Trace::Context;
12 use Perf::Trace::Util; 12 use Perf::Trace::Util;
13 13
14 my $for_comm = shift; 14 my $for_comm = shift;
15 15
16 my %failed_syscalls; 16 my %failed_syscalls;
17 17
18 sub raw_syscalls::sys_exit 18 sub raw_syscalls::sys_exit
19 { 19 {
20 my ($event_name, $context, $common_cpu 20 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,
21 $common_pid, $common_comm, $common 21 $common_pid, $common_comm, $common_callchain,
22 $id, $ret) = @_; 22 $id, $ret) = @_;
23 23
24 if ($ret < 0) { 24 if ($ret < 0) {
25 $failed_syscalls{$common_comm}++; 25 $failed_syscalls{$common_comm}++;
26 } 26 }
27 } 27 }
28 28
29 sub syscalls::sys_exit 29 sub syscalls::sys_exit
30 { 30 {
31 raw_syscalls::sys_exit(@_) 31 raw_syscalls::sys_exit(@_)
32 } 32 }
33 33
34 sub trace_end 34 sub trace_end
35 { 35 {
36 printf("\nfailed syscalls by comm:\n\n"); 36 printf("\nfailed syscalls by comm:\n\n");
37 37
38 printf("%-20s %10s\n", "comm", "# errors" 38 printf("%-20s %10s\n", "comm", "# errors");
39 printf("%-20s %6s %10s\n", "------------ 39 printf("%-20s %6s %10s\n", "--------------------", "----------");
40 40
41 foreach my $comm (sort {$failed_syscalls{$ 41 foreach my $comm (sort {$failed_syscalls{$b} <=> $failed_syscalls{$a}}
42 keys %failed_syscalls) { 42 keys %failed_syscalls) {
43 next if ($for_comm && $comm ne $for_co 43 next if ($for_comm && $comm ne $for_comm);
44 44
45 printf("%-20s %10s\n", $comm, $failed 45 printf("%-20s %10s\n", $comm, $failed_syscalls{$comm});
46 } 46 }
47 } 47 }
Linux® is a registered trademark of Linus Torvalds in the United States and other countries.
TOMOYO® is a registered trademark of NTT DATA CORPORATION.