Lines Matching refs:PL_OpPtr
38 * To make inserting the link to slab PL_OpPtr is I32 **
44 PL_OpPtr = (I32 **) PerlMemShared_malloc(PERL_SLAB_SIZE*sizeof(I32*));
45 if (!PL_OpPtr) {
48 Zero(PL_OpPtr,PERL_SLAB_SIZE,I32 **);
50 PL_OpSlab = (I32 *) PL_OpPtr;
59 PL_OpPtr += PERL_SLAB_SIZE;
63 PL_OpPtr -= sz;
64 assert( PL_OpPtr > (I32 **) PL_OpSlab );
65 *PL_OpPtr = PL_OpSlab; /* Note which slab it belongs to */
67 assert( PL_OpPtr+sz <= ((I32 **) PL_OpSlab + PERL_SLAB_SIZE) );
69 return (void *)(PL_OpPtr + 1);