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
|
#!/usr/bin/perl
$OBJDUMP=$ARGV[0];
sub swapdata {
local ($num) = @_;
return substr($num, 6, 2).substr($num, 4, 2).substr ($num, 2, 2).substr ($num, 0, 2);
}
open (DATA, $OBJDUMP.' --full-contents --section=.data getconsdata.o | grep \'^ 00\' |') ||
die ('Cant objdump!');
while (<DATA>) {
($addr, $data0, $data1, $data2, $data3) = split (' ');
$dat[hex($addr)] = hex(&swapdata($data0));
$dat[hex($addr)+4] = hex(&swapdata($data1));
$dat[hex($addr)+8] = hex(&swapdata($data2));
$dat[hex($addr)+12] = hex(&swapdata($data3));
}
close (DATA);
open (DATA, $OBJDUMP.' --syms getconsdata.o |') || die ('Cant objdump!');
while (<DATA>) {
/elf32/ && ( $elf = 1 );
/a.out/ && ( $aout = 1 );
next if ($aout && ! / 07 /);
next if ($elf && ! (/^00...... g/ && /.data/));
next if (!$aout && !$elf);
($addr, $flags, $sect, $a1, $a2, $a3, $name) = split (' ') if $aout;
$nam[hex($addr)] = substr($name, 1) if $aout;
if ($elf) {
chomp;
$addr = substr ($_, 0, 8);
$name = substr ($_, 32);
$nam[hex($addr)] = $name;
}
}
close (DATA);
print "/*\n * *** THIS FILE IS AUTOMATICALLY GENERATED. DO NOT EDIT! ***\n */\n";
for ($i = 0; $i < hex($addr)+12; $i ++) {
print "unsigned long $nam[$i] = $dat[$i];\n" if $dat[$i];
print "#define __HAS_$nam[$i]\n" if $dat[$i];
}
|
