1#!/usr/bin/env perl 2# SPDX-License-Identifier: GPL-2.0 3 4# 5# Takes a (sorted) output of readprofile and turns it into a list suitable for 6# linker scripts 7# 8# usage: 9# readprofile | sort -rn | perl profile2linkerlist.pl > functionlist 10# 11use strict; 12 13while (<>) { 14 my $line = $_; 15 16 $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/; 17 18 print "*(.text.$1)\n" 19 unless ($line =~ /unknown/) || ($line =~ /total/); 20} 21