linux/scripts/profile2linkerlist.pl
<<
>>
Prefs
   1#!/usr/bin/perl
   2
   3#
   4# Takes a (sorted) output of readprofile and turns it into a list suitable for
   5# linker scripts
   6#
   7# usage:
   8#        readprofile | sort -rn | perl profile2linkerlist.pl > functionlist
   9#
  10use strict;
  11
  12while (<>) {
  13  my $line = $_;
  14
  15  $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/;
  16
  17  print "*(.text.$1)\n"
  18      unless ($line =~ /unknown/) || ($line =~ /total/);
  19}
  20