* [PATCH 1/2] markup_oops.pl and GDB: markup_oops.pl: make it can show gdb command
@ 2010-02-22 14:41 Hui Zhu
0 siblings, 0 replies; only message in thread
From: Hui Zhu @ 2010-02-22 14:41 UTC (permalink / raw)
To: Andrew Morton, Arjan van de Ven, ozan, Matthew Wilcox,
linux-kernel, gdb-patches ml, Michal Marek
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@gmail.com>
---
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;
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2010-02-22 14:41 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-02-22 14:41 [PATCH 1/2] markup_oops.pl and GDB: markup_oops.pl: make it can show gdb command Hui Zhu
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.