| 12345678910111213141516171819 |
- #!/usr/bin/perl
- #
- # 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/);
- }
|
