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 /op.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 'op.h')
| -rw-r--r-- | op.h | 13 |
1 files changed, 13 insertions, 0 deletions
@@ -483,3 +483,16 @@ struct loop { #include "reentr.h" #endif +#if defined(PL_OP_SLAB_ALLOC) +#define NewOp(m,var,c,type) \ + STMT_START { \ + var = (type *) Perl_Slab_Alloc(aTHX_ m,c*sizeof(type));\ + } STMT_END +#define NewOpSz(m,var,size) \ + STMT_START { var = (OP *) Perl_Slab_Alloc(aTHX_ m,size); } STMT_END +#define FreeOp(p) Perl_Slab_Free(aTHX_ p) +#else +#define NewOp(m, var, c, type) Newz(m, var, c, type) +#define NewOpSz(m, var, size) Newz(m, (char*)var, size, char) +#define FreeOp(p) Safefree(p) +#endif |