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.c | |
| 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.c')
| -rw-r--r-- | op.c | 17 |
1 files changed, 4 insertions, 13 deletions
@@ -30,13 +30,8 @@ #define PERL_SLAB_SIZE 2048 #endif -#define NewOp(m,var,c,type) \ - STMT_START { var = (type *) Slab_Alloc(m,c*sizeof(type)); } STMT_END - -#define FreeOp(p) Slab_Free(p) - -STATIC void * -S_Slab_Alloc(pTHX_ int m, size_t sz) +void * +Perl_Slab_Alloc(pTHX_ int m, size_t sz) { /* * To make incrementing use count easy PL_OpSlab is an I32 * @@ -74,8 +69,8 @@ S_Slab_Alloc(pTHX_ int m, size_t sz) return (void *)(PL_OpPtr + 1); } -STATIC void -S_Slab_Free(pTHX_ void *op) +void +Perl_Slab_Free(pTHX_ void *op) { I32 **ptr = (I32 **) op; I32 *slab = ptr[-1]; @@ -93,10 +88,6 @@ S_Slab_Free(pTHX_ void *op) } } } - -#else -#define NewOp(m, var, c, type) Newz(m, var, c, type) -#define FreeOp(p) Safefree(p) #endif /* * In the following definition, the ", Nullop" is just to make the compiler |