Something went wrong. Try again.
Linux kernel mirror (for testing) git.kernel.org/pub/scm/linux/kernel/git/torvalds/linux.git
Something went wrong. Try again.
123456789101112131415161718192021#!/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/);}