diff options
Diffstat (limited to 'tools')
-rw-r--r-- | tools/ovl_offset.pl | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/tools/ovl_offset.pl b/tools/ovl_offset.pl new file mode 100644 index 0000000000..89c3468556 --- /dev/null +++ b/tools/ovl_offset.pl | |||
@@ -0,0 +1,31 @@ | |||
1 | #!/usr/bin/perl | ||
2 | |||
3 | # Calculate the highest possible location for an overlay based | ||
4 | # on a reference map file (.refmap) | ||
5 | |||
6 | sub map_scan { | ||
7 | my ($map) = @_; | ||
8 | my $ramstart = -1, $ramsize = -1, $startaddr = -1, $endaddr = -1; | ||
9 | open (MAP, "<$map"); | ||
10 | while (<MAP>) { | ||
11 | if ($_ =~ /^PLUGIN_RAM +0x([0-9a-f]+) +0x([0-9a-f]+)$/) { | ||
12 | $ramstart = hex($1); | ||
13 | $ramsize = hex($2); | ||
14 | } | ||
15 | elsif ($_ =~ / +0x([0-9a-f]+) +_?plugin_start_addr = ./) { | ||
16 | $startaddr = hex($1); | ||
17 | } | ||
18 | elsif ($_ =~ / +0x([0-9a-f]+) +_?plugin_end_addr = ./) { | ||
19 | $endaddr = hex($1); | ||
20 | } | ||
21 | } | ||
22 | close (MAP); | ||
23 | if ($ramstart < 0 || $ramsize < 0 || $startaddr < 0 || $endaddr < 0 | ||
24 | || $ramstart != $startaddr) { | ||
25 | printf "Could not analyze map file.\n"; | ||
26 | exit 1; | ||
27 | } | ||
28 | return $ramstart + $ramsize - $endaddr; | ||
29 | } | ||
30 | |||
31 | printf map_scan($ARGV[0]) & ~0xf; | ||