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