diff options
Diffstat (limited to '')
-rwxr-xr-x | scripts/profile2linkerlist.pl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/scripts/profile2linkerlist.pl b/scripts/profile2linkerlist.pl new file mode 100755 index 000000000..316e71918 --- /dev/null +++ b/scripts/profile2linkerlist.pl @@ -0,0 +1,20 @@ +#!/usr/bin/env perl +# SPDX-License-Identifier: GPL-2.0 + +# +# 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/); +} |