FreeBSD/Linux Kernel Cross Reference
sys/scripts/profile2linkerlist.pl

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

Cache object: 71538f5a4cd0edfa1f2ff1f9b142f3c7