3 # looking for a line like:
4 # 00009800 g .rodata 00000000 _rom_src_data
6 open(OD, "m68hc11-objdump -x rom2.elf|") or die "Could not open objdump of rom image!\n";
8 if (/^([0-9a-fA-F]+).*_rom_src_data$/) { $origin = $1 }
11 if (!defined $origin) {
12 print "WARNING!!! No bz2 data could be found in the ROM image!\n";
15 $origin = hex($origin);
17 open(PL, "src2asm.pl") or die "Could not open src2asm.pl\n";
19 if (/^\$origin = 0x([0-9a-fA-F]+);$/) { $pl_origin = $1 }
22 if (!defined $pl_origin) {
23 print "WARNING!!! Couldn't find origin in src2asm.pl!\n";
26 $pl_origin = hex($pl_origin);
27 if ($pl_origin != $origin) {
28 printf "WARNING!!! The origin of the bz2 data is now 0x%04x. This needs to\n", $origin;
29 printf " be updated in src2asm.pl (which currently says 0x%04x).\n", $pl_origin;
32 printf "Origin of bz2 data is 0x%04x and correct.\n", $origin;