Donate to e Foundation | Murena handsets with /e/OS | Own a part of Murena! Learn more

Commit 1de7b7e8 authored by Tom Zanussi's avatar Tom Zanussi Committed by Arnaldo Carvalho de Melo
Browse files

perf script: Remove workqueue-stats script 



The tracepoints used by the workqueue-stats script no longer exist so
trying to run the script results in:

  # perf script record workqueue-stats
  invalid or unsupported event: 'workqueue:workqueue_creation'
  Run 'perf list' for a list of valid events

So remove the script until it can be reworked using the new workqueue
tracepoints.

Signed-off-by: default avatarTom Zanussi <tom.zanussi@linux.intel.com>
Link: http://lkml.kernel.org/r/e7a7637d5df9df86887c3bff7683574665ec5360.1358527965.git.tom.zanussi@linux.intel.com


Signed-off-by: default avatarArnaldo Carvalho de Melo <acme@redhat.com>
parent 2de9533d

tools/perf/Documentation/perf-script-python.txt

+0 −2
Original line number Original line Diff line number Diff line
@@ -336,7 +336,6 @@ scripts listed by the 'perf script -l' command e.g.: 
----

----

root@tropicana:~# perf script -l

root@tropicana:~# perf script -l

List of available trace scripts:

List of available trace scripts:

  workqueue-stats                      workqueue stats (ins/exe/create/destroy)

  wakeup-latency                       system-wide min/max/avg wakeup latency

  wakeup-latency                       system-wide min/max/avg wakeup latency

  rw-by-file <comm>                    r/w activity for a program, by file

  rw-by-file <comm>                    r/w activity for a program, by file

  rw-by-pid                            system-wide r/w activity

  rw-by-pid                            system-wide r/w activity
@@ -402,7 +401,6 @@ should show a new entry for your script: 
----

----

root@tropicana:~# perf script -l

root@tropicana:~# perf script -l

List of available trace scripts:

List of available trace scripts:

  workqueue-stats                      workqueue stats (ins/exe/create/destroy)

  wakeup-latency                       system-wide min/max/avg wakeup latency

  wakeup-latency                       system-wide min/max/avg wakeup latency

  rw-by-file <comm>                    r/w activity for a program, by file

  rw-by-file <comm>                    r/w activity for a program, by file

  rw-by-pid                            system-wide r/w activity

  rw-by-pid                            system-wide r/w activity

tools/perf/scripts/perl/bin/workqueue-stats-record

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

perf record -e workqueue:workqueue_creation -e workqueue:workqueue_destruction -e workqueue:workqueue_execution -e workqueue:workqueue_insertion $@

tools/perf/scripts/perl/bin/workqueue-stats-report

deleted100644 → 0
+0 −3
Original line number Original line Diff line number Diff line 
#!/bin/bash

# description: workqueue stats (ins/exe/create/destroy)

perf script $@ -s "$PERF_EXEC_PATH"/scripts/perl/workqueue-stats.pl

tools/perf/scripts/perl/workqueue-stats.pl

deleted100644 → 0
+0 −129
Original line number Original line Diff line number Diff line 
#!/usr/bin/perl -w

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

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



# Displays workqueue stats

#

# Usage:

#

#   perf record -c 1 -f -a -R -e workqueue:workqueue_creation -e

#     workqueue:workqueue_destruction -e workqueue:workqueue_execution

#     -e workqueue:workqueue_insertion

#

#   perf script -p -s tools/perf/scripts/perl/workqueue-stats.pl



use 5.010000;

use strict;

use warnings;



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::Util;



my @cpus;



sub workqueue::workqueue_destruction

{

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

	$common_pid, $common_comm,

	$thread_comm, $thread_pid) = @_;



    $cpus[$common_cpu]{$thread_pid}{destroyed}++;

    $cpus[$common_cpu]{$thread_pid}{comm} = $thread_comm;

}



sub workqueue::workqueue_creation

{

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

	$common_pid, $common_comm,

	$thread_comm, $thread_pid, $cpu) = @_;



    $cpus[$common_cpu]{$thread_pid}{created}++;

    $cpus[$common_cpu]{$thread_pid}{comm} = $thread_comm;

}



sub workqueue::workqueue_execution

{

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

	$common_pid, $common_comm,

	$thread_comm, $thread_pid, $func) = @_;



    $cpus[$common_cpu]{$thread_pid}{executed}++;

    $cpus[$common_cpu]{$thread_pid}{comm} = $thread_comm;

}



sub workqueue::workqueue_insertion

{

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

	$common_pid, $common_comm,

	$thread_comm, $thread_pid, $func) = @_;



    $cpus[$common_cpu]{$thread_pid}{inserted}++;

    $cpus[$common_cpu]{$thread_pid}{comm} = $thread_comm;

}



sub trace_end

{

    print "workqueue work stats:\n\n";

    my $cpu = 0;

    printf("%3s %6s %6s\t%-20s\n", "cpu", "ins", "exec", "name");

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

    foreach my $pidhash (@cpus) {

	while ((my $pid, my $wqhash) = each %$pidhash) {

	    my $ins = $$wqhash{'inserted'} || 0;

	    my $exe = $$wqhash{'executed'} || 0;

	    my $comm = $$wqhash{'comm'} || "";

	    if ($ins || $exe) {

		printf("%3u %6u %6u\t%-20s\n", $cpu, $ins, $exe, $comm);

	    }

	}

	$cpu++;

    }



    $cpu = 0;

    print "\nworkqueue lifecycle stats:\n\n";

    printf("%3s %6s %6s\t%-20s\n", "cpu", "created", "destroyed", "name");

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

    foreach my $pidhash (@cpus) {

	while ((my $pid, my $wqhash) = each %$pidhash) {

	    my $created = $$wqhash{'created'} || 0;

	    my $destroyed = $$wqhash{'destroyed'} || 0;

	    my $comm = $$wqhash{'comm'} || "";

	    if ($created || $destroyed) {

		printf("%3u %6u %6u\t%-20s\n", $cpu, $created, $destroyed,

		       $comm);

	    }

	}

	$cpu++;

    }



    print_unhandled();

}



my %unhandled;



sub print_unhandled

{

    if ((scalar keys %unhandled) == 0) {

	return;

    }



    print "\nunhandled events:\n\n";



    printf("%-40s  %10s\n", "event", "count");

    printf("%-40s  %10s\n", "----------------------------------------",

	   "-----------");



    foreach my $event_name (keys %unhandled) {

	printf("%-40s  %10d\n", $event_name, $unhandled{$event_name});

    }

}



sub trace_unhandled

{

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

	$common_pid, $common_comm) = @_;



    $unhandled{$event_name}++;

}