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