linux/scripts/profile2linkerlist.pl
<<
3ti 3ti 3to/spa> 3tospa> class="lxr_search">3ti ="+search" method="post" onsubmit="return do_search(this);">3ti 3ti 3ti Search 3tospa> class="lxr_prefs" 3ti 3to/spa> i < ="ajax+*" method="post" onsubmit="return false;">3toinput typ="vhidden" nam="vajax_lookup" id"vajax_lookup" alue="v">3i <
odiv id"vfile_contents"
< <1o/a>#!/usr/bin/perl
< <2o/a>3< <3o/a>#3< <4o/a># Takes a (sorted) output of readprofile and turns it into a list suitable for3< <5o/a># linker scripts3< <6o/a>#3< <7o/a># usage:3< <8o/a>#        readprofile | sort -rn | perl profile2linkerlist.pl > funcion>list3< <9o/a>#3< lista>use strict;3< 11o/a>3< 12o/a>while (<>) {3< 13o/a>  my $line = $_;3< 14o/a>3< 15o/a>  $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/;3< 16o/a>3< 17o/a>  print "*(.text.$1)\n"3< 18o/a>      unless ($line =~ /unknown/) || ($line =~ /total/);3< 19o/a>}
< 2ista>
The original LXR software by the LXR communitysta>, this experimental verson vby lxr@linux.nosta>. o/div odiv class="subfooter"> lxr.linux.no kindly hostedvby Redpill Linpro ASsta>, provider of Linux consulting and operaion>s services since 1995. o/div o/body o/html