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