Home
last modified time | relevance | path

Searched refs:PL_curstack (Results 1 – 13 of 13) sorted by relevance

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/
H A Ddeb.c70 PTR2UV(PL_curstack), PTR2UV(PL_stack_base), in Perl_debstackptrs()
75 PTR2UV(PL_mainstack), PTR2UV(AvARRAY(PL_curstack)), in Perl_debstackptrs()
76 PTR2UV(PL_mainstack), PTR2UV(AvFILLp(PL_curstack)), in Perl_debstackptrs()
77 PTR2UV(AvMAX(PL_curstack))); in Perl_debstackptrs()
H A Dcop.h300 if (cx->blk_loop.iterary && cx->blk_loop.iterary != PL_curstack)\
561 SWITCHSTACK(PL_curstack,next->si_stack); \
578 SWITCHSTACK(PL_curstack,prev->si_stack); \
585 while (PL_curstack != s) { \
H A Dav.c144 if (av == PL_curstack) { /* Oops, grew stack (via av_store()?) */ in Perl_av_extend()
321 if (av == PL_curstack && key > PL_stack_sp - PL_stack_base) in Perl_av_store()
H A Dpp.h310 PL_curstack = t; \
H A Dscope.c56 av_extend(PL_curstack, (p - PL_stack_base) + (n) + 128); in Perl_stack_grow()
58 av_extend(PL_curstack, (p - PL_stack_base) + (n) + 1); in Perl_stack_grow()
H A Dperlapi.h747 #undef PL_curstack
748 #define PL_curstack (*Perl_Tcurstack_ptr(aTHX))
H A Dembedvar.h55 #define PL_curstack (vTHX->Tcurstack) macro
1164 #define PL_curstack (aTHX->Tcurstack) macro
1304 #define PL_Tcurstack PL_curstack
H A Dperl.c3948 PL_curstack = PL_curstackinfo->si_stack;
3949 PL_mainstack = PL_curstack; /* remember in case we switch stacks */
3951 PL_stack_base = AvARRAY(PL_curstack);
3953 PL_stack_max = PL_stack_base + AvMAX(PL_curstack);
H A Dpp_ctl.c1729 cx->blk_loop.iterary = PL_curstack; in PP()
1730 AvFILLp(PL_curstack) = SP - PL_stack_base; in PP()
1812 AvARRAY(PL_curstack)[1] = *SP; in PP() local
H A Dpp_hot.c1909 if (cx->blk_loop.iterix >= (av == PL_curstack ? cx->blk_oldsp : AvFILL(av))) in PP()
1933 if (av != PL_curstack && sv == &PL_sv_undef) { in PP()
H A Dpp.c4412 AV *oldstack = PL_curstack; in PP()
4465 SWITCHSTACK(PL_curstack, ary); in PP()
H A Dsv.c11267 PL_curstack = av_dup(proto_perl->Tcurstack, param); in perl_clone_using()
11271 PL_stack_base = AvARRAY(PL_curstack); in perl_clone_using()
11274 PL_stack_max = PL_stack_base + AvMAX(PL_curstack); in perl_clone_using()
H A Dutil.c1047 thr, PL_curstack, PL_mainstack)); in Perl_vdie()