Skip to main content

Browse the archive

Staging
v0.5.1
https://github.com/torvalds/linux
02 December 2023, 22:23:51 UTC
Revision a111daf0c53ae91e71fd2bfe7497862d14132e3e authored by Linus Torvalds on 19 June 2022, 20:06:47 UTC, committed by Linus Torvalds on 19 June 2022, 20:06:47 UTC 
Linux 5.19-rc3
1 parent 05c6ca8
Raw File
Tip revision: a111daf0c53ae91e71fd2bfe7497862d14132e3e authored by Linus Torvalds on 19 June 2022, 20:06:47 UTC
Linux 5.19-rc3
Tip revision: a111daf
profile2linkerlist.pl 
#!/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/);
}
back to top