162306a36Sopenharmony_ci#!/usr/bin/env perl 262306a36Sopenharmony_ci# SPDX-License-Identifier: GPL-2.0 362306a36Sopenharmony_ci 462306a36Sopenharmony_ci# 562306a36Sopenharmony_ci# Takes a (sorted) output of readprofile and turns it into a list suitable for 662306a36Sopenharmony_ci# linker scripts 762306a36Sopenharmony_ci# 862306a36Sopenharmony_ci# usage: 962306a36Sopenharmony_ci# readprofile | sort -rn | perl profile2linkerlist.pl > functionlist 1062306a36Sopenharmony_ci# 1162306a36Sopenharmony_ciuse strict; 1262306a36Sopenharmony_ci 1362306a36Sopenharmony_ciwhile (<>) { 1462306a36Sopenharmony_ci my $line = $_; 1562306a36Sopenharmony_ci 1662306a36Sopenharmony_ci $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/; 1762306a36Sopenharmony_ci 1862306a36Sopenharmony_ci print "*(.text.$1)\n" 1962306a36Sopenharmony_ci unless ($line =~ /unknown/) || ($line =~ /total/); 2062306a36Sopenharmony_ci} 21