diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/bootgraph.pl | 46 |
1 files changed, 42 insertions, 4 deletions
diff --git a/scripts/bootgraph.pl b/scripts/bootgraph.pl index 0a498e33b30b..b0246307aac4 100644 --- a/scripts/bootgraph.pl +++ b/scripts/bootgraph.pl | |||
| @@ -41,11 +41,13 @@ use strict; | |||
| 41 | 41 | ||
| 42 | my %start; | 42 | my %start; |
| 43 | my %end; | 43 | my %end; |
| 44 | my %type; | ||
| 44 | my $done = 0; | 45 | my $done = 0; |
| 45 | my $maxtime = 0; | 46 | my $maxtime = 0; |
| 46 | my $firsttime = 100; | 47 | my $firsttime = 100; |
| 47 | my $count = 0; | 48 | my $count = 0; |
| 48 | my %pids; | 49 | my %pids; |
| 50 | my %pidctr; | ||
| 49 | 51 | ||
| 50 | while (<>) { | 52 | while (<>) { |
| 51 | my $line = $_; | 53 | my $line = $_; |
| @@ -53,6 +55,7 @@ while (<>) { | |||
| 53 | my $func = $2; | 55 | my $func = $2; |
| 54 | if ($done == 0) { | 56 | if ($done == 0) { |
| 55 | $start{$func} = $1; | 57 | $start{$func} = $1; |
| 58 | $type{$func} = 0; | ||
| 56 | if ($1 < $firsttime) { | 59 | if ($1 < $firsttime) { |
| 57 | $firsttime = $1; | 60 | $firsttime = $1; |
| 58 | } | 61 | } |
| @@ -63,12 +66,40 @@ while (<>) { | |||
| 63 | $count = $count + 1; | 66 | $count = $count + 1; |
| 64 | } | 67 | } |
| 65 | 68 | ||
| 69 | if ($line =~ /([0-9\.]+)\] async_waiting @ ([0-9]+)/) { | ||
| 70 | my $pid = $2; | ||
| 71 | my $func; | ||
| 72 | if (!defined($pidctr{$pid})) { | ||
| 73 | $func = "wait_" . $pid . "_1"; | ||
| 74 | $pidctr{$pid} = 1; | ||
| 75 | } else { | ||
| 76 | $pidctr{$pid} = $pidctr{$pid} + 1; | ||
| 77 | $func = "wait_" . $pid . "_" . $pidctr{$pid}; | ||
| 78 | } | ||
| 79 | if ($done == 0) { | ||
| 80 | $start{$func} = $1; | ||
| 81 | $type{$func} = 1; | ||
| 82 | if ($1 < $firsttime) { | ||
| 83 | $firsttime = $1; | ||
| 84 | } | ||
| 85 | } | ||
| 86 | $pids{$func} = $pid; | ||
| 87 | $count = $count + 1; | ||
| 88 | } | ||
| 89 | |||
| 66 | if ($line =~ /([0-9\.]+)\] initcall ([a-zA-Z0-9\_]+)\+.*returned/) { | 90 | if ($line =~ /([0-9\.]+)\] initcall ([a-zA-Z0-9\_]+)\+.*returned/) { |
| 67 | if ($done == 0) { | 91 | if ($done == 0) { |
| 68 | $end{$2} = $1; | 92 | $end{$2} = $1; |
| 69 | $maxtime = $1; | 93 | $maxtime = $1; |
| 70 | } | 94 | } |
| 71 | } | 95 | } |
| 96 | |||
| 97 | if ($line =~ /([0-9\.]+)\] async_continuing @ ([0-9]+)/) { | ||
| 98 | my $pid = $2; | ||
| 99 | my $func = "wait_" . $pid . "_" . $pidctr{$pid}; | ||
| 100 | $end{$func} = $1; | ||
| 101 | $maxtime = $1; | ||
| 102 | } | ||
| 72 | if ($line =~ /Write protecting the/) { | 103 | if ($line =~ /Write protecting the/) { |
| 73 | $done = 1; | 104 | $done = 1; |
| 74 | } | 105 | } |
| @@ -105,6 +136,8 @@ $styles[9] = "fill:rgb(255,255,128);fill-opacity:0.5;stroke-width:1;stroke:rgb(0 | |||
| 105 | $styles[10] = "fill:rgb(255,128,255);fill-opacity:0.5;stroke-width:1;stroke:rgb(0,0,0)"; | 136 | $styles[10] = "fill:rgb(255,128,255);fill-opacity:0.5;stroke-width:1;stroke:rgb(0,0,0)"; |
| 106 | $styles[11] = "fill:rgb(128,255,255);fill-opacity:0.5;stroke-width:1;stroke:rgb(0,0,0)"; | 137 | $styles[11] = "fill:rgb(128,255,255);fill-opacity:0.5;stroke-width:1;stroke:rgb(0,0,0)"; |
| 107 | 138 | ||
| 139 | my $style_wait = "fill:rgb(128,128,128);fill-opacity:0.5;stroke-width:0;stroke:rgb(0,0,0)"; | ||
| 140 | |||
| 108 | my $mult = 1950.0 / ($maxtime - $firsttime); | 141 | my $mult = 1950.0 / ($maxtime - $firsttime); |
| 109 | my $threshold2 = ($maxtime - $firsttime) / 120.0; | 142 | my $threshold2 = ($maxtime - $firsttime) / 120.0; |
| 110 | my $threshold = $threshold2/10; | 143 | my $threshold = $threshold2/10; |
| @@ -139,11 +172,16 @@ foreach my $key (@initcalls) { | |||
| 139 | $stylecounter = 0; | 172 | $stylecounter = 0; |
| 140 | }; | 173 | }; |
| 141 | 174 | ||
| 142 | print "<rect x=\"$s\" width=\"$w\" y=\"$y\" height=\"145\" style=\"$style\"/>\n"; | 175 | if ($type{$key} == 1) { |
| 143 | if ($duration >= $threshold2) { | 176 | $y = $y + 15; |
| 144 | print "<text transform=\"translate($s2,$y2) rotate(90)\">$key</text>\n"; | 177 | print "<rect x=\"$s\" width=\"$w\" y=\"$y\" height=\"115\" style=\"$style_wait\"/>\n"; |
| 145 | } else { | 178 | } else { |
| 146 | print "<text transform=\"translate($s3,$y2) rotate(90)\" font-size=\"3pt\">$key</text>\n"; | 179 | print "<rect x=\"$s\" width=\"$w\" y=\"$y\" height=\"145\" style=\"$style\"/>\n"; |
| 180 | if ($duration >= $threshold2) { | ||
| 181 | print "<text transform=\"translate($s2,$y2) rotate(90)\">$key</text>\n"; | ||
| 182 | } else { | ||
| 183 | print "<text transform=\"translate($s3,$y2) rotate(90)\" font-size=\"3pt\">$key</text>\n"; | ||
| 184 | } | ||
| 147 | } | 185 | } |
| 148 | } | 186 | } |
| 149 | } | 187 | } |
