| yuezonghe | 824eb0c | 2024-06-27 02:32:26 -0700 | [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 | use strict; | ||||
| 11 | |||||
| 12 | while (<>) { | ||||
| 13 | my $line = $_; | ||||
| 14 | |||||
| 15 | $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/; | ||||
| 16 | |||||
| 17 | print "*(.text.$1)\n" | ||||
| 18 | unless ($line =~ /unknown/) || ($line =~ /total/); | ||||
| 19 | } | ||||