| xj | b04a402 | 2021-11-25 15:01:52 +0800 | [diff] [blame] | 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 | } | ||||