hphp/tools/perf-annot

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings FATAL => qw/all/;
   5 use Getopt::Long;
   6
   7 my($event,$debug);
   8
   9 GetOptions(
  10     "event=s" => \$event,
  11     "debug=i" => \$debug,
  12     );
  13
  14 $event = "cycles" unless defined $event;
  15
  16 die "$0 <options> irdump script" unless @ARGV == 2;
  17
  18 my$irdump = shift;
  19 my$script = shift;
  20
  21 my$addrs = read_irdump($irdump);
  22 count_hits($addrs, $script);
  23 annotate($irdump, $addrs);
  24
  25 sub read_irdump {
  26     my($file) = @_;
  27
  28     my%addrs;
  29     open IRDUMP, $file or die "Error opening irdump $file: $!";
  30     while (<IRDUMP>) {
  31         if (m/^\s*0x0*([a-f0-9]+):/) {
  32             $addrs{$1} = { count => 0 };
  33         }
  34     }
  35     close IRDUMP or die "Error closing irdump $file: $!";
  36     return \%addrs;
  37 }
  38
  39 sub count_hits {
  40     my($addrs, $file) = @_;
  41
  42     open SCRIPT, $file or die "Error opening script $file: $!";
  43     my$cur_event;
  44     while (<SCRIPT>) {
  45         if (defined $cur_event) {
  46             if ($cur_event eq $event) {
  47                 if (m/^\s+0*([0-9a-fA-F]+)\s+(.*?)\s+\(([^\(\)]*)\)\s*$/) {
  48                     if (defined $addrs->{$1}) {
  49                         $addrs->{$1}{count} += 1;
  50                     }
  51                     undef $cur_event;
  52                 }
  53             }
  54         } elsif (m/^\s*#/) {
  55             next;
  56         } elsif (m/^\s*(\S+)\s+(\d+)(?:\s+\[\d+\])?\s+(?:(\d+\.\d+):)?\s*(?:\d+\s*)?([-\w]+)(?::p+)?:\s*$/) {
  57             $cur_event = $4;
  58         }
  59     }
  60     close SCRIPT or die "Error closing script $file: $!";
  61 }
  62
  63 sub annotate {
  64     my($file, $addrs) = @_;
  65
  66     my$total = 0;
  67     open IRDUMP, $file or die "Error opening irdump $file: $!";
  68     while (<IRDUMP>) {
  69         if (m/^\s*0x([a-f0-9]+):/) {
  70             if (defined $addrs->{$1}) {
  71                 my$c = $addrs->{$1}{count};
  72                 if ($c) {
  73                     $total += $c;
  74                     $_ =~ s/^\s+//;
  75                     $_ = sprintf "Q%6d %s", $c, $_;
  76                 }
  77             }
  78         }
  79         print;
  80     }
  81     close IRDUMP or die "Error closing irdump $file: $!";
  82
  83     print "Total: $total\n";
  84 }