d40449cafa84a44dac9f21c54364913c777ffc6d
[linux-2.6.git] / scripts / markup_oops.pl
1 #!/usr/bin/perl -w
2
3 use File::Basename;
4
5 # Copyright 2008, Intel Corporation
6 #
7 # This file is part of the Linux kernel
8 #
9 # This program file is free software; you can redistribute it and/or modify it
10 # under the terms of the GNU General Public License as published by the
11 # Free Software Foundation; version 2 of the License.
12 #
13 # Authors:
14 #       Arjan van de Ven <arjan@linux.intel.com>
15
16
17 my $vmlinux_name = $ARGV[0];
18 if (!defined($vmlinux_name)) {
19         my $kerver = `uname -r`;
20         chomp($kerver);
21         $vmlinux_name = "/lib/modules/$kerver/build/vmlinux";
22         print "No vmlinux specified, assuming $vmlinux_name\n";
23 }
24 my $filename = $vmlinux_name;
25 #
26 # Step 1: Parse the oops to find the EIP value
27 #
28
29 my $target = "0";
30 my $function;
31 my $module = "";
32 my $func_offset;
33 my $vmaoffset = 0;
34
35 while (<STDIN>) {
36         my $line = $_;
37         if ($line =~ /EIP: 0060:\[\<([a-z0-9]+)\>\]/) {
38                 $target = $1;
39         }
40         if ($line =~ /EIP is at ([a-zA-Z0-9\_]+)\+(0x[0-9a-f]+)\/0x[a-f0-9]/) {
41                 $function = $1;
42                 $func_offset = $2;
43         }
44
45         # check if it's a module
46         if ($line =~ /EIP is at ([a-zA-Z0-9\_]+)\+(0x[0-9a-f]+)\/0x[a-f0-9]+\W\[([a-zA-Z0-9\_\-]+)\]/) {
47                 $module = $3;
48         }
49 }
50
51 my $decodestart = hex($target) - hex($func_offset);
52 my $decodestop = $decodestart + 8192;
53 if ($target eq "0") {
54         print "No oops found!\n";
55         print "Usage: \n";
56         print "    dmesg | perl scripts/markup_oops.pl vmlinux\n";
57         exit;
58 }
59
60 # if it's a module, we need to find the .ko file and calculate a load offset
61 if ($module ne "") {
62         my $dir = dirname($filename);
63         $dir = $dir . "/";
64         my $mod = $module . ".ko";
65         my $modulefile = `find $dir -name $mod | head -1`;
66         chomp($modulefile);
67         $filename = $modulefile;
68         if ($filename eq "") {
69                 print "Module .ko file for $module not found. Aborting\n";
70                 exit;
71         }
72         # ok so we found the module, now we need to calculate the vma offset
73         open(FILE, "objdump -dS $filename |") || die "Cannot start objdump";
74         while (<FILE>) {
75                 if ($_ =~ /^([0-9a-f]+) \<$function\>\:/) {
76                         my $fu = $1;
77                         $vmaoffset = hex($target) - hex($fu) - hex($func_offset);
78                 }
79         }
80         close(FILE);
81 }
82
83 my $counter = 0;
84 my $state   = 0;
85 my $center  = 0;
86 my @lines;
87
88 sub InRange {
89         my ($address, $target) = @_;
90         my $ad = "0x".$address;
91         my $ta = "0x".$target;
92         my $delta = hex($ad) - hex($ta);
93
94         if (($delta > -4096) && ($delta < 4096)) {
95                 return 1;
96         }
97         return 0;
98 }
99
100
101
102 # first, parse the input into the lines array, but to keep size down,
103 # we only do this for 4Kb around the sweet spot
104
105 open(FILE, "objdump -dS --adjust-vma=$vmaoffset --start-address=$decodestart --stop-address=$decodestop $filename |") || die "Cannot start objdump";
106
107 while (<FILE>) {
108         my $line = $_;
109         chomp($line);
110         if ($state == 0) {
111                 if ($line =~ /^([a-f0-9]+)\:/) {
112                         if (InRange($1, $target)) {
113                                 $state = 1;
114                         }
115                 }
116         } else {
117                 if ($line =~ /^([a-f0-9][a-f0-9][a-f0-9][a-f0-9][a-f0-9][a-f0-9]+)\:/) {
118                         my $val = $1;
119                         if (!InRange($val, $target)) {
120                                 last;
121                         }
122                         if ($val eq $target) {
123                                 $center = $counter;
124                         }
125                 }
126                 $lines[$counter] = $line;
127
128                 $counter = $counter + 1;
129         }
130 }
131
132 close(FILE);
133
134 if ($counter == 0) {
135         print "No matching code found \n";
136         exit;
137 }
138
139 if ($center == 0) {
140         print "No matching code found \n";
141         exit;
142 }
143
144 my $start;
145 my $finish;
146 my $codelines = 0;
147 my $binarylines = 0;
148 # now we go up and down in the array to find how much we want to print
149
150 $start = $center;
151
152 while ($start > 1) {
153         $start = $start - 1;
154         my $line = $lines[$start];
155         if ($line =~ /^([a-f0-9]+)\:/) {
156                 $binarylines = $binarylines + 1;
157         } else {
158                 $codelines = $codelines + 1;
159         }
160         if ($codelines > 10) {
161                 last;
162         }
163         if ($binarylines > 20) {
164                 last;
165         }
166 }
167
168
169 $finish = $center;
170 $codelines = 0;
171 $binarylines = 0;
172 while ($finish < $counter) {
173         $finish = $finish + 1;
174         my $line = $lines[$finish];
175         if ($line =~ /^([a-f0-9]+)\:/) {
176                 $binarylines = $binarylines + 1;
177         } else {
178                 $codelines = $codelines + 1;
179         }
180         if ($codelines > 10) {
181                 last;
182         }
183         if ($binarylines > 20) {
184                 last;
185         }
186 }
187
188
189 my $i;
190
191 my $fulltext = "";
192 $i = $start;
193 while ($i < $finish) {
194         if ($i == $center) {
195                 $fulltext = $fulltext . "*$lines[$i]     <----- faulting instruction\n";
196         } else {
197                 $fulltext = $fulltext .  " $lines[$i]\n";
198         }
199         $i = $i +1;
200 }
201
202 print $fulltext;
203