linux-imx

#!/usr/bin/env perl

​

use File::Basename;

use Math::BigInt;

use Getopt::Long;

​

# Copyright 2008, Intel Corporation

#

# This file is part of the Linux kernel

#

# This program file is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by the

# Free Software Foundation; version 2 of the License.

#

# Authors:

#   Arjan van de Ven <arjan@linux.intel.com>

​

​

my $cross_compile = "";

my $vmlinux_name = "";

my $modulefile = "";

​

# Get options

Getopt::Long::GetOptions(

    'cross-compile|c=s' => \$cross_compile,

    'module|m=s'        => \$modulefile,

    'help|h'        => \&usage,

) || usage ();

my $vmlinux_name = $ARGV[0];

if (!defined($vmlinux_name)) {

    my $kerver = `uname -r`;

    chomp($kerver);

    $vmlinux_name = "/lib/modules/$kerver/build/vmlinux";

    print "No vmlinux specified, assuming $vmlinux_name\n";

}

my $filename = $vmlinux_name;

​

# Parse the oops to find the EIP value

​

my $target = "0";

my $function;

my $module = "";

my $func_offset = 0;

my $vmaoffset = 0;

​

my %regs;

​

​

sub parse_x86_regs

{

    my ($line) = @_;

    if ($line =~ /EAX: ([0-9a-f]+) EBX: ([0-9a-f]+) ECX: ([0-9a-f]+) EDX: ([0-9a-f]+)/) {

        $regs{"%eax"} = $1;

        $regs{"%ebx"} = $2;

        $regs{"%ecx"} = $3;

        $regs{"%edx"} = $4;

    }

    if ($line =~ /ESI: ([0-9a-f]+) EDI: ([0-9a-f]+) EBP: ([0-9a-f]+) ESP: ([0-9a-f]+)/) {

        $regs{"%esi"} = $1;

        $regs{"%edi"} = $2;

        $regs{"%esp"} = $4;

    }

    if ($line =~ /RAX: ([0-9a-f]+) RBX: ([0-9a-f]+) RCX: ([0-9a-f]+)/) {

        $regs{"%eax"} = $1;

        $regs{"%ebx"} = $2;

        $regs{"%ecx"} = $3;

    }

    if ($line =~ /RDX: ([0-9a-f]+) RSI: ([0-9a-f]+) RDI: ([0-9a-f]+)/) {

        $regs{"%edx"} = $1;

        $regs{"%esi"} = $2;

        $regs{"%edi"} = $3;

    }

    if ($line =~ /RBP: ([0-9a-f]+) R08: ([0-9a-f]+) R09: ([0-9a-f]+)/) {

        $regs{"%r08"} = $2;

        $regs{"%r09"} = $3;

    }

    if ($line =~ /R10: ([0-9a-f]+) R11: ([0-9a-f]+) R12: ([0-9a-f]+)/) {

        $regs{"%r10"} = $1;

        $regs{"%r11"} = $2;

        $regs{"%r12"} = $3;

    }

    if ($line =~ /R13: ([0-9a-f]+) R14: ([0-9a-f]+) R15: ([0-9a-f]+)/) {

        $regs{"%r13"} = $1;

        $regs{"%r14"} = $2;

        $regs{"%r15"} = $3;

    }

}

​

sub reg_name

{

    my ($reg) = @_;

    $reg =~ s/r(.)x/e\1x/;