disas-objdump.pl (8dc6d24091edc34be1f989a2d92703130760401f) disas-objdump.pl (42eed424e1ea6469ce73cb2fdddb0d31bebb686a)
1#!/usr/bin/perl -w
2
3use File::Temp qw/ tempfile /;
4use Getopt::Long;
5
6# Default to the system objdump if a cross-compiler edition not given.
7my $aobjdump = "objdump";
8my $hobjdump = "";

--- 15 unchanged lines hidden (view full) ---

24binmode($outh);
25END { unlink $outname; }
26
27# Pre-construct the command-lines for executing the dump.
28sub mkobjcommand ($$) {
29 my ($cmd, $mach) = @_;
30 return 0 if !$mach;
31 $cmd = $aobjdump if !$cmd;
1#!/usr/bin/perl -w
2
3use File::Temp qw/ tempfile /;
4use Getopt::Long;
5
6# Default to the system objdump if a cross-compiler edition not given.
7my $aobjdump = "objdump";
8my $hobjdump = "";

--- 15 unchanged lines hidden (view full) ---

24binmode($outh);
25END { unlink $outname; }
26
27# Pre-construct the command-lines for executing the dump.
28sub mkobjcommand ($$) {
29 my ($cmd, $mach) = @_;
30 return 0 if !$mach;
31 $cmd = $aobjdump if !$cmd;
32 return "$cmd -m $mach --disassemble-all -b binary $outname";
32 return "$cmd -m $mach --disassemble-all -b binary";
33}
34
35$objdump[1] = mkobjcommand($hobjdump, $hmachine);
36$objdump[2] = mkobjcommand($tobjdump, $tmachine);
37
38# Zero-initialize current dumping state.
39my $mem = "";
40my $inobjd = 0;
33}
34
35$objdump[1] = mkobjcommand($hobjdump, $hmachine);
36$objdump[2] = mkobjcommand($tobjdump, $tmachine);
37
38# Zero-initialize current dumping state.
39my $mem = "";
40my $inobjd = 0;
41my $vma = 0;
41
42sub objcommand {
43 my $ret = $objdump[$inobjd];
44 if (!$ret) {
45 die "Host machine type not specified" if $inobjd == 1;
46 die "Target machine type not specified" if $inobjd == 2;
47 die "Internal error";
48 }
49 return $ret;
50}
51
52while (<>) {
42
43sub objcommand {
44 my $ret = $objdump[$inobjd];
45 if (!$ret) {
46 die "Host machine type not specified" if $inobjd == 1;
47 die "Target machine type not specified" if $inobjd == 2;
48 die "Internal error";
49 }
50 return $ret;
51}
52
53while (<>) {
53 # Collect the data from the relevant OBJD-* lines.
54 # Collect the data from the relevant OBJD-* lines ...
54 if (/^OBJD-H: /) {
55 die "Internal error" if $inobjd == 2;
56 $mem = $mem . pack("H*", substr($_, 8, -1));
57 $inobjd = 1;
58 } elsif (/^OBJD-T: /) {
59 die "Internal error" if $inobjd == 1;
60 $mem = $mem . pack("H*", substr($_, 8, -1));
61 $inobjd = 2;
62 }
63 # ... which will always be followed by a blank line,
64 # at which point we should produce our dump.
65 elsif ($inobjd) {
66 # Rewrite the temp file in one go; it will usually be small.
67 sysseek $outh, 0, 0;
68 truncate $outh, 0;
69 syswrite $outh, $mem;
70
55 if (/^OBJD-H: /) {
56 die "Internal error" if $inobjd == 2;
57 $mem = $mem . pack("H*", substr($_, 8, -1));
58 $inobjd = 1;
59 } elsif (/^OBJD-T: /) {
60 die "Internal error" if $inobjd == 1;
61 $mem = $mem . pack("H*", substr($_, 8, -1));
62 $inobjd = 2;
63 }
64 # ... which will always be followed by a blank line,
65 # at which point we should produce our dump.
66 elsif ($inobjd) {
67 # Rewrite the temp file in one go; it will usually be small.
68 sysseek $outh, 0, 0;
69 truncate $outh, 0;
70 syswrite $outh, $mem;
71
72 my $cmd = objcommand();
73 $cmd = $cmd . " --adjust-vma=" . $vma if $vma;
74 $cmd = $cmd . " " . $outname;
75
71 # Pipe from objdump...
76 # Pipe from objdump...
72 open IN, "-|", objcommand();
77 open IN, "-|", $cmd;
73
74 # ... copying all but the first 7 lines of boilerplate to our stdout.
75 my $i = 0;
76 while (<IN>) {
77 print if (++$i > 7);
78 }
79 close IN;
80 print "\n";
81
82 $mem = "";
83 $inobjd = 0;
78
79 # ... copying all but the first 7 lines of boilerplate to our stdout.
80 my $i = 0;
81 while (<IN>) {
82 print if (++$i > 7);
83 }
84 close IN;
85 print "\n";
86
87 $mem = "";
88 $inobjd = 0;
89 $vma = 0;
90 }
91 # The line before "OBJD-*" will be of the form "0x<hex>+: +\n".
92 # Extract the value for passing to --adjust-vma.
93 elsif (/^(0x[0-9a-fA-F]+):\s*$/) {
94 $vma = $1;
95 print;
84 } else {
85 print;
86 }
87}
96 } else {
97 print;
98 }
99}