Lines Matching refs:I32
37 * To make incrementing use count easy PL_OpSlab is an I32 *
38 * To make inserting the link to slab PL_OpPtr is I32 **
39 * So compute size in units of sizeof(I32 *) as that is how Pl_OpPtr increments
42 sz = (sz + 2*sizeof(I32 *) -1)/sizeof(I32 *);
44 PL_OpPtr = (I32 **) PerlMemShared_malloc(PERL_SLAB_SIZE*sizeof(I32*));
48 Zero(PL_OpPtr,PERL_SLAB_SIZE,I32 **);
49 /* We reserve the 0'th I32 sized chunk as a use count */
50 PL_OpSlab = (I32 *) PL_OpPtr;
54 PL_OpSpace = PERL_SLAB_SIZE - (sizeof(I32)+sizeof(I32 **)-1)/sizeof(I32 **) - sz;
64 assert( PL_OpPtr > (I32 **) PL_OpSlab );
67 assert( PL_OpPtr+sz <= ((I32 **) PL_OpSlab + PERL_SLAB_SIZE) );
75 I32 **ptr = (I32 **) op;
76 I32 *slab = ptr[-1];
77 assert( ptr-1 > (I32 **) slab );
78 assert( ptr < ( (I32 **) slab + PERL_SLAB_SIZE) );
137 S_bad_type(pTHX_ I32 n, char *t, char *name, OP *kid)
954 S_modkids(pTHX_ OP *o, I32 type)
965 Perl_mod(pTHX_ OP *o, I32 type)
986 PL_compiling.cop_arybase = (I32)SvIV(cSVOPx(PL_eval_start)->op_sv);
1293 S_scalar_mod_type(pTHX_ OP *o, I32 type)
1340 S_is_handle_constructor(pTHX_ OP *o, I32 argnum)
1363 Perl_refkids(pTHX_ OP *o, I32 type)
1374 Perl_ref(pTHX_ OP *o, I32 type)
1627 I32 type;
1731 Perl_bind_match(pTHX_ I32 type, OP *left, OP *right)
1843 Perl_block_end(pTHX_ I32 floor, OP *seq)
1915 Perl_localize(pTHX_ OP *o, I32 lex)
1986 I32 type = o->op_type;
2064 I32 oldtmps_floor = PL_tmps_floor;
2092 Perl_convert(pTHX_ I32 type, I32 flags, OP *o)
2116 Perl_append_elem(pTHX_ I32 type, OP *first, OP *last)
2141 Perl_append_list(pTHX_ I32 type, LISTOP *first, LISTOP *last)
2165 Perl_prepend_elem(pTHX_ I32 type, OP *first, OP *last)
2213 Perl_newLISTOP(pTHX_ I32 type, I32 flags, OP *first, OP *last)
2247 Perl_newOP(pTHX_ I32 type, I32 flags)
2265 Perl_newUNOP(pTHX_ I32 type, I32 flags, OP *first)
2288 Perl_newBINOP(pTHX_ I32 type, I32 flags, OP *first, OP *last)
2341 register I32 i;
2342 register I32 j;
2343 I32 del;
2344 I32 complement;
2345 I32 squash;
2346 I32 grows = 0;
2373 I32 none = 0;
2375 I32 bits;
2376 I32 havefinal = 0;
2378 I32 from_utf = o->op_private & OPpTRANS_FROM_UTF;
2379 I32 to_utf = o->op_private & OPpTRANS_TO_UTF;
2466 tfirst = (I32)utf8n_to_uvuni(t, tend - t, &ulen, 0);
2470 tlast = (I32)utf8n_to_uvuni(t, tend - t, &ulen, 0);
2480 rfirst = (I32)utf8n_to_uvuni(r, rend - r, &ulen, 0);
2484 rlast = (I32)utf8n_to_uvuni(r, rend - r, &ulen, 0);
2570 for (i = 0; i < (I32)tlen; i++)
2574 if (j >= (I32)rlen) {
2595 else if (j >= (I32)rlen)
2600 for (i=0; i < (I32)rlen - j; i++)
2615 for (i = 0, j = 0; i < (I32)tlen; i++,j++) {
2616 if (j >= (I32)rlen) {
2640 Perl_newPMOP(pTHX_ I32 type, I32 flags)
2688 I32 repl_has_vars = 0;
2835 Perl_newSVOP(pTHX_ I32 type, I32 flags, SV *sv)
2852 Perl_newPADOP(pTHX_ I32 type, I32 flags, SV *sv)
2873 Perl_newGVOP(pTHX_ I32 type, I32 flags, GV *gv)
2885 Perl_newPVOP(pTHX_ I32 type, I32 flags, char *pv)
2928 Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *idop, OP *arg)
3125 Perl_newSLICEOP(pTHX_ I32 flags, OP *subscript, OP *listval)
3132 STATIC I32
3142 I32 t = list_assignment(cLOGOPo->op_first->op_sibling);
3143 I32 f = list_assignment(cLOGOPo->op_first->op_sibling->op_sibling);
3172 Perl_newASSIGNOP(pTHX_ I32 flags, OP *left, I32 optype, OP *right)
3354 Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o)
3406 SV **svp = av_fetch(CopFILEAV(PL_curcop), (I32)CopLINE(cop), FALSE);
3418 Perl_newLOGOP(pTHX_ I32 type, I32 flags, OP *first, OP *other)
3424 S_new_logop(pTHX_ I32 type, I32 flags, OP** firstp, OP** otherp)
3537 Perl_newCONDOP(pTHX_ I32 flags, OP *first, OP *trueop, OP *falseop)
3592 Perl_newRANGE(pTHX_ I32 flags, OP *left, OP *right)
3638 Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP *expr, OP *block)
3697 Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP *loop, I32 whileline, OP *expr, OP *block, OP *cont)
3790 Perl_newFOROP(pTHX_ I32 flags,char *label,line_t forline,OP *sv,OP *expr,OP *block,OP *cont)
3795 I32 iterflags = 0;
3796 I32 iterpflags = 0;
3890 Perl_newLOOPEX(pTHX_ I32 type, OP *label)
4086 Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4100 Perl_newSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *block)
4106 Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
4397 I32 oldscope = PL_scopestack_ix;
4602 Perl_newFORM(pTHX_ I32 floor, OP *o, OP *block)
4663 Perl_newANONSUB(pTHX_ I32 floor, OP *proto, OP *block)
4669 Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP *block)
4741 Perl_newGVREF(pTHX_ I32 type, OP *o)
4773 Perl_newCVREF(pTHX_ I32 flags, OP *o)
4911 I32 type = o->op_type;
5142 I32 type = o->op_type;
5179 I32 numargs = 0;
5181 register I32 oa = PL_opargs[type] >> OASHIFT;
5300 I32 flags = OPf_SPECIAL;
5301 I32 priv = 0;
5721 I32 mode;
5866 I32 type = o->op_type;
6101 I32 arg = 0;
6102 I32 contextclass = 0;
6595 I32 ind;
6609 SvUTF8(sv) ? -(I32)keylen : keylen,
6629 SvUTF8(*svp) ? -(I32)keylen : keylen, FALSE);
6656 I32 ind;
6695 SvUTF8(*svp) ? -(I32)keylen : keylen, FALSE);