diff options
Diffstat (limited to 'scripts/markup_oops.pl')
| -rw-r--r-- | scripts/markup_oops.pl | 5 | 
1 files changed, 3 insertions, 2 deletions
| diff --git a/scripts/markup_oops.pl b/scripts/markup_oops.pl index 528492bcba5b..89774011965d 100644 --- a/scripts/markup_oops.pl +++ b/scripts/markup_oops.pl | |||
| @@ -1,6 +1,7 @@ | |||
| 1 | #!/usr/bin/perl | 1 | #!/usr/bin/perl | 
| 2 | 2 | ||
| 3 | use File::Basename; | 3 | use File::Basename; | 
| 4 | use Math::BigInt; | ||
| 4 | 5 | ||
| 5 | # Copyright 2008, Intel Corporation | 6 | # Copyright 2008, Intel Corporation | 
| 6 | # | 7 | # | 
| @@ -172,8 +173,8 @@ while (<STDIN>) { | |||
| 172 | parse_x86_regs($line); | 173 | parse_x86_regs($line); | 
| 173 | } | 174 | } | 
| 174 | 175 | ||
| 175 | my $decodestart = hex($target) - hex($func_offset); | 176 | my $decodestart = Math::BigInt->from_hex("0x$target") - Math::BigInt->from_hex("0x$func_offset"); | 
| 176 | my $decodestop = hex($target) + 8192; | 177 | my $decodestop = Math::BigInt->from_hex("0x$target") + 8192; | 
| 177 | if ($target eq "0") { | 178 | if ($target eq "0") { | 
| 178 | print "No oops found!\n"; | 179 | print "No oops found!\n"; | 
| 179 | print "Usage: \n"; | 180 | print "Usage: \n"; | 
