From: Nathan Torkington Date: Wed, 4 Aug 1999 11:24:56 +0000 (-0600) Subject: [5.005_60 PATCH] Make B::Bytecode work X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1c98e7c8cff8d95239d35282a62d5c3c291ff3fa;p=p5sagit%2Fp5-mst-13.2.git [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 --- 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 }