Home
last modified time | relevance | path

Searched refs:PL_curstackinfo (Results 1 – 25 of 164) sorted by relevance

1234567

/dports/lang/perl5.32/perl-5.32.1/
H A Dcop.h1059 #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 Ddeb.c173 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 Dinline.h2079 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 Dperl.c4347 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 Dpp.h305 if (ix > PL_curstackinfo->si_stack_hwm) \
306 PL_curstackinfo->si_stack_hwm = ix; \
/dports/lang/perl5.30/perl-5.30.3/
H A Dcop.h1024 #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 Ddeb.c173 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 Dperl.c4300 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 Dpp.h305 if (ix > PL_curstackinfo->si_stack_hwm) \
306 PL_curstackinfo->si_stack_hwm = ix; \
H A Ddump.c2489 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 Ddeb.c173 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 Dcop.h46 (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 Dinline.h2708 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 Dperl.c4317 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 Dpp.h322 if (ix > PL_curstackinfo->si_stack_hwm) \
323 PL_curstackinfo->si_stack_hwm = ix; \
/dports/lang/perl5.34/perl-5.34.0/
H A Ddeb.c173 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 Dcop.h1179 #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 Dinline.h2116 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 Dperl.c4327 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 Dpp.h322 if (ix > PL_curstackinfo->si_stack_hwm) \
323 PL_curstackinfo->si_stack_hwm = ix; \
H A Ddump.c2537 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 DOP.xs44 PERL_SI *top_si = PL_curstackinfo; in BUtils_op_upcontext()
/dports/devel/p5-Coro/Coro-6.57/Coro/
H A DState.xs894 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 DPadWalker.xs141 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 DWant.xs71 PERL_SI *top_si = PL_curstackinfo; in upcontext()
127 PERL_SI *top_si = PL_curstackinfo; in upcontext_plus()

1234567