From b23fc2511f18e931a58cf300080a7be88c5e8bfe Mon Sep 17 00:00:00 2001
From: Daniel Stenberg <daniel@haxx.se>
Date: Thu, 16 Aug 2007 08:10:45 +0000
Subject: [PATCH] Added a "RAM usage:" line to rockbox-info.txt which basically
 says how large portion of ram this rockbox occupies. The info is extracted
 from the map file, end - loadaddress.

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@14366 a1c6a512-1295-4272-9138-f99709370657
---
 tools/mkinfo.pl | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/tools/mkinfo.pl b/tools/mkinfo.pl
index bc6421ffe5..c97ff68a4d 100755
--- a/tools/mkinfo.pl
+++ b/tools/mkinfo.pl
@@ -29,6 +29,23 @@ sub cmd1line {
     return $out[0];
 }
 
+sub mapscan {
+    my ($f)=@_;
+    my $start, $end;
+    open(M, "<$f");
+    while(<M>) {
+        if($_ =~ / +0x([0-9a-f]+) *_end = \./) {
+            $end = $1;
+            last;
+        }
+        elsif($_ =~ / +0x([0-9a-f]+) *_loadaddress = \./) {
+            $start = $1;
+        }
+    }
+    # return number of bytes
+    return hex($end) - hex($start);
+}
+
 if(!$output) {
     print "Usage: mkinfo.pl <filename>\n";
     exit;
@@ -50,6 +67,7 @@ printf O ("Version: %s\n", $ENV{'VERSION'});
 printf O ("Binary: %s\n", $ENV{'BINARY'});
 printf O ("Binary size: %s\n", filesize($ENV{'BINARY'}));
 printf O ("Actual size: %s\n", filesize("apps/rockbox.bin"));
+printf O ("RAM usage: %s\n", mapscan("apps/rockbox.map"));
 
 # Variables identifying tool and build environment details
 printf O ("gcc: %s\n", cmd1line("$ENV{'CC'} --version"));
@@ -58,4 +76,3 @@ printf O ("Host gcc: %s\n", cmd1line("$ENV{'HOSTCC'} --version"));
 printf O ("Host system: %s\n", $ENV{'UNAME'});
 
 close(O);
-