utils/profiling/addr2line.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my $executable = $ARGV[0];
   7
   8 my %lines = ();
   9 my %functionNames = ();
  10
  11 sub getline {
  12   my $addr = shift;
  13
  14   if ($addr eq "") {
  15     return "?? ??:0";
  16   }
  17   if ($addr !~ /^0x/) {
  18     return $addr;
  19   }
  20
  21   my $line = $lines{$addr};
  22   if (!defined($line)) {
  23     $line = `addr2line -f -e $executable $addr`;
  24     chomp($line);
  25     $line =~ s/\n/ /g;
  26     $lines{$addr} = $line;
  27   }
  28   return $line;
  29 }
  30
  31 while (<STDIN> =~ /(\w)\t([^\t]+)\t([^t]*)\t(\S+)/) {
  32   my ($action, $calledaddr, $calleraddr, $time) = ($1, $2, $3, $4);
  33
  34   my $called = getline($calledaddr);
  35   my $caller = getline($calleraddr);
  36
  37   if ($called =~ /^\(null\) (.*)/) {
  38     if (defined $functionNames{$1}) {
  39        $called = "$functionNames{$1} $1";
  40     } else {
  41        $called = "$1 $1";
  42     }
  43   }
  44   elsif ($called =~ /^(\S+) (.*)/) {
  45     $functionNames{$2} = $1;
  46   }
  47
  48   print "$action\t$called\t$caller\t$time\n";
  49 }