diff options
| author | Jim Cromie <jcromie@cpan.org> | 2005-07-06 08:19:53 -0600 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-07-08 16:35:10 +0000 |
| commit | a02a5408b2f199007c4dcb74559cc79066307ada (patch) | |
| tree | b5456b7513dec78b81e08371fbd59138e2edfe72 /ext/ByteLoader/bytecode.h | |
| parent | bdf3085f9fca00a6148ef3f26060d442844b64bd (diff) | |
| download | perl-a02a5408b2f199007c4dcb74559cc79066307ada.tar.gz | |
Re: janitorial work ? [patch]
Message-ID: <42CC3CE9.5050606@divsol.com>
(reverted all dual-lived modules since they must work with older
perls too so must wait for a new Devel::PPPort)
p4raw-id: //depot/perl@25101
Diffstat (limited to 'ext/ByteLoader/bytecode.h')
| -rw-r--r-- | ext/ByteLoader/bytecode.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h index 70a7238347..99ffd7f22d 100644 --- a/ext/ByteLoader/bytecode.h +++ b/ext/ByteLoader/bytecode.h @@ -31,7 +31,7 @@ typedef char *pvindex; #define BGET_PV(arg) STMT_START { \ BGET_U32(arg); \ if (arg) { \ - New(666, bstate->bs_pv.pvx, arg, char); \ + Newx(bstate->bs_pv.pvx, arg, char); \ bl_read(bstate->bs_fdata, bstate->bs_pv.pvx, arg, 1); \ bstate->bs_pv.xpv.xpv_len = arg; \ bstate->bs_pv.xpv.xpv_cur = arg - 1; \ @@ -63,7 +63,7 @@ typedef char *pvindex; #define BGET_op_tr_array(arg) do { \ unsigned short *ary, len; \ BGET_U16(len); \ - New(666, ary, len, unsigned short); \ + Newx(ary, len, unsigned short); \ BGET_FREAD(ary, sizeof(unsigned short), len); \ arg = (char *) ary; \ } while (0) |