adulau/aha
1
0
Fork 0
mirror of https://github.com/adulau/aha.git synced 2024-12-28 03:36:19 +00:00
Code Issues Projects Releases Packages Wiki Activity

markup_oops: fix it with 32-bit userspace on a 64-bit kernel

Browse source 
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:
Matthew Wilcox 2009-07-29 15:02:03 -07:00 committed by Linus Torvalds
parent f5886c7f96
commit 51fbb4bab6
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scripts/markup_oops.pl
View file

@ -1,6 +1,7 @@
#!/usr/bin/perl
use File::Basename;
use Math::BigInt;
# Copyright 2008, Intel Corporation
#
@ -172,8 +173,8 @@ while (<STDIN>) {
parse_x86_regs($line);
}
my $decodestart = hex($target) - hex($func_offset);
my $decodestop = hex($target) + 8192;
my $decodestart = Math::BigInt->from_hex("0x$target") - Math::BigInt->from_hex("0x$func_offset");
my $decodestop = Math::BigInt->from_hex("0x$target") + 8192;
if ($target eq "0") {
print "No oops found!\n";
print "Usage: \n";