linux/scripts/profile2linkerlist.pl
<<
ptio.14/spa > .14/form> .14a ptio.1 href="../linux+v3.7.1/scripts/profile2linkerlist.pl">ptio.14img src="../.static/gfx/right.png" alt=">>">pt4/spa > pt4spa class="lxr_search">ptioptio.14input typ hidden" nam navtarget" tion ">ptio.14input typ text" nam search" id search">ptio.14butt/optyp submit">Search .14/form> 4/spa > pt4spa class="lxr_prefs"> .14a href="+prefs?return=scripts/profile2linkerlist.pl"ptio.1 onclick="return ajax_prefs();">ptio.1Prefs .14/a>pt4/spa > io.1 14/div> io.1 14form ac ="ajax+*" method="post" onsubmit="return false;">pt4input typ hidden" nam ajax_lookup" id ajax_lookup" tion ">pio.1 14/form> pio.1 14div class="headingbott/m">
io.1
io.1 .1 14div id search_results" class="search_results" .> io.1 14/div> 4div id content"> 4div id file_contents">
1 114/a>#!/usr/bin/perl
1 124/a>p1 134/a>#p1 144/a># Takes a (sorted) output of readprofile and turns it into a list suitable forp1 154/a># linker scriptsp1 164/a>#p1 174/a># usage:p1 184/a>#        readprofile | sort -rn | perl profile2linkerlist.pl > func
	  listp1 194/a>#p1 18.1a>use strict;p1 114/a>p1 124/a>while (<>) {p1 134/a>  my $line = $_;p1 144/a>p1 154/a>  $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/;p1 164/a>p1 174/a>  print "*(.text.$1)\n"p1 184/a>      unless ($line =~ /unknown/) || ($line =~ /total/);p1 194/a>}
1 28.1a>
4/div> 4div class="footer"> The original LXR software by the LXR community.1a>, this experimental verslxr@linux.no.1a>. 4/div> 4div class="subfooter"> lxr.linux.no kindly hostedpby Redpill Linpro AS.1a>, provider of Linux consulting and opera s services since 1995. 4/div> 4/body> 4/html>