adulau/aha
1
0
Fork 0
mirror of https://github.com/adulau/aha.git synced 2024-12-27 11:16:11 +00:00
Code Issues Projects Releases Packages Wiki Activity

bootgraph: fix for use with dot symbols

Browse source 
powerpc has dot symbols, so the dmesg output looks like:

<4>[    0.327310] calling  .migration_init+0x0/0x9c @ 1
<4>[    0.327595] initcall .migration_init+0x0/0x9c returned 1 after 0 usecs

The below fixes bootgraph.pl so it handles this correctly.

Signed-off-by: Michael Neuling <mikey@neuling.org>
Signed-off-by: Arjan van de Ven <arjan@linux.intel.com>
Signed-off-by: Andrew Morton <akpm@linux-foundation.org>
Signed-off-by: Sam Ravnborg <sam@ravnborg.org>
This commit is contained in:
Michael Neuling 2009-02-15 10:20:30 +01:00 committed by Sam Ravnborg
parent fc370ecfdb
commit 0bb98e2318
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scripts/bootgraph.pl
View file

@ -51,7 +51,7 @@ my %pidctr;
while (<>) { while (<>) {
my $line = $_; my $line = $_;
if ($line =~ /([0-9\.]+)\] calling ([a-zA-Z0-9\_]+)\+/) { if ($line =~ /([0-9\.]+)\] calling ([a-zA-Z0-9\_\.]+)\+/) {
my $func = $2; my $func = $2;
if ($done == 0) { if ($done == 0) {
$start{$func} = $1; $start{$func} = $1;
@ -87,7 +87,7 @@ while (<>) {
$count = $count + 1; $count = $count + 1;
} }
if ($line =~ /([0-9\.]+)\] initcall ([a-zA-Z0-9\_]+)\+.*returned/) { if ($line =~ /([0-9\.]+)\] initcall ([a-zA-Z0-9\_\.]+)\+.*returned/) {
if ($done == 0) { if ($done == 0) {
$end{$2} = $1; $end{$2} = $1;
$maxtime = $1; $maxtime = $1;