X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FB%2FB%2FDisassembler.pm;h=e1993aa9537b02b7561bf5d37f3387a731429628;hb=461824dcfbc00b3c4e20590f06d6c9881e4a416b;hp=0d28ed8952f059372c0e500791257c76586ea2e0;hpb=3353beaa3f95112e24afd5155933d13cf27ab516;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/B/B/Disassembler.pm b/ext/B/B/Disassembler.pm
index 0d28ed8..e1993aa 100644
--- a/ext/B/B/Disassembler.pm
+++ b/ext/B/B/Disassembler.pm
@@ -4,9 +4,10 @@
 #
 #      You may distribute under the terms of either the GNU General Public
 #      License or the Artistic License, as specified in the README file.
-package B::Disassembler::BytecodeStream;
 
-our $VERSION = '1.03';
+$B::Disassembler::VERSION = '1.05';
+
+package B::Disassembler::BytecodeStream;
 
 use FileHandle;
 use Carp;
@@ -153,6 +154,15 @@ sub GET_IV {
     $Config{ivsize} == 4 ? &GET_I32 : &GET_IV64;
 }
 
+sub GET_PADOFFSET {
+    $Config{ptrsize} == 8 ? &GET_IV64 : &GET_U32;
+}
+
+sub GET_long {
+    $Config{longsize} == 8 ? &GET_IV64 : &GET_U32;
+}
+
+
 package B::Disassembler;
 use Exporter;
 @ISA = qw(Exporter);