#
# 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;
$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);