forked from Qortal/Brooklyn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
414 B
20 lines
414 B
#!/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/); |
|
}
|
|
|