diff options
| author | Nathan Torkington <gnat@frii.com> | 1999-08-04 05:24:56 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-08-04 19:02:58 +0000 |
| commit | 1c98e7c8cff8d95239d35282a62d5c3c291ff3fa (patch) | |
| tree | e3c6c0769b70e3dfa1706b77b67875048533e861 /ext | |
| parent | a388df8c5c73722cbb845cd4ac54880269f5ee9d (diff) | |
| download | perl-1c98e7c8cff8d95239d35282a62d5c3c291ff3fa.tar.gz | |
[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
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Assembler.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/B/B/Assembler.pm b/ext/B/B/Assembler.pm index 06e00adeb5..0735bae933 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 } |