Home
last modified time | relevance | path

Searched refs:cxstack_ix (Results 1 – 12 of 12) sorted by relevance

/mirbsd/src/gnu/usr.bin/perl/
Dcop.h324 #define PUSHBLOCK(cx,t,sp) CXINC, cx = &cxstack[cxstack_ix], \
334 (long)cxstack_ix, PL_block_type[CxTYPE(cx)]); )
337 #define POPBLOCK(cx,pm) cx = &cxstack[cxstack_ix--], \
347 (long)cxstack_ix+1,PL_block_type[CxTYPE(cx)]); )
350 #define TOPBLOCK(cx) cx = &cxstack[cxstack_ix], \
390 #define PUSHSUBST(cx) CXINC, cx = &cxstack[cxstack_ix], \
408 #define POPSUBST(cx) cx = &cxstack[cxstack_ix--]; \
447 #define CXINC (cxstack_ix < cxstack_max ? ++cxstack_ix : (cxstack_ix = cxinc()))
533 #define cxstack_ix (PL_curstackinfo->si_cxix) macro
Dpp_ctl.c49 cxix = dopoptosub(cxstack_ix); in PP()
164 register PERL_CONTEXT *cx = &cxstack[cxstack_ix]; in PP()
1148 for (i = cxstack_ix; i >= 0; i--) { in S_dopoptolabel()
1185 const I32 cxix = dopoptosub(cxstack_ix); in Perl_block_gimme()
1206 const I32 cxix = dopoptosub(cxstack_ix); in Perl_is_lvalue_sub()
1288 while (cxstack_ix > cxix) { in Perl_dounwind()
1290 register PERL_CONTEXT *cx = &cxstack[cxstack_ix]; in Perl_dounwind()
1292 (long) cxstack_ix, PL_block_type[CxTYPE(cx)])); in Perl_dounwind()
1314 cxstack_ix--; in Perl_dounwind()
1367 while ((cxix = dopoptoeval(cxstack_ix)) < 0 in Perl_die_where()
[all …]
Dpp_hot.c53 PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; in PP()
140 PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; in PP()
1688 if (cxstack_ix >= 0) in PP()
1689 gimme = cxstack[cxstack_ix].blk_gimme; in PP()
1800 cx = &cxstack[cxstack_ix]; in PP()
1808 if (cxstack_ix >= 0) in PP()
1809 gimme = cxstack[cxstack_ix].blk_gimme; in PP()
1857 cx = &cxstack[cxstack_ix]; in PP()
2338 cxstack_ix++; /* temporarily protect top context */ in PP()
2377 cxstack_ix--; in PP()
[all …]
Dcc_runtime.h41 PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; \
Dperl.c1155 if (cxstack_ix != -1) in perl_destruct()
1157 (long)cxstack_ix + 1); in perl_destruct()
1572 cxstack_ix = -1; /* start label stack again */ in perl_parse()
2280 cxstack_ix = -1; /* start context stack again */
5267 if (cxstack_ix >= 0) {
5268 if (cxstack_ix > 0)
Dscope.c107 return cxstack_ix + 1; in Perl_cxinc()
Dpp_sort.c1670 PL_sortcxix = cxstack_ix; in PP()
Ddump.c1492 CV *cv = deb_curcv(cxstack_ix); in Perl_debop()
Dregexec.c2102 SAVEI32(cxstack[cxstack_ix].blk_oldsp); in S_regtry()
2103 cxstack[cxstack_ix].blk_oldsp = PL_stack_sp - PL_stack_base; in S_regtry()
Dpp_sys.c1332 GV * const gv = cxstack[cxstack_ix].blk_sub.gv; in PP()
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/DProf/
DDProf.xs586 I32 old_cxstack_ix = cxstack_ix; in XS()
602 if (PL_scopestack_ix != old_scopestack_ix || cxstack_ix != old_cxstack_ix) in XS()
/mirbsd/src/gnu/usr.bin/perl/ext/List/Util/
DUtil.xs44 return cxstack_ix + 1; in my_cxinc()