Commit 4d161f03 authored by Tom Zanussi's avatar Tom Zanussi Committed by Frederic Weisbecker
Browse files

perf/scripts: Add syscall tracing scripts 



Adds a set of scripts that aggregate system call totals and system
call errors.  Most are Python scripts that also test basic
functionality of the new Python engine, but there's also one Perl
script added for comparison and for reference in some new
Documentation contained in a later patch.

Signed-off-by: default avatarTom Zanussi <tzanussi@gmail.com>
Cc: Ingo Molnar <mingo@elte.hu>
Cc: Steven Rostedt <rostedt@goodmis.org>
Cc: Keiichi KII <k-keiichi@bx.jp.nec.com>
Cc: Peter Zijlstra <a.p.zijlstra@chello.nl>
Cc: Paul Mackerras <paulus@samba.org>
Cc: Arnaldo Carvalho de Melo <acme@redhat.com>
LKML-Reference: <1264580883-15324-8-git-send-email-tzanussi@gmail.com>
Signed-off-by: default avatarFrederic Weisbecker <fweisbec@gmail.com>
parent 7e4b21b8

tools/perf/Makefile

+3 −0
Original line number Diff line number Diff line
@@ -1032,7 +1032,10 @@ install: all 
	$(INSTALL) scripts/perl/*.pl -t '$(DESTDIR_SQ)$(perfexec_instdir_SQ)/scripts/perl'

	$(INSTALL) scripts/perl/bin/* -t '$(DESTDIR_SQ)$(perfexec_instdir_SQ)/scripts/perl/bin'

	$(INSTALL) -d -m 755 '$(DESTDIR_SQ)$(perfexec_instdir_SQ)/scripts/python/Perf-Trace-Util/lib/Perf/Trace'

	$(INSTALL) -d -m 755 '$(DESTDIR_SQ)$(perfexec_instdir_SQ)/scripts/python/bin'

	$(INSTALL) scripts/python/Perf-Trace-Util/lib/Perf/Trace/* -t '$(DESTDIR_SQ)$(perfexec_instdir_SQ)/scripts/python/Perf-Trace-Util/lib/Perf/Trace'

	$(INSTALL) scripts/python/*.py -t '$(DESTDIR_SQ)$(perfexec_instdir_SQ)/scripts/python'

	$(INSTALL) scripts/python/bin/* -t '$(DESTDIR_SQ)$(perfexec_instdir_SQ)/scripts/python/bin'



ifdef BUILT_INS

	$(INSTALL) -d -m 755 '$(DESTDIR_SQ)$(perfexec_instdir_SQ)'

tools/perf/scripts/perl/bin/check-perf-trace-record

+1 −1
Original line number Diff line number Diff line 
#!/bin/bash

perf record -c 1 -f -a -M -R -e kmem:kmalloc -e irq:softirq_entry
 
perf record -c 1 -f -a -M -R -e kmem:kmalloc -e irq:softirq_entry -e kmem:kfree

tools/perf/scripts/perl/bin/failed-syscalls-record

0 → 100644
+2 −0
Original line number Diff line number Diff line 
#!/bin/bash

perf record -c 1 -f -a -M -R -e raw_syscalls:sys_exit

tools/perf/scripts/perl/bin/failed-syscalls-report

0 → 100644
+4 −0
Original line number Diff line number Diff line 
#!/bin/bash

# description: system-wide failed syscalls

# args: [comm]

perf trace -s ~/libexec/perf-core/scripts/perl/failed-syscalls.pl $1

tools/perf/scripts/perl/failed-syscalls.pl

0 → 100644
+38 −0
Original line number Diff line number Diff line 
# failed system call counts

# (c) 2010, Tom Zanussi <tzanussi@gmail.com>

# Licensed under the terms of the GNU GPL License version 2

#

# Displays system-wide failed system call totals

# If a [comm] arg is specified, only syscalls called by [comm] are displayed.



use lib "$ENV{'PERF_EXEC_PATH'}/scripts/perl/Perf-Trace-Util/lib";

use lib "./Perf-Trace-Util/lib";

use Perf::Trace::Core;

use Perf::Trace::Context;

use Perf::Trace::Util;



my %failed_syscalls;



sub raw_syscalls::sys_exit

{

	my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs,

	    $common_pid, $common_comm,

	    $id, $ret) = @_;



	if ($ret < 0) {

	    $failed_syscalls{$common_comm}++;

	}

}



sub trace_end

{

    printf("\nfailed syscalls by comm:\n\n");



    printf("%-20s  %10s\n", "comm", "# errors");

    printf("%-20s  %6s  %10s\n", "--------------------", "----------");



    foreach my $comm (sort {$failed_syscalls{$b} <=> $failed_syscalls{$a}}

		      keys %failed_syscalls) {

	    printf("%-20s  %10s\n", $comm, $failed_syscalls{$comm});

    }

}

CRA Git | Maintained and supported by SUSTech CRA and CCSE