[PATCH 1/2] markup_oops.pl and GDB: markup_oops.pl: make it can showgdb command

From: Hui Zhu
Date: Mon Feb 22 2010 - 09:41:49 EST

Next message: Hui Zhu: "[PATCH 2/2] markup_oops.pl and GDB: GDB: make it can show gdb command"
Previous message: Hui Zhu: "[PATCH 0/2] markup_oops.pl and GDB: Let GDB can handle kernel oopsstack message"
Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]

This patch add a new option "-g" to markup_oops.pl. When use it,
markup_oops.pl will just show the gdb command.

Signed-off-by: Hui Zhu <teawater@xxxxxxxxx>

---
scripts/markup_oops.pl | 141 +++++++++++++++++++++++++++++++++++++++++++++++--
1 file changed, 137 insertions(+), 4 deletions(-)

--- a/scripts/markup_oops.pl
+++ b/scripts/markup_oops.pl
@@ -19,11 +19,14 @@ use Getopt::Long;
my $cross_compile = "";
my $vmlinux_name = "";
my $modulefile = "";
+my $show_gdb_cmd = 0;
+my @stack;

# Get options
Getopt::Long::GetOptions(
'cross-compile|c=s' => \$cross_compile,
'module|m=s' => \$modulefile,
+ 'gdb|g!' => \$show_gdb_cmd,
'help|h' => \&usage,
) || usage ();
my $vmlinux_name = $ARGV[0];
@@ -58,8 +61,21 @@ sub parse_x86_regs
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{"%ebp"} = $3;
$regs{"%esp"} = $4;
}
+ if ($line =~ / DS: ([0-9a-f]+) ES: ([0-9a-f]+) FS: ([0-9a-f]+) GS: ([0-9a-f]+) SS: ([0-9a-f]+)/) {
+ $regs{"%ds"} = $1;
+ $regs{"%es"} = $2;
+ $regs{"%fs"} = $3;
+ $regs{"%gs"} = $4;
+ $regs{"%ss"} = $5;
+ }
+ if ($line =~ /RSP: ([0-9a-f]+):([0-9a-f]+) EFLAGS: ([0-9a-f]+)/) {
+ $regs{"%ss"} = $1;
+ $regs{"%esp"} = $2;
+ $regs{"%eflags"} = $3;
+ }
if ($line =~ /RAX: ([0-9a-f]+) RBX: ([0-9a-f]+) RCX: ([0-9a-f]+)/) {
$regs{"%eax"} = $1;
$regs{"%ebx"} = $2;
@@ -71,6 +87,7 @@ sub parse_x86_regs
$regs{"%edi"} = $3;
}
if ($line =~ /RBP: ([0-9a-f]+) R08: ([0-9a-f]+) R09: ([0-9a-f]+)/) {
+ $regs{"%ebp"} = $1;
$regs{"%r08"} = $2;
$regs{"%r09"} = $3;
}
@@ -84,6 +101,15 @@ sub parse_x86_regs
$regs{"%r14"} = $2;
$regs{"%r15"} = $3;
}
+ if ($line =~ /FS: [0-9a-f]+$([0-9a-f]+)$ GS:[0-9a-f]+$([0-9a-f]+)$/) {
+ $regs{"%fs"} = $1;
+ $regs{"%gs"} = $2;
+ }
+ if ($line =~ /CS: ([0-9a-f]+) DS: ([0-9a-f]+) ES: ([0-9a-f]+)/) {
+ $regs{"%cs"} = $1;
+ $regs{"%ds"} = $2;
+ $regs{"%es"} = $3;
+ }
}

sub reg_name
@@ -155,14 +181,36 @@ sub process_x86_regs
return $str;
}

+my $is_stack = 0;
+sub parse_x86_stack
+{
+ my ($line) = @_;
+
+ if ($line =~ s/^Stack: //) {
+ $is_stack = 1;
+ }
+
+ if ($is_stack && $line =~ /^ *[0-9a-f]+/) {
+ while ($line =~ s/([0-9a-f]+)//) {
+ $stack[$#stack + 1] = $1;
+ }
+ }
+ else {
+ $is_stack = 0;
+ }
+}
+
# parse the oops
while (<STDIN>) {
my $line = $_;
- if ($line =~ /EIP: 0060:\[\<([a-z0-9]+)\>\]/) {
- $target = $1;
+ if ($line =~ /EIP: ([0-9a-f]+):\[\<([a-z0-9]+)\>\] EFLAGS: ([0-9a-f]+)/) {
+ $regs{"%cs"} = $1;
+ $target = $2;
+ $regs{"%eflags"} = $3;
}
- if ($line =~ /RIP: 0010:\[\<([a-z0-9]+)\>\]/) {
- $target = $1;
+ if ($line =~ /RIP: ([0-9a-f]+):\[\<([a-z0-9]+)\>\]/) {
+ $regs{"%cs"} = $1;
+ $target = $2;
}
if ($line =~ /EIP is at ([a-zA-Z0-9\_]+)\+0x([0-9a-f]+)\/0x[a-f0-9]/) {
$function = $1;
@@ -181,6 +229,7 @@ while (<STDIN>) {
$module = $3;
}
parse_x86_regs($line);
+ parse_x86_stack($line);
}

my $decodestart = Math::BigInt->from_hex("0x$target") - Math::BigInt->from_hex("0x$func_offset");
@@ -212,6 +261,89 @@ if ($module ne "") {
close(FILE);
}

+sub show_x86_regs
+{
+ if (defined($regs{"%r08"})) {
+ #64-bit
+ print "set \$rax=0x$regs{'%eax'}\n";
+ print "set \$rbx=0x$regs{'%ebx'}\n";
+ print "set \$rcx=0x$regs{'%ecx'}\n";
+ print "set \$rdx=0x$regs{'%edx'}\n";
+ print "set \$rsi=0x$regs{'%esi'}\n";
+ print "set \$rdi=0x$regs{'%edi'}\n";
+ print "set \$rsp=0x$regs{'%esp'}\n";
+ print "set \$rbp=0x$regs{'%ebp'}\n";
+ print "set \$r8=0x$regs{'%r08'}\n";
+ print "set \$r9=0x$regs{'%r09'}\n";
+ print "set \$r10=0x$regs{'%r10'}\n";
+ print "set \$r11=0x$regs{'%r11'}\n";
+ print "set \$r12=0x$regs{'%r12'}\n";
+ print "set \$r13=0x$regs{'%r13'}\n";
+ print "set \$r14=0x$regs{'%r14'}\n";
+ print "set \$r15=0x$regs{'%r15'}\n";
+ print "set \$rip=0x$target\n";
+ print "set \$eflags=0x$regs{'%eflags'}\n";
+ print "set \$cs=0x$regs{'%cs'}\n";
+ print "set \$ss=0x$regs{'%ss'}\n";
+ print "set \$ds=0x$regs{'%ds'}\n";
+ print "set \$es=0x$regs{'%es'}\n";
+ print "set \$fs=0x$regs{'%fs'}\n";
+ print "set \$gs=0x$regs{'%gs'}\n";
+ }
+ else {
+ #32-bit
+ print "set \$eax=0x$regs{'%eax'}\n" if (defined($regs{"%eax"}));
+ print "set \$ecx=0x$regs{'%ecx'}\n" if (defined($regs{"%ecx"}));
+ print "set \$edx=0x$regs{'%edx'}\n" if (defined($regs{"%edx"}));
+ print "set \$ebx=0x$regs{'%ebx'}\n" if (defined($regs{"%ebx"}));
+ print "set \$esp=0x$regs{'%esp'}\n" if (defined($regs{"%esp"}));
+ print "set \$ebp=0x$regs{'%ebp'}\n" if (defined($regs{"%ebp"}));
+ print "set \$esi=0x$regs{'%esi'}\n" if (defined($regs{"%esi"}));
+ print "set \$edi=0x$regs{'%edi'}\n" if (defined($regs{"%edi"}));
+ print "set \$cs=0x$regs{'%cs'}\n" if (defined($regs{"%cs"}));
+ print "set \$ss=0x$regs{'%ss'}\n" if (defined($regs{"%ss"}));
+ print "set \$ds=0x$regs{'%ds'}\n" if (defined($regs{"%ds"}));
+ print "set \$es=0x$regs{'%es'}\n" if (defined($regs{"%es"}));
+ print "set \$fs=0x$regs{'%fs'}\n" if (defined($regs{"%fs"}));
+ print "set \$gs=0x$regs{'%gs'}\n" if (defined($regs{"%gs"}));
+ print "flushregs\n";
+ print "set \$eip=0x$target\n" if (defined($target));
+ print "set \$eflags=0x$regs{'%eflags'}\n" if (defined($regs{"%eflags"}));
+ }
+}
+
+# Show gdb command if -g.
+if ($show_gdb_cmd) {
+ # Show the vmlinux load command.
+ print "file $vmlinux_name\n";
+
+ # Show the module load command if need.
+ if ($modulefile ne "") {
+ print "add-symbol-file $modulefile $vmaoffset\n";
+ }
+
+ # Show the target empty command.
+ print "target empty\n";
+
+ # Show the registers set commands.
+ show_x86_regs();
+
+ # Show the memory set commands.
+ my $stack_address = Math::BigInt->from_hex("0x".$regs{"%esp"});
+ foreach my $num(@stack) {
+ print 'set (*(uint'.(length ($num) * 4)."_t (*)) $stack_address) = 0x$num\n";
+ $stack_address += length ($num) / 2;
+ }
+
+ # Show "flushregs" command.
+ print "flushregs\n";
+
+ # Show "frame" command.
+ print "frame\n";
+
+ exit;
+}
+
my $counter = 0;
my $state = 0;
my $center = -1;
@@ -363,6 +495,7 @@ Usage:
OPTION:
-c, --cross-compile CROSS_COMPILE Specify the prefix used for toolchain.
-m, --module MODULE_DIRNAME Specify the module filename.
+ -g, --gdb Show GDB command.
-h, --help Help.
EOT
exit;

--
To unsubscribe from this list: send the line "unsubscribe linux-kernel" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
Please read the FAQ at http://www.tux.org/lkml/

Next message: Hui Zhu: "[PATCH 2/2] markup_oops.pl and GDB: GDB: make it can show gdb command"
Previous message: Hui Zhu: "[PATCH 0/2] markup_oops.pl and GDB: Let GDB can handle kernel oopsstack message"
Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]