/dports/lang/perl5.32/perl-5.32.1/ |
H A D | cop.h | 1059 #define cxstack (PL_curstackinfo->si_cxstack) 1060 #define cxstack_ix (PL_curstackinfo->si_cxix) 1061 #define cxstack_max (PL_curstackinfo->si_cxmax) 1078 PERL_SI *next = PL_curstackinfo->si_next; \ 1080 int i = 0; PERL_SI *p = PL_curstackinfo; \ 1086 next->si_prev = PL_curstackinfo; \ 1087 PL_curstackinfo->si_next = next; \ 1095 PL_curstackinfo = next; \ 1106 PERL_SI * const prev = PL_curstackinfo->si_prev; \ 1108 int i = -1; PERL_SI *p = PL_curstackinfo; \ [all …]
|
H A D | deb.c | 173 PL_curstackinfo->si_markoff, in Perl_debstack() 210 si = PL_curstackinfo; in Perl_deb_stack_all() 263 else if (si == PL_curstackinfo) { in Perl_deb_stack_all() 279 if (si_n == PL_curstackinfo) in Perl_deb_stack_all() 316 if (si == PL_curstackinfo) in Perl_deb_stack_all()
|
H A D | inline.h | 2079 cxix = PL_curstackinfo->si_cxsubix; in Perl_gimme_V() 2164 cx->blk_sub.old_cxsubix = PL_curstackinfo->si_cxsubix; in Perl_cx_pushsub() 2165 PL_curstackinfo->si_cxsubix = cx - PL_curstackinfo->si_cxstack; in Perl_cx_pushsub() 2192 PL_curstackinfo->si_cxsubix = cx->blk_sub.old_cxsubix; in Perl_cx_popsub_common() 2239 cx->blk_format.old_cxsubix = PL_curstackinfo->si_cxsubix; in Perl_cx_pushformat() 2240 PL_curstackinfo->si_cxsubix= cx - PL_curstackinfo->si_cxstack; in Perl_cx_pushformat() 2274 PL_curstackinfo->si_cxsubix = cx->blk_format.old_cxsubix; in Perl_cx_popformat() 2283 cx->blk_eval.old_cxsubix = PL_curstackinfo->si_cxsubix; in Perl_cx_pusheval() 2284 PL_curstackinfo->si_cxsubix= cx - PL_curstackinfo->si_cxstack; in Perl_cx_pusheval() 2320 PL_curstackinfo->si_cxsubix = cx->blk_eval.old_cxsubix; in Perl_cx_popeval()
|
H A D | perl.c | 4347 PL_curstackinfo = new_stackinfo(REASONABLE(128), in Perl_init_stacks() 4349 PL_curstackinfo->si_type = PERLSI_MAIN; in Perl_init_stacks() 4351 PL_curstackinfo->si_stack_hwm = 0; in Perl_init_stacks() 4353 PL_curstack = PL_curstackinfo->si_stack; in Perl_init_stacks() 4390 while (PL_curstackinfo->si_next) in S_nuke_stacks() 4391 PL_curstackinfo = PL_curstackinfo->si_next; in S_nuke_stacks() 4392 while (PL_curstackinfo) { in S_nuke_stacks() 4393 PERL_SI *p = PL_curstackinfo->si_prev; in S_nuke_stacks() 4395 Safefree(PL_curstackinfo->si_cxstack); in S_nuke_stacks() 4396 Safefree(PL_curstackinfo); in S_nuke_stacks() [all …]
|
H A D | pp.h | 305 if (ix > PL_curstackinfo->si_stack_hwm) \ 306 PL_curstackinfo->si_stack_hwm = ix; \
|
/dports/lang/perl5.30/perl-5.30.3/ |
H A D | cop.h | 1024 #define cxstack (PL_curstackinfo->si_cxstack) 1025 #define cxstack_ix (PL_curstackinfo->si_cxix) 1026 #define cxstack_max (PL_curstackinfo->si_cxmax) 1043 PERL_SI *next = PL_curstackinfo->si_next; \ 1045 int i = 0; PERL_SI *p = PL_curstackinfo; \ 1051 next->si_prev = PL_curstackinfo; \ 1052 PL_curstackinfo->si_next = next; \ 1059 PL_curstackinfo = next; \ 1070 PERL_SI * const prev = PL_curstackinfo->si_prev; \ 1072 int i = -1; PERL_SI *p = PL_curstackinfo; \ [all …]
|
H A D | deb.c | 173 PL_curstackinfo->si_markoff, in Perl_debstack() 210 si = PL_curstackinfo; in Perl_deb_stack_all() 263 else if (si == PL_curstackinfo) { in Perl_deb_stack_all() 279 if (si_n == PL_curstackinfo) in Perl_deb_stack_all() 316 if (si == PL_curstackinfo) in Perl_deb_stack_all()
|
H A D | perl.c | 4300 PL_curstackinfo = new_stackinfo(REASONABLE(128), in Perl_init_stacks() 4302 PL_curstackinfo->si_type = PERLSI_MAIN; in Perl_init_stacks() 4304 PL_curstackinfo->si_stack_hwm = 0; in Perl_init_stacks() 4306 PL_curstack = PL_curstackinfo->si_stack; in Perl_init_stacks() 4343 while (PL_curstackinfo->si_next) in S_nuke_stacks() 4344 PL_curstackinfo = PL_curstackinfo->si_next; in S_nuke_stacks() 4345 while (PL_curstackinfo) { in S_nuke_stacks() 4346 PERL_SI *p = PL_curstackinfo->si_prev; in S_nuke_stacks() 4348 Safefree(PL_curstackinfo->si_cxstack); in S_nuke_stacks() 4349 Safefree(PL_curstackinfo); in S_nuke_stacks() [all …]
|
H A D | pp.h | 305 if (ix > PL_curstackinfo->si_stack_hwm) \ 306 PL_curstackinfo->si_stack_hwm = ix; \
|
H A D | dump.c | 2489 SSize_t orig_stack_hwm = PL_curstackinfo->si_stack_hwm; in Perl_runops_debug() 2491 PL_curstackinfo->si_stack_hwm = PL_stack_sp - PL_stack_base; in Perl_runops_debug() 2504 if (PL_curstackinfo->si_stack_hwm < PL_stack_sp - PL_stack_base) in Perl_runops_debug() 2509 PL_stack_base + PL_curstackinfo->si_stack_hwm); in Perl_runops_debug() 2510 PL_curstackinfo->si_stack_hwm = PL_stack_sp - PL_stack_base; in Perl_runops_debug() 2542 if (PL_curstackinfo->si_stack_hwm < orig_stack_hwm) in Perl_runops_debug() 2543 PL_curstackinfo->si_stack_hwm = orig_stack_hwm; in Perl_runops_debug() 3030 PERL_SI *si = PL_curstackinfo; in S_deb_curcv()
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/ |
H A D | deb.c | 173 PL_curstackinfo->si_markoff, in Perl_debstack() 210 si = PL_curstackinfo; in Perl_deb_stack_all() 263 else if (si == PL_curstackinfo) { in Perl_deb_stack_all() 279 if (si_n == PL_curstackinfo) in Perl_deb_stack_all() 316 if (si == PL_curstackinfo) in Perl_deb_stack_all()
|
H A D | cop.h | 46 (je).je_old_stack_hwm = PL_curstackinfo->si_stack_hwm 1176 #define cxstack (PL_curstackinfo->si_cxstack) 1177 #define cxstack_ix (PL_curstackinfo->si_cxix) 1178 #define cxstack_max (PL_curstackinfo->si_cxmax) 1195 PERL_SI *next = PL_curstackinfo->si_next; \ 1197 int i = 0; PERL_SI *p = PL_curstackinfo; \ 1203 next->si_prev = PL_curstackinfo; \ 1204 PL_curstackinfo->si_next = next; \ 1212 PL_curstackinfo = next; \ 1225 int i = -1; PERL_SI *p = PL_curstackinfo; \ [all …]
|
H A D | inline.h | 2708 cxix = PL_curstackinfo->si_cxsubix; in Perl_gimme_V() 2793 cx->blk_sub.old_cxsubix = PL_curstackinfo->si_cxsubix; in Perl_cx_pushsub() 2794 PL_curstackinfo->si_cxsubix = cx - PL_curstackinfo->si_cxstack; in Perl_cx_pushsub() 2821 PL_curstackinfo->si_cxsubix = cx->blk_sub.old_cxsubix; in Perl_cx_popsub_common() 2868 cx->blk_format.old_cxsubix = PL_curstackinfo->si_cxsubix; in Perl_cx_pushformat() 2869 PL_curstackinfo->si_cxsubix= cx - PL_curstackinfo->si_cxstack; in Perl_cx_pushformat() 2903 PL_curstackinfo->si_cxsubix = cx->blk_format.old_cxsubix; in Perl_cx_popformat() 2929 cx->blk_eval.old_cxsubix = PL_curstackinfo->si_cxsubix; in Perl_cx_pusheval() 2930 PL_curstackinfo->si_cxsubix = cx - PL_curstackinfo->si_cxstack; in Perl_cx_pusheval() 2942 cx->blk_eval.old_cxsubix = PL_curstackinfo->si_cxsubix; in Perl_cx_pushtry() [all …]
|
H A D | perl.c | 4317 PL_curstackinfo = new_stackinfo(REASONABLE(128), in Perl_init_stacks() 4319 PL_curstackinfo->si_type = PERLSI_MAIN; in Perl_init_stacks() 4321 PL_curstackinfo->si_stack_hwm = 0; in Perl_init_stacks() 4323 PL_curstack = PL_curstackinfo->si_stack; in Perl_init_stacks() 4360 while (PL_curstackinfo->si_next) in S_nuke_stacks() 4361 PL_curstackinfo = PL_curstackinfo->si_next; in S_nuke_stacks() 4362 while (PL_curstackinfo) { in S_nuke_stacks() 4363 PERL_SI *p = PL_curstackinfo->si_prev; in S_nuke_stacks() 4365 Safefree(PL_curstackinfo->si_cxstack); in S_nuke_stacks() 4366 Safefree(PL_curstackinfo); in S_nuke_stacks() [all …]
|
H A D | pp.h | 322 if (ix > PL_curstackinfo->si_stack_hwm) \ 323 PL_curstackinfo->si_stack_hwm = ix; \
|
/dports/lang/perl5.34/perl-5.34.0/ |
H A D | deb.c | 173 PL_curstackinfo->si_markoff, in Perl_debstack() 210 si = PL_curstackinfo; in Perl_deb_stack_all() 263 else if (si == PL_curstackinfo) { in Perl_deb_stack_all() 279 if (si_n == PL_curstackinfo) in Perl_deb_stack_all() 316 if (si == PL_curstackinfo) in Perl_deb_stack_all()
|
H A D | cop.h | 1179 #define cxstack (PL_curstackinfo->si_cxstack) 1180 #define cxstack_ix (PL_curstackinfo->si_cxix) 1181 #define cxstack_max (PL_curstackinfo->si_cxmax) 1198 PERL_SI *next = PL_curstackinfo->si_next; \ 1200 int i = 0; PERL_SI *p = PL_curstackinfo; \ 1206 next->si_prev = PL_curstackinfo; \ 1207 PL_curstackinfo->si_next = next; \ 1215 PL_curstackinfo = next; \ 1226 PERL_SI * const prev = PL_curstackinfo->si_prev; \ 1228 int i = -1; PERL_SI *p = PL_curstackinfo; \ [all …]
|
H A D | inline.h | 2116 cxix = PL_curstackinfo->si_cxsubix; in Perl_gimme_V() 2201 cx->blk_sub.old_cxsubix = PL_curstackinfo->si_cxsubix; in Perl_cx_pushsub() 2202 PL_curstackinfo->si_cxsubix = cx - PL_curstackinfo->si_cxstack; in Perl_cx_pushsub() 2229 PL_curstackinfo->si_cxsubix = cx->blk_sub.old_cxsubix; in Perl_cx_popsub_common() 2276 cx->blk_format.old_cxsubix = PL_curstackinfo->si_cxsubix; in Perl_cx_pushformat() 2277 PL_curstackinfo->si_cxsubix= cx - PL_curstackinfo->si_cxstack; in Perl_cx_pushformat() 2311 PL_curstackinfo->si_cxsubix = cx->blk_format.old_cxsubix; in Perl_cx_popformat() 2337 cx->blk_eval.old_cxsubix = PL_curstackinfo->si_cxsubix; in Perl_cx_pusheval() 2338 PL_curstackinfo->si_cxsubix = cx - PL_curstackinfo->si_cxstack; in Perl_cx_pusheval() 2350 cx->blk_eval.old_cxsubix = PL_curstackinfo->si_cxsubix; in Perl_cx_pushtry() [all …]
|
H A D | perl.c | 4327 PL_curstackinfo = new_stackinfo(REASONABLE(128), in Perl_init_stacks() 4329 PL_curstackinfo->si_type = PERLSI_MAIN; in Perl_init_stacks() 4331 PL_curstackinfo->si_stack_hwm = 0; in Perl_init_stacks() 4333 PL_curstack = PL_curstackinfo->si_stack; in Perl_init_stacks() 4370 while (PL_curstackinfo->si_next) in S_nuke_stacks() 4371 PL_curstackinfo = PL_curstackinfo->si_next; in S_nuke_stacks() 4372 while (PL_curstackinfo) { in S_nuke_stacks() 4373 PERL_SI *p = PL_curstackinfo->si_prev; in S_nuke_stacks() 4375 Safefree(PL_curstackinfo->si_cxstack); in S_nuke_stacks() 4376 Safefree(PL_curstackinfo); in S_nuke_stacks() [all …]
|
H A D | pp.h | 322 if (ix > PL_curstackinfo->si_stack_hwm) \ 323 PL_curstackinfo->si_stack_hwm = ix; \
|
H A D | dump.c | 2537 SSize_t orig_stack_hwm = PL_curstackinfo->si_stack_hwm; in Perl_runops_debug() 2539 PL_curstackinfo->si_stack_hwm = PL_stack_sp - PL_stack_base; in Perl_runops_debug() 2552 if (PL_curstackinfo->si_stack_hwm < PL_stack_sp - PL_stack_base) in Perl_runops_debug() 2557 PL_stack_base + PL_curstackinfo->si_stack_hwm); in Perl_runops_debug() 2558 PL_curstackinfo->si_stack_hwm = PL_stack_sp - PL_stack_base; in Perl_runops_debug() 2590 if (PL_curstackinfo->si_stack_hwm < orig_stack_hwm) in Perl_runops_debug() 2591 PL_curstackinfo->si_stack_hwm = orig_stack_hwm; in Perl_runops_debug() 3077 PERL_SI *si = PL_curstackinfo; in S_deb_curcv()
|
/dports/devel/p5-B-Utils/B-Utils-0.27/ |
H A D | OP.xs | 44 PERL_SI *top_si = PL_curstackinfo; in BUtils_op_upcontext()
|
/dports/devel/p5-Coro/Coro-6.57/Coro/ |
H A D | State.xs | 894 PERL_SI *top_si = PL_curstackinfo; in save_perl() 975 PL_curstackinfo->si_type = PERLSI_MAIN; in coro_init_stacks() 976 PL_curstack = PL_curstackinfo->si_stack; in coro_init_stacks() 1026 while (PL_curstackinfo->si_next) in coro_destruct_stacks() 1027 PL_curstackinfo = PL_curstackinfo->si_next; in coro_destruct_stacks() 1029 while (PL_curstackinfo) in coro_destruct_stacks() 1031 PERL_SI *p = PL_curstackinfo->si_prev; in coro_destruct_stacks() 1034 SvREFCNT_dec (PL_curstackinfo->si_stack); in coro_destruct_stacks() 1036 Safefree (PL_curstackinfo->si_cxstack); in coro_destruct_stacks() 1037 Safefree (PL_curstackinfo); in coro_destruct_stacks() [all …]
|
/dports/devel/p5-PadWalker/PadWalker-2.5/ |
H A D | PadWalker.xs | 141 PERL_SI *top_si = PL_curstackinfo; in upcontext() 343 if (PL_curstackinfo->si_type != PERLSI_MAIN) in do_peek()
|
/dports/devel/p5-Want/Want-0.29/ |
H A D | Want.xs | 71 PERL_SI *top_si = PL_curstackinfo; in upcontext() 127 PERL_SI *top_si = PL_curstackinfo; in upcontext_plus()
|