Blame view
scripts/profile2linkerlist.pl
414 Bytes
cb77f0d62 scripts: Switch t... |
1 |
#!/usr/bin/env perl |
b24413180 License cleanup: ... |
2 |
# SPDX-License-Identifier: GPL-2.0 |
4bdc3b7f1 [PATCH] x86_64: B... |
3 4 5 6 7 8 9 10 |
# # 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... |
11 |
use strict; |
4bdc3b7f1 [PATCH] x86_64: B... |
12 13 14 15 16 |
while (<>) { my $line = $_; $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/; |
9c49fd307 profile2linkerlis... |
17 18 19 |
print "*(.text.$1) " unless ($line =~ /unknown/) || ($line =~ /total/); |
4bdc3b7f1 [PATCH] x86_64: B... |
20 |
} |