diff options
| author | Dmitry Torokhov <dmitry.torokhov@gmail.com> | 2010-06-22 14:32:04 -0400 |
|---|---|---|
| committer | Dmitry Torokhov <dmitry.torokhov@gmail.com> | 2010-06-22 14:32:04 -0400 |
| commit | 0e789314f8c0b50bd19bf08dc5624b9604d60183 (patch) | |
| tree | 64b6b9655e944284937f5eeff643f0754f35d0af /scripts/checkstack.pl | |
| parent | f5dec51172b81db226a23f309bc737ad021af35b (diff) | |
| parent | 7e27d6e778cd87b6f2415515d7127eba53fe5d02 (diff) | |
Merge commit 'v2.6.35-rc3' into for-linus
Diffstat (limited to 'scripts/checkstack.pl')
| -rwxr-xr-x | scripts/checkstack.pl | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/scripts/checkstack.pl b/scripts/checkstack.pl index 14ee68e991dd..1afff6658a7d 100755 --- a/scripts/checkstack.pl +++ b/scripts/checkstack.pl | |||
| @@ -21,6 +21,8 @@ | |||
| 21 | # | 21 | # |
| 22 | # TODO : Port to all architectures (one regex per arch) | 22 | # TODO : Port to all architectures (one regex per arch) |
| 23 | 23 | ||
| 24 | use strict; | ||
| 25 | |||
| 24 | # check for arch | 26 | # check for arch |
| 25 | # | 27 | # |
| 26 | # $re is used for two matches: | 28 | # $re is used for two matches: |
| @@ -104,19 +106,11 @@ my (@stack, $re, $dre, $x, $xs); | |||
| 104 | } | 106 | } |
| 105 | } | 107 | } |
| 106 | 108 | ||
| 107 | sub bysize($) { | ||
| 108 | my ($asize, $bsize); | ||
| 109 | ($asize = $a) =~ s/.*: *(.*)$/$1/; | ||
| 110 | ($bsize = $b) =~ s/.*: *(.*)$/$1/; | ||
| 111 | $bsize <=> $asize | ||
| 112 | } | ||
| 113 | |||
| 114 | # | 109 | # |
| 115 | # main() | 110 | # main() |
| 116 | # | 111 | # |
| 117 | my $funcre = qr/^$x* <(.*)>:$/; | 112 | my $funcre = qr/^$x* <(.*)>:$/; |
| 118 | my $func; | 113 | my ($func, $file, $lastslash); |
| 119 | my $file, $lastslash; | ||
| 120 | 114 | ||
| 121 | while (my $line = <STDIN>) { | 115 | while (my $line = <STDIN>) { |
| 122 | if ($line =~ m/$funcre/) { | 116 | if ($line =~ m/$funcre/) { |
| @@ -173,4 +167,6 @@ while (my $line = <STDIN>) { | |||
| 173 | } | 167 | } |
| 174 | } | 168 | } |
| 175 | 169 | ||
| 176 | print sort bysize @stack; | 170 | # Sort output by size (last field) |
| 171 | print sort { ($b =~ /:\t*(\d+)$/)[0] <=> ($a =~ /:\t*(\d+)$/)[0] } @stack; | ||
| 172 | |||
