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