1#!/usr/bin/perl -w 2# (c) 2009, Tom Zanussi <tzanussi@gmail.com> 3# Licensed under the terms of the GNU GPL License version 2 4 5# Displays workqueue stats 6# 7# Usage: 8# 9# perf record -c 1 -f -a -R -e workqueue:workqueue_creation -e 10# workqueue:workqueue_destruction -e workqueue:workqueue_execution 11# -e workqueue:workqueue_insertion 12# 13# perf trace -p -s tools/perf/scripts/perl/workqueue-stats.pl 14 15use 5.010000; 16use strict; 17use warnings; 18 19use lib "$ENV{'PERF_EXEC_PATH'}/scripts/perl/Perf-Trace-Util/lib"; 20use lib "./Perf-Trace-Util/lib"; 21use Perf::Trace::Core; 22use Perf::Trace::Util; 23 24my @cpus; 25 26sub workqueue::workqueue_destruction 27{ 28 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs, 29 $common_pid, $common_comm, 30 $thread_comm, $thread_pid) = @_; 31 32 $cpus[$common_cpu]{$thread_pid}{destroyed}++; 33 $cpus[$common_cpu]{$thread_pid}{comm} = $thread_comm; 34} 35 36sub workqueue::workqueue_creation 37{ 38 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs, 39 $common_pid, $common_comm, 40 $thread_comm, $thread_pid, $cpu) = @_; 41 42 $cpus[$common_cpu]{$thread_pid}{created}++; 43 $cpus[$common_cpu]{$thread_pid}{comm} = $thread_comm; 44} 45 46sub workqueue::workqueue_execution 47{ 48 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs, 49 $common_pid, $common_comm, 50 $thread_comm, $thread_pid, $func) = @_; 51 52 $cpus[$common_cpu]{$thread_pid}{executed}++; 53 $cpus[$common_cpu]{$thread_pid}{comm} = $thread_comm; 54} 55 56sub workqueue::workqueue_insertion 57{ 58 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs, 59 $common_pid, $common_comm, 60 $thread_comm, $thread_pid, $func) = @_; 61 62 $cpus[$common_cpu]{$thread_pid}{inserted}++; 63 $cpus[$common_cpu]{$thread_pid}{comm} = $thread_comm; 64} 65 66sub trace_end 67{ 68 print "workqueue work stats:\n\n"; 69 my $cpu = 0; 70 printf("%3s %6s %6s\t%-20s\n", "cpu", "ins", "exec", "name"); 71 printf("%3s %6s %6s\t%-20s\n", "---", "---", "----", "----"); 72 foreach my $pidhash (@cpus) { 73 while ((my $pid, my $wqhash) = each %$pidhash) { 74 my $ins = $$wqhash{'inserted'} || 0; 75 my $exe = $$wqhash{'executed'} || 0; 76 my $comm = $$wqhash{'comm'} || ""; 77 if ($ins || $exe) { 78 printf("%3u %6u %6u\t%-20s\n", $cpu, $ins, $exe, $comm); 79 } 80 } 81 $cpu++; 82 } 83 84 $cpu = 0; 85 print "\nworkqueue lifecycle stats:\n\n"; 86 printf("%3s %6s %6s\t%-20s\n", "cpu", "created", "destroyed", "name"); 87 printf("%3s %6s %6s\t%-20s\n", "---", "-------", "---------", "----"); 88 foreach my $pidhash (@cpus) { 89 while ((my $pid, my $wqhash) = each %$pidhash) { 90 my $created = $$wqhash{'created'} || 0; 91 my $destroyed = $$wqhash{'destroyed'} || 0; 92 my $comm = $$wqhash{'comm'} || ""; 93 if ($created || $destroyed) { 94 printf("%3u %6u %6u\t%-20s\n", $cpu, $created, $destroyed, 95 $comm); 96 } 97 } 98 $cpu++; 99 } 100 101 print_unhandled(); 102} 103 104my %unhandled; 105 106sub print_unhandled 107{ 108 if ((scalar keys %unhandled) == 0) { 109 return; 110 } 111 112 print "\nunhandled events:\n\n"; 113 114 printf("%-40s %10s\n", "event", "count"); 115 printf("%-40s %10s\n", "----------------------------------------", 116 "-----------"); 117 118 foreach my $event_name (keys %unhandled) { 119 printf("%-40s %10d\n", $event_name, $unhandled{$event_name}); 120 } 121} 122 123sub trace_unhandled 124{ 125 my ($event_name, $context, $common_cpu, $common_secs, $common_nsecs, 126 $common_pid, $common_comm) = @_; 127 128 $unhandled{$event_name}++; 129} 130