run this script in your build dir to get a summary table presented with memory

consumptions used by all the codecs built


git-svn-id: svn://svn.rockbox.org/rockbox/trunk@18846 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Daniel Stenberg 2008-10-20 12:11:29 +00:00
parent 6c19b88245
commit 761366d8b8
1 changed files with 58 additions and 0 deletions

58
tools/codecscan.pl Executable file
View File

@ -0,0 +1,58 @@
#!/usr/bin/perl
$codecs="apps/codecs";
opendir(DIR, $codecs) || die "can't opendir $some_dir: $!";
my @maps = sort grep { /\.map/ && -f "$codecs/$_" } readdir(DIR);
closedir DIR;
print "Codec IRAM IBSS BSS Text \n";
for my $m (@maps) {
my ($iram, $ibss, $bss, $text)=scanmap($m);
printf("%-15s: %5d %5d %6d %6d\n",
$m, $iram, $ibss, $bss, $text);
}
sub scanmap {
my ($file)=@_;
open(F, "<$codecs/$file");
while(<F>) {
if(/[ \t]*0x([0-9a-f]+) *_plugin_start_addr/) {
#print "CODEC START: $1\n";
$codec = hex($1);
}
elsif(/[ \t]*0x([0-9a-f]+) *plugin_bss_start/) {
#print "CODEC BSS START: $1\n";
$codecbss = hex($1);
}
elsif(/[ \t]*0x([0-9a-f]+) *_plugin_end_addr/) {
#print "CODEC END: $1\n";
$bss = (hex($1) - $codecbss);
$codec = (hex($1) - $codec - $bss);
}
elsif(/[ \t]*0x([0-9a-f]+) *iramstart/) {
#print "IRAM START: $1\n";
$iram = hex($1);
}
elsif(/[ \t]*0x([0-9a-f]+) *iramend/) {
#print "IRAM END: $1\n";
$iram = (hex($1) - $iram);
}
elsif(/[ \t]*0x([0-9a-f]+) *iedata/) {
#print "IBSS START: $1\n";
$ibss = hex($1);
}
elsif(/[ \t]*0x([0-9a-f]+) *iend/) {
#print "IBSS END: $1\n";
$ibss = (hex($1) - $ibss);
}
}
close(F);
return ($iram, $ibss, $bss, $codec);
}