Blame view
scripts/profile2linkerlist.pl
375 Bytes
4bdc3b7f1 [PATCH] x86_64: B... |
1 2 3 4 5 6 7 8 9 |
#!/usr/bin/perl # # Takes a (sorted) output of readprofile and turns it into a list suitable for # linker scripts # # usage: # readprofile | sort -rn | perl profile2linkerlist.pl > functionlist # |
9c49fd307 profile2linkerlis... |
10 |
use strict; |
4bdc3b7f1 [PATCH] x86_64: B... |
11 12 13 14 15 |
while (<>) { my $line = $_; $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/; |
9c49fd307 profile2linkerlis... |
16 17 18 |
print "*(.text.$1) " unless ($line =~ /unknown/) || ($line =~ /total/); |
4bdc3b7f1 [PATCH] x86_64: B... |
19 |
} |