/dports/devel/p5-Scope-Upper/Scope-Upper-0.32/ |
H A D | Upper.xs | 1684 for (cxix = cxstack_ix; cxix >= 0; --cxix) { in su_uplevel_goto_runops() 2077 sud->cxix = cxix; in su_uplevel_new() 2148 sud->cxix = cxix; in su_uplevel_old() 2822 XSH_CXT.yield_storage.cxix = cxix; in XS() 2904 cxix = su_context_skip_db(cxix); 2922 for (; cxix >= 0; --cxix) { 2946 for (; cxix >= 0; --cxix) { 2974 cxix = su_context_skip_db(cxix); 2989 for (cxix = cxstack_ix; cxix > 0; --cxix) { 3006 cxix = su_context_real2logical(cxix); [all …]
|
/dports/devel/p5-B-Utils/B-Utils-0.27/ |
H A D | OP.xs | 45 I32 cxix = BUtils_dopoptosub(aTHX_ cxstack_ix); in BUtils_op_upcontext() local 49 if (cxix_to_p) *cxix_to_p = cxix; in BUtils_op_upcontext() 52 while (cxix < 0 && top_si->si_type != PERLSI_MAIN) { in BUtils_op_upcontext() 57 if (cxix_to_p) *cxix_to_p = cxix; in BUtils_op_upcontext() 59 if (cxix < 0 && count == 0) { in BUtils_op_upcontext() 63 else if (cxix < 0) in BUtils_op_upcontext() 65 if (PL_DBsub && cxix >= 0 && in BUtils_op_upcontext() 71 if (cop_p) *cop_p = ccstack[cxix].blk_oldcop; in BUtils_op_upcontext() 72 cxix = BUtils_dopoptosub_at(aTHX_ ccstack, cxix - 1); in BUtils_op_upcontext() 74 if (cxix_to_p) *cxix_to_p = cxix; in BUtils_op_upcontext() [all …]
|
/dports/devel/p5-Want/Want-0.29/ |
H A D | Want.xs | 84 if (cxix < 0) { in upcontext() 87 if (PL_DBsub && cxix >= 0 && in upcontext() 92 cxix = dopoptosub_at(aTHX_ ccstack, cxix - 1); in upcontext() 94 cx = &ccstack[cxix]; in upcontext() 141 if (cxix < 0) { in upcontext_plus() 149 cxix = dopoptosub_at(aTHX_ ccstack, cxix - 1); in upcontext_plus() 151 cx = &ccstack[cxix]; in upcontext_plus() 158 cxix = dbcxix; in upcontext_plus() 159 cx = &ccstack[cxix]; in upcontext_plus() 166 for (i = cxix-1; i>=0 ; i--) { in upcontext_plus() [all …]
|
/dports/lang/perl5.34/perl-5.34.0/ext/File-DosGlob/lib/File/ |
H A D | DosGlob.pm | 116 my($pat,$cxix) = ($_[0], _callsite()); 123 if (!$entries{$cxix}) { 174 $entries{$cxix} = [doglob(1,@pat)]; 179 return @{delete $entries{$cxix}}; 182 if (scalar @{$entries{$cxix}}) { 183 return shift @{$entries{$cxix}}; 187 delete $entries{$cxix};
|
/dports/lang/perl5.32/perl-5.32.1/ext/File-DosGlob/lib/File/ |
H A D | DosGlob.pm | 116 my($pat,$cxix) = ($_[0], _callsite()); 123 if (!$entries{$cxix}) { 174 $entries{$cxix} = [doglob(1,@pat)]; 179 return @{delete $entries{$cxix}}; 182 if (scalar @{$entries{$cxix}}) { 183 return shift @{$entries{$cxix}}; 187 delete $entries{$cxix};
|
/dports/lang/perl5.30/perl-5.30.3/ext/File-DosGlob/lib/File/ |
H A D | DosGlob.pm | 116 my($pat,$cxix) = ($_[0], _callsite()); 123 if (!$entries{$cxix}) { 174 $entries{$cxix} = [doglob(1,@pat)]; 179 return @{delete $entries{$cxix}}; 182 if (scalar @{$entries{$cxix}}) { 183 return shift @{$entries{$cxix}}; 187 delete $entries{$cxix};
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/ext/File-DosGlob/lib/File/ |
H A D | DosGlob.pm | 116 my($pat,$cxix) = ($_[0], _callsite()); 123 if (!$entries{$cxix}) { 174 $entries{$cxix} = [doglob(1,@pat)]; 179 return @{delete $entries{$cxix}}; 182 if (scalar @{$entries{$cxix}}) { 183 return shift @{$entries{$cxix}}; 187 delete $entries{$cxix};
|
/dports/lang/perl5.34/perl-5.34.0/ext/mro/ |
H A D | mro.xs | 476 I32 cxix = cxstack_ix; variable 513 cxix = __dopoptosub_at(ccstack, cxix); 519 while (cxix < 0) { 524 cxix = __dopoptosub_at(ccstack, top_si->si_cxix); 527 if(CxTYPE((PERL_CONTEXT*)(&ccstack[cxix])) != CXt_SUB 529 cxix = __dopoptosub_at(ccstack, cxix - 1); 537 cxix = dbcxix; 543 cvgv = CvGV(ccstack[cxix].blk_sub.cv); 546 cxix = __dopoptosub_at(ccstack, cxix - 1); 571 cxix = __dopoptosub_at(ccstack, cxix - 1); [all …]
|
/dports/lang/perl5.30/perl-5.30.3/ext/mro/ |
H A D | mro.xs | 475 I32 cxix = cxstack_ix; variable 512 cxix = __dopoptosub_at(ccstack, cxix); 518 while (cxix < 0) { 523 cxix = __dopoptosub_at(ccstack, top_si->si_cxix); 526 if(CxTYPE((PERL_CONTEXT*)(&ccstack[cxix])) != CXt_SUB 528 cxix = __dopoptosub_at(ccstack, cxix - 1); 536 cxix = dbcxix; 542 cvgv = CvGV(ccstack[cxix].blk_sub.cv); 545 cxix = __dopoptosub_at(ccstack, cxix - 1); 570 cxix = __dopoptosub_at(ccstack, cxix - 1); [all …]
|
/dports/lang/perl5.32/perl-5.32.1/ext/mro/ |
H A D | mro.xs | 475 I32 cxix = cxstack_ix; variable 512 cxix = __dopoptosub_at(ccstack, cxix); 518 while (cxix < 0) { 523 cxix = __dopoptosub_at(ccstack, top_si->si_cxix); 526 if(CxTYPE((PERL_CONTEXT*)(&ccstack[cxix])) != CXt_SUB 528 cxix = __dopoptosub_at(ccstack, cxix - 1); 536 cxix = dbcxix; 542 cvgv = CvGV(ccstack[cxix].blk_sub.cv); 545 cxix = __dopoptosub_at(ccstack, cxix - 1); 570 cxix = __dopoptosub_at(ccstack, cxix - 1); [all …]
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/ext/mro/ |
H A D | mro.xs | 467 I32 cxix = cxstack_ix; variable 504 cxix = __dopoptosub_at(ccstack, cxix); 510 while (cxix < 0) { 515 cxix = __dopoptosub_at(ccstack, top_si->si_cxix); 518 if(CxTYPE((PERL_CONTEXT*)(&ccstack[cxix])) != CXt_SUB 520 cxix = __dopoptosub_at(ccstack, cxix - 1); 528 cxix = dbcxix; 534 cvgv = CvGV(ccstack[cxix].blk_sub.cv); 537 cxix = __dopoptosub_at(ccstack, cxix - 1); 562 cxix = __dopoptosub_at(ccstack, cxix - 1); [all …]
|
/dports/devel/p5-Class-C3-XS/Class-C3-XS-0.15/ |
H A D | XS.xs | 339 register I32 cxix = cxstack_ix; in XS() local 381 cxix = __dopoptosub_at(ccstack, cxix); in XS() 384 while (cxix < 0) { in XS() 389 cxix = __dopoptosub_at(ccstack, top_si->si_cxix); in XS() 392 if(CxTYPE((PERL_CONTEXT*)(&ccstack[cxix])) != CXt_SUB in XS() 394 cxix = __dopoptosub_at(ccstack, cxix - 1); in XS() 402 cxix = dbcxix; in XS() 408 cvgv = CvGV(ccstack[cxix].blk_sub.cv); in XS() 411 cxix = __dopoptosub_at(ccstack, cxix - 1); in XS() 436 cxix = __dopoptosub_at(ccstack, cxix - 1); in XS() [all …]
|
/dports/lang/perl5.30/perl-5.30.3/dist/Devel-PPPort/parts/inc/ |
H A D | cop | 79 register I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix); 86 while (cxix < 0 && top_si->si_type != PERLSI_MAIN) { 89 cxix = DPPP_dopoptosub_at(ccstack, top_si->si_cxix); 91 if (cxix < 0) 94 if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 && 95 ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub)) 99 cxix = DPPP_dopoptosub_at(ccstack, cxix - 1); 102 cx = &ccstack[cxix]; 106 const I32 dbcxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
|
/dports/lang/perl5.34/perl-5.34.0/dist/Devel-PPPort/parts/inc/ |
H A D | cop | 79 I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix); 86 while (cxix < 0 && top_si->si_type != PERLSI_MAIN) { 89 cxix = DPPP_dopoptosub_at(ccstack, top_si->si_cxix); 91 if (cxix < 0) 94 if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 && 95 ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub)) 99 cxix = DPPP_dopoptosub_at(ccstack, cxix - 1); 102 cx = &ccstack[cxix]; 106 const I32 dbcxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
|
/dports/lang/perl5.32/perl-5.32.1/dist/Devel-PPPort/parts/inc/ |
H A D | cop | 79 register I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix); 86 while (cxix < 0 && top_si->si_type != PERLSI_MAIN) { 89 cxix = DPPP_dopoptosub_at(ccstack, top_si->si_cxix); 91 if (cxix < 0) 94 if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 && 95 ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub)) 99 cxix = DPPP_dopoptosub_at(ccstack, cxix - 1); 102 cx = &ccstack[cxix]; 106 const I32 dbcxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
|
/dports/devel/p5-Devel-PPPort/Devel-PPPort-3.63/parts/inc/ |
H A D | cop | 79 I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix); 86 while (cxix < 0 && top_si->si_type != PERLSI_MAIN) { 89 cxix = DPPP_dopoptosub_at(ccstack, top_si->si_cxix); 91 if (cxix < 0) 94 if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 && 95 ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub)) 99 cxix = DPPP_dopoptosub_at(ccstack, cxix - 1); 102 cx = &ccstack[cxix]; 106 const I32 dbcxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/dist/Devel-PPPort/parts/inc/ |
H A D | cop | 79 I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix); 86 while (cxix < 0 && top_si->si_type != PERLSI_MAIN) { 89 cxix = DPPP_dopoptosub_at(ccstack, top_si->si_cxix); 91 if (cxix < 0) 94 if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 && 95 ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub)) 99 cxix = DPPP_dopoptosub_at(ccstack, cxix - 1); 102 cx = &ccstack[cxix]; 106 const I32 dbcxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
|
/dports/devel/p5-PadWalker/PadWalker-2.5/ |
H A D | PadWalker.xs | 142 I32 cxix = dopoptosub(aTHX_ cxstack_ix); in upcontext() local 146 if (cxix_to_p) *cxix_to_p = cxix; in upcontext() 154 if (cxix_to_p) *cxix_to_p = cxix; in upcontext() 156 if (cxix < 0 && count == 0) { in upcontext() 160 else if (cxix < 0) in upcontext() 162 if (PL_DBsub && cxix >= 0 && in upcontext() 163 ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub)) in upcontext() 168 if (cop_p) *cop_p = ccstack[cxix].blk_oldcop; in upcontext() 169 cxix = dopoptosub_at(aTHX_ ccstack, cxix - 1); in upcontext() 171 if (cxix_to_p) *cxix_to_p = cxix; in upcontext() [all …]
|
/dports/devel/p5-B-C/B-C-1.57/lib/B/ |
H A D | CC.pm | 961 while ( $cxix >= 0 && CxTYPE_no_LOOP( $cxstack[$cxix] ) ) { 962 $cxix--; 965 return $cxix; 972 $cxix >= 0 977 $cxix--; 988 return $cxix; 2877 my $cxix; 2898 if (!$cxstack[$cxix]->{'nextop'} or !$cxstack[$cxix]->{'label'}) { 2916 my $cxix; 2954 my $cxix; [all …]
|
/dports/devel/p5-Syntax-Keyword-Try/Syntax-Keyword-Try-0.26/lib/Syntax/Keyword/ |
H A D | Try.xs | 43 I32 cxix; in pp_returnintry() local 45 for (cxix = cxstack_ix; cxix; cxix--) { in pp_returnintry() 46 if(CxTYPE(&cxstack[cxix]) == CXt_SUB) in pp_returnintry() 49 if(CxTYPE(&cxstack[cxix]) == CXt_EVAL && CxTRYBLOCK(&cxstack[cxix])) { in pp_returnintry() 55 OP *retop = cxstack[cxix].blk_eval.retop; in pp_returnintry() 67 if(!cxix) in pp_returnintry() 70 I32 gimme = cxstack[cxix].blk_gimme; in pp_returnintry() 107 dounwind(cxix); in pp_returnintry()
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/ |
H A D | pp_ctl.c | 51 I32 cxix; in PP() local 60 if (cxix < 0) in PP() 1403 if (cxix < 0) in Perl_block_gimme() 1726 I32 cxix; in Perl_die_unwind() local 1907 cxix = dopoptosub_at(ccstack, cxix - 1); in Perl_caller_cx() 2606 I32 cxix; in S_unwind_loop() local 5370 I32 cxix; in PP() local 5380 if (cxix < 0) in PP() 5414 I32 cxix; in PP() local 5439 I32 cxix; in PP() local [all …]
|
/dports/devel/p5-Data-Clone/Data-Clone-0.004/ |
H A D | Data-Clone.xs | 128 I32 cxix = my_dopoptosub_at(aTHX_ ccstack, cxstack_ix); in caller_cv() local 133 while (cxix < 0 && si->si_type != PERLSI_MAIN) { in caller_cv() 136 cxix = my_dopoptosub_at(aTHX_ ccstack, si->si_cxix); in caller_cv() 138 if (cxix < 0) { in caller_cv() 143 ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub)) in caller_cv() 148 cxix = my_dopoptosub_at(aTHX_ ccstack, cxix - 1); in caller_cv() 151 cx = &ccstack[cxix]; in caller_cv()
|
/dports/lang/perl5.34/perl-5.34.0/ |
H A D | pp_ctl.c | 51 I32 cxix; in PP() local 60 if (cxix < 0) in PP() 1402 if (cxix < 0) in Perl_block_gimme() 1726 I32 cxix; in Perl_die_unwind() local 1907 cxix = dopoptosub_at(ccstack, cxix - 1); in Perl_caller_cx() 2600 I32 cxix; in S_unwind_loop() local 5349 I32 cxix; in PP() local 5359 if (cxix < 0) in PP() 5393 I32 cxix; in PP() local 5418 I32 cxix; in PP() local [all …]
|
/dports/lang/perl5.30/perl-5.30.3/ |
H A D | pp_ctl.c | 45 I32 cxix; in PP() local 54 if (cxix < 0) in PP() 1702 I32 cxix; in Perl_die_unwind() local 1865 if (cxix < 0) in Perl_caller_cx() 1873 cxix = dopoptosub_at(ccstack, cxix - 1); in Perl_caller_cx() 2566 I32 cxix; in S_unwind_loop() local 2569 if (cxix < 0) in S_unwind_loop() 2587 if (cxix < 0) in S_unwind_loop() 5262 I32 cxix; in PP() local 5306 I32 cxix; in PP() local [all …]
|
/dports/lang/perl5.32/perl-5.32.1/ |
H A D | pp_ctl.c | 51 I32 cxix; in PP() local 60 if (cxix < 0) in PP() 1711 I32 cxix; in Perl_die_unwind() local 1884 if (cxix < 0) in Perl_caller_cx() 1892 cxix = dopoptosub_at(ccstack, cxix - 1); in Perl_caller_cx() 2585 I32 cxix; in S_unwind_loop() local 2588 if (cxix < 0) in S_unwind_loop() 2606 if (cxix < 0) in S_unwind_loop() 5289 I32 cxix; in PP() local 5333 I32 cxix; in PP() local [all …]
|