Commit | Line | Data |
---|---|---|
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 | } |