markup_oops: fix it with 32-bit userspace on a 64-bit kernel
A 32-bit perl can't handle 64-bit addresses without using the BigInt package. Signed-off-by: Matthew Wilcox <willy@linux.intel.com> Acked-by: Arjan van de Ven <arjan@linux.intel.com> Signed-off-by: Andrew Morton <akpm@linux-foundation.org> Signed-off-by: Linus Torvalds <torvalds@linux-foundation.org>
This commit is contained in:
parent
f5886c7f96
commit
51fbb4bab6
|
@ -1,6 +1,7 @@
|
||||||
#!/usr/bin/perl
|
#!/usr/bin/perl
|
||||||
|
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
|
use Math::BigInt;
|
||||||
|
|
||||||
# Copyright 2008, Intel Corporation
|
# Copyright 2008, Intel Corporation
|
||||||
#
|
#
|
||||||
|
@ -172,8 +173,8 @@ while (<STDIN>) {
|
||||||
parse_x86_regs($line);
|
parse_x86_regs($line);
|
||||||
}
|
}
|
||||||
|
|
||||||
my $decodestart = hex($target) - hex($func_offset);
|
my $decodestart = Math::BigInt->from_hex("0x$target") - Math::BigInt->from_hex("0x$func_offset");
|
||||||
my $decodestop = hex($target) + 8192;
|
my $decodestop = Math::BigInt->from_hex("0x$target") + 8192;
|
||||||
if ($target eq "0") {
|
if ($target eq "0") {
|
||||||
print "No oops found!\n";
|
print "No oops found!\n";
|
||||||
print "Usage: \n";
|
print "Usage: \n";
|
||||||
|
|
Loading…
Reference in New Issue