diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-09-02 06:45:11 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-02 14:40:54 +0000 |
| commit | c7e45529067e5669196da1c88cb491070e8fe1ea (patch) | |
| tree | e2d19bd7f4154ce402b79c558b1704046860e3f1 /ext/ByteLoader/bytecode.h | |
| parent | 1d2654e1d58ad544e6568f317af5402a9dbaff80 (diff) | |
| download | perl-c7e45529067e5669196da1c88cb491070e8fe1ea.tar.gz | |
Re: ByteLoader and MSWin32
Message-ID: <20030902004511.GA1442@ratsnest.hole>
p4raw-id: //depot/perl@20993
Diffstat (limited to 'ext/ByteLoader/bytecode.h')
| -rw-r--r-- | ext/ByteLoader/bytecode.h | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h index 7fb91daf61..d26448239a 100644 --- a/ext/ByteLoader/bytecode.h +++ b/ext/ByteLoader/bytecode.h @@ -191,14 +191,14 @@ typedef char *pvindex; SvFLAGS(sv) = arg; \ BSET_OBJ_STOREX(sv); \ } STMT_END -#define BSET_newop(o, arg) \ - ((o = (OP*)safemalloc(arg)), memzero((char*)o,arg)) + +#define BSET_newop(o, arg) NewOpSz(666, o, arg) #define BSET_newopx(o, arg) STMT_START { \ register int sz = arg & 0x7f; \ - register OP* new = (OP*) safemalloc(sz);\ - memzero(new, sz); \ - /* new->op_next = o; XXX */ \ - o = new; \ + register OP* newop; \ + BSET_newop(newop, sz); \ + /* newop->op_next = o; XXX */ \ + o = newop; \ arg >>=7; \ BSET_op_type(o, arg); \ BSET_OBJ_STOREX(o); \ |