blob: 4f0cbc73af3bfda69ec87d3b26e0400539cb07b8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
#!/usr/bin/perl
$codecs="lib/rbcodec/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);
}
|
