diff options
| -rw-r--r-- | scripts/profile2linkerlist.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/scripts/profile2linkerlist.pl b/scripts/profile2linkerlist.pl index cb4260ebdb91..6943fa7cc95b 100644 --- a/scripts/profile2linkerlist.pl +++ b/scripts/profile2linkerlist.pl | |||
| @@ -7,15 +7,13 @@ | |||
| 7 | # usage: | 7 | # usage: |
| 8 | # readprofile | sort -rn | perl profile2linkerlist.pl > functionlist | 8 | # readprofile | sort -rn | perl profile2linkerlist.pl > functionlist |
| 9 | # | 9 | # |
| 10 | use strict; | ||
| 10 | 11 | ||
| 11 | while (<>) { | 12 | while (<>) { |
| 12 | my $line = $_; | 13 | my $line = $_; |
| 13 | 14 | ||
| 14 | $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/; | 15 | $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/; |
| 15 | 16 | ||
| 16 | if ( ($line =~ /unknown/) || ($line =~ /total/)) { | 17 | print "*(.text.$1)\n" |
| 17 | 18 | unless ($line =~ /unknown/) || ($line =~ /total/); | |
| 18 | } else { | ||
| 19 | print "*(.text.$1)\n"; | ||
| 20 | } | ||
| 21 | } | 19 | } |
