| 123456789101112131415161718192021 |
- #!/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/);
- }
|
