From 761366d8b84e523a39d182779d4824fefa6aae7f Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Mon, 20 Oct 2008 12:11:29 +0000
Subject: 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
---
 tools/codecscan.pl | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)
 create mode 100755 tools/codecscan.pl

(limited to 'tools/codecscan.pl')

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 @@
+#!/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);
+}
-- 
cgit v1.2.3