diff options
author | Daniel Stenberg <daniel@haxx.se> | 2008-10-20 12:11:29 +0000 |
---|---|---|
committer | Daniel Stenberg <daniel@haxx.se> | 2008-10-20 12:11:29 +0000 |
commit | 761366d8b84e523a39d182779d4824fefa6aae7f (patch) | |
tree | 028820f1d16cb9e0169e0d9fb6dddc89db3548aa | |
parent | 6c19b8824518619b7fbfb6dfd1061539e3c9cb82 (diff) | |
download | rockbox-761366d8b84e523a39d182779d4824fefa6aae7f.tar.gz rockbox-761366d8b84e523a39d182779d4824fefa6aae7f.zip |
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
-rwxr-xr-x | tools/codecscan.pl | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/tools/codecscan.pl b/tools/codecscan.pl new file mode 100755 index 0000000000..c21295d49f --- /dev/null +++ b/tools/codecscan.pl | |||
@@ -0,0 +1,58 @@ | |||
1 | #!/usr/bin/perl | ||
2 | |||
3 | $codecs="apps/codecs"; | ||
4 | |||
5 | opendir(DIR, $codecs) || die "can't opendir $some_dir: $!"; | ||
6 | my @maps = sort grep { /\.map/ && -f "$codecs/$_" } readdir(DIR); | ||
7 | closedir DIR; | ||
8 | |||
9 | print "Codec IRAM IBSS BSS Text \n"; | ||
10 | |||
11 | |||
12 | for my $m (@maps) { | ||
13 | my ($iram, $ibss, $bss, $text)=scanmap($m); | ||
14 | printf("%-15s: %5d %5d %6d %6d\n", | ||
15 | $m, $iram, $ibss, $bss, $text); | ||
16 | } | ||
17 | |||
18 | sub scanmap { | ||
19 | my ($file)=@_; | ||
20 | |||
21 | open(F, "<$codecs/$file"); | ||
22 | |||
23 | while(<F>) { | ||
24 | if(/[ \t]*0x([0-9a-f]+) *_plugin_start_addr/) { | ||
25 | #print "CODEC START: $1\n"; | ||
26 | $codec = hex($1); | ||
27 | } | ||
28 | elsif(/[ \t]*0x([0-9a-f]+) *plugin_bss_start/) { | ||
29 | #print "CODEC BSS START: $1\n"; | ||
30 | $codecbss = hex($1); | ||
31 | } | ||
32 | elsif(/[ \t]*0x([0-9a-f]+) *_plugin_end_addr/) { | ||
33 | #print "CODEC END: $1\n"; | ||
34 | $bss = (hex($1) - $codecbss); | ||
35 | $codec = (hex($1) - $codec - $bss); | ||
36 | } | ||
37 | elsif(/[ \t]*0x([0-9a-f]+) *iramstart/) { | ||
38 | #print "IRAM START: $1\n"; | ||
39 | $iram = hex($1); | ||
40 | } | ||
41 | elsif(/[ \t]*0x([0-9a-f]+) *iramend/) { | ||
42 | #print "IRAM END: $1\n"; | ||
43 | $iram = (hex($1) - $iram); | ||
44 | } | ||
45 | elsif(/[ \t]*0x([0-9a-f]+) *iedata/) { | ||
46 | #print "IBSS START: $1\n"; | ||
47 | $ibss = hex($1); | ||
48 | } | ||
49 | elsif(/[ \t]*0x([0-9a-f]+) *iend/) { | ||
50 | #print "IBSS END: $1\n"; | ||
51 | $ibss = (hex($1) - $ibss); | ||
52 | } | ||
53 | } | ||
54 | |||
55 | close(F); | ||
56 | |||
57 | return ($iram, $ibss, $bss, $codec); | ||
58 | } | ||