Version:  2.0.40 2.2.26 2.4.37 3.13 3.14 3.15 3.16 3.17 3.18 3.19 4.0 4.1 4.2 4.3 4.4 4.5 4.6 4.7 4.8 4.9 4.10

Linux/scripts/profile2linkerlist.pl

  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 #
 10 use strict;
 11 
 12 while (<>) {
 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 }

This page was automatically generated by LXR 0.3.1 (source).  •  Linux is a registered trademark of Linus Torvalds  •  Contact us