disas-objdump.pl 2.66 KB
Newer Older
1 2 3
#!/usr/bin/env perl

use warnings;
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

use File::Temp qw/ tempfile /;
use Getopt::Long;

# Default to the system objdump if a cross-compiler edition not given.
my $aobjdump = "objdump";
my $hobjdump = "";
my $tobjdump = "";
my $hmachine = "";
my $tmachine = "";

GetOptions ('O|objdump=s' => \$aobjdump,
            'host-objdump=s' => \$hobjdump,
            'target-objdump=s' => \$tobjdump,
            'h|host-machine=s' => \$hmachine,
            't|target-machine=s' => \$tmachine);

# But we can't default the machines.  Sanity check that we've at least one.
die "No host or target machine type" if !$hmachine && !$tmachine;

# Reuse one temp file for all of the hunks.
my ($outh, $outname) = tempfile();
binmode($outh);
END { unlink $outname; }

# Pre-construct the command-lines for executing the dump.
sub mkobjcommand ($$) {
    my ($cmd, $mach) = @_;
    return 0 if !$mach;
    $cmd = $aobjdump if !$cmd;
34
    return "$cmd -m $mach --disassemble-all -b binary";
35 36 37 38 39 40 41 42
}

$objdump[1] = mkobjcommand($hobjdump, $hmachine);
$objdump[2] = mkobjcommand($tobjdump, $tmachine);

# Zero-initialize current dumping state.
my $mem = "";
my $inobjd = 0;
43
my $vma = 0;
44 45 46 47 48 49 50 51 52 53 54 55

sub objcommand {
    my $ret = $objdump[$inobjd];
    if (!$ret) {
        die "Host machine type not specified" if $inobjd == 1;
        die "Target machine type not specified" if $inobjd == 2;
        die "Internal error";
    }
    return $ret;
}

while (<>) {
56
    # Collect the data from the relevant OBJD-* lines ...
57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73
    if (/^OBJD-H: /) {
        die "Internal error" if $inobjd == 2;
        $mem = $mem . pack("H*", substr($_, 8, -1));
        $inobjd = 1;
    } elsif (/^OBJD-T: /) {
        die "Internal error" if $inobjd == 1;
        $mem = $mem . pack("H*", substr($_, 8, -1));
        $inobjd = 2;
    }
    # ... which will always be followed by a blank line,
    # at which point we should produce our dump.
    elsif ($inobjd) {
        # Rewrite the temp file in one go; it will usually be small.
        sysseek $outh, 0, 0;
        truncate $outh, 0;
        syswrite $outh, $mem;

74 75 76 77
        my $cmd = objcommand();
        $cmd = $cmd . " --adjust-vma=" . $vma if $vma;
        $cmd = $cmd . " " . $outname;

78
        # Pipe from objdump...
79
        open IN, "-|", $cmd;
80 81 82 83 84 85 86 87 88 89 90

        # ... copying all but the first 7 lines of boilerplate to our stdout.
	my $i = 0;
	while (<IN>) {
	    print if (++$i > 7);
        }
        close IN;
        print "\n";

        $mem = "";
        $inobjd = 0;
91 92 93 94 95 96 97
        $vma = 0;
    }
    # The line before "OBJD-*" will be of the form "0x<hex>+: +\n".
    # Extract the value for passing to --adjust-vma.
    elsif (/^(0x[0-9a-fA-F]+):\s*$/) {
        $vma = $1;
        print;
98 99 100 101
    } else {
        print;
    }
}