Commit | Line | Data |
---|---|---|
5aea50b5 AV |
1 | #!/usr/bin/perl -w |
2 | ||
3 | # Copyright 2008, Intel Corporation | |
4 | # | |
5 | # This file is part of the Linux kernel | |
6 | # | |
7 | # This program file is free software; you can redistribute it and/or modify it | |
8 | # under the terms of the GNU General Public License as published by the | |
9 | # Free Software Foundation; version 2 of the License. | |
10 | # | |
11 | # Authors: | |
12 | # Arjan van de Ven <arjan@linux.intel.com> | |
13 | ||
14 | ||
15 | my $vmlinux_name = $ARGV[0]; | |
16 | ||
17 | # | |
18 | # Step 1: Parse the oops to find the EIP value | |
19 | # | |
20 | ||
21 | my $target = "0"; | |
22 | while (<STDIN>) { | |
23 | if ($_ =~ /EIP: 0060:\[\<([a-z0-9]+)\>\]/) { | |
24 | $target = $1; | |
25 | } | |
26 | } | |
27 | ||
28 | if ($target =~ /^f8/) { | |
29 | print "This script does not work on modules ... \n"; | |
30 | exit; | |
31 | } | |
32 | ||
33 | if ($target eq "0") { | |
34 | print "No oops found!\n"; | |
35 | print "Usage: \n"; | |
36 | print " dmesg | perl scripts/markup_oops.pl vmlinux\n"; | |
37 | exit; | |
38 | } | |
39 | ||
40 | my $counter = 0; | |
41 | my $state = 0; | |
42 | my $center = 0; | |
43 | my @lines; | |
44 | ||
45 | sub InRange { | |
46 | my ($address, $target) = @_; | |
47 | my $ad = "0x".$address; | |
48 | my $ta = "0x".$target; | |
49 | my $delta = hex($ad) - hex($ta); | |
50 | ||
51 | if (($delta > -4096) && ($delta < 4096)) { | |
52 | return 1; | |
53 | } | |
54 | return 0; | |
55 | } | |
56 | ||
57 | ||
58 | ||
59 | # first, parse the input into the lines array, but to keep size down, | |
60 | # we only do this for 4Kb around the sweet spot | |
61 | ||
62 | my $filename; | |
63 | ||
64 | open(FILE, "objdump -dS $vmlinux_name |") || die "Cannot start objdump"; | |
65 | ||
66 | while (<FILE>) { | |
67 | my $line = $_; | |
68 | chomp($line); | |
69 | if ($state == 0) { | |
70 | if ($line =~ /^([a-f0-9]+)\:/) { | |
71 | if (InRange($1, $target)) { | |
72 | $state = 1; | |
73 | } | |
74 | } | |
75 | } else { | |
76 | if ($line =~ /^([a-f0-9][a-f0-9][a-f0-9][a-f0-9][a-f0-9][a-f0-9]+)\:/) { | |
77 | my $val = $1; | |
78 | if (!InRange($val, $target)) { | |
79 | last; | |
80 | } | |
81 | if ($val eq $target) { | |
82 | $center = $counter; | |
83 | } | |
84 | } | |
85 | $lines[$counter] = $line; | |
86 | ||
87 | $counter = $counter + 1; | |
88 | } | |
89 | } | |
90 | ||
91 | close(FILE); | |
92 | ||
93 | if ($counter == 0) { | |
94 | print "No matching code found \n"; | |
95 | exit; | |
96 | } | |
97 | ||
98 | if ($center == 0) { | |
99 | print "No matching code found \n"; | |
100 | exit; | |
101 | } | |
102 | ||
103 | my $start; | |
104 | my $finish; | |
105 | my $codelines = 0; | |
106 | my $binarylines = 0; | |
107 | # now we go up and down in the array to find how much we want to print | |
108 | ||
109 | $start = $center; | |
110 | ||
111 | while ($start > 1) { | |
112 | $start = $start - 1; | |
113 | my $line = $lines[$start]; | |
114 | if ($line =~ /^([a-f0-9]+)\:/) { | |
115 | $binarylines = $binarylines + 1; | |
116 | } else { | |
117 | $codelines = $codelines + 1; | |
118 | } | |
119 | if ($codelines > 10) { | |
120 | last; | |
121 | } | |
122 | if ($binarylines > 20) { | |
123 | last; | |
124 | } | |
125 | } | |
126 | ||
127 | ||
128 | $finish = $center; | |
129 | $codelines = 0; | |
130 | $binarylines = 0; | |
131 | while ($finish < $counter) { | |
132 | $finish = $finish + 1; | |
133 | my $line = $lines[$finish]; | |
134 | if ($line =~ /^([a-f0-9]+)\:/) { | |
135 | $binarylines = $binarylines + 1; | |
136 | } else { | |
137 | $codelines = $codelines + 1; | |
138 | } | |
139 | if ($codelines > 10) { | |
140 | last; | |
141 | } | |
142 | if ($binarylines > 20) { | |
143 | last; | |
144 | } | |
145 | } | |
146 | ||
147 | ||
148 | my $i; | |
149 | ||
150 | my $fulltext = ""; | |
151 | $i = $start; | |
152 | while ($i < $finish) { | |
153 | if ($i == $center) { | |
154 | $fulltext = $fulltext . "*$lines[$i] <----- faulting instruction\n"; | |
155 | } else { | |
156 | $fulltext = $fulltext . " $lines[$i]\n"; | |
157 | } | |
158 | $i = $i +1; | |
159 | } | |
160 | ||
161 | print $fulltext; | |
162 |