| Arjan van de Ven | 4bdc3b7 | 2006-03-25 16:30:49 +0100 | [diff] [blame] | 1 | #!/usr/bin/perl |
| 2 | |||||
| 3 | # | ||||
| 4 | # Takes a (sorted) output of readprofile and turns it into a list suitable for | ||||
| 5 | # linker scripts | ||||
| 6 | # | ||||
| 7 | # usage: | ||||
| 8 | # readprofile | sort -rn | perl profile2linkerlist.pl > functionlist | ||||
| 9 | # | ||||
| 10 | |||||
| 11 | while (<>) { | ||||
| 12 | my $line = $_; | ||||
| 13 | |||||
| 14 | $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/; | ||||
| 15 | |||||
| 16 | if ( ($line =~ /unknown/) || ($line =~ /total/)) { | ||||
| 17 | |||||
| 18 | } else { | ||||
| 19 | print "*(.text.$1)\n"; | ||||
| 20 | } | ||||
| 21 | } | ||||