[5.005_60 PATCH] Make B::Bytecode work

To: perl5-porters@perl.org
Message-ID: <14248.30568.769427.216092@localhost.frii.com>

p4raw-id: //depot/cfgperl@3920

diff --git a/ext/B/B/Assembler.pm b/ext/B/B/Assembler.pm
index 06e00ad..0735bae 100644 (file)
--- a/ext/B/B/Assembler.pm
+++ b/ext/B/B/Assembler.pm
@@ -52,6 +52,7 @@ sub B::Asmdata::PUT_U8 {
 sub B::Asmdata::PUT_U16 { pack("n", $_[0]) }
 sub B::Asmdata::PUT_U32 { pack("N", $_[0]) }
 sub B::Asmdata::PUT_I32 { pack("N", $_[0]) }
+sub B::Asmdata::PUT_NV  { pack("N", $_[0]) }
 sub B::Asmdata::PUT_objindex { pack("N", $_[0]) } # could allow names here
 sub B::Asmdata::PUT_svindex { &B::Asmdata::PUT_objindex }
 sub B::Asmdata::PUT_opindex { &B::Asmdata::PUT_objindex }