Searched refs:PL_markstack_ptr (Results 1 – 11 of 11) sorted by relevance
71 (IV)*PL_markstack_ptr, (IV)(PL_stack_sp-PL_stack_base), in Perl_debstackptrs()145 PL_markstack_ptr - PL_markstack); in Perl_debstack()273 mark_max = PL_markstack_ptr - PL_markstack; in Perl_deb_stack_all()
66 #define PUSHMARK(p) if (++PL_markstack_ptr == PL_markstack_max) \68 *PL_markstack_ptr = (p) - PL_stack_base70 #define TOPMARK (*PL_markstack_ptr)71 #define POPMARK (*PL_markstack_ptr--)
335 cx->blk_oldmarksp = PL_markstack_ptr - PL_markstack, \347 PL_markstack_ptr = PL_markstack + cx->blk_oldmarksp, \359 PL_markstack_ptr = PL_markstack + cx->blk_oldmarksp, \545 PL_curstackinfo->si_markoff = PL_markstack_ptr - PL_markstack
830 if (PL_stack_base + *PL_markstack_ptr == SP) { in PP()836 PL_stack_sp = PL_stack_base + *PL_markstack_ptr + 1; in PP()847 src = PL_stack_base[*PL_markstack_ptr]; in PP()866 I32 items = (SP - PL_stack_base) - *PL_markstack_ptr; /* how many new items */ in PP()873 ++PL_markstack_ptr[-1]; in PP()878 if (items > PL_markstack_ptr[-1] - PL_markstack_ptr[-2]) { in PP()887 shift = items - (PL_markstack_ptr[-1] - PL_markstack_ptr[-2]); in PP()890 count = (SP - PL_stack_base) - (PL_markstack_ptr[-1] - 1); in PP()906 PL_markstack_ptr[-1] += shift; in PP()907 *PL_markstack_ptr += shift; in PP()[all …]
2270 PL_stack_base[PL_markstack_ptr[-1]++] = PL_stack_base[*PL_markstack_ptr]; in PP()2271 ++*PL_markstack_ptr; in PP()2275 if (PL_stack_base + *PL_markstack_ptr > SP) { in PP()2281 items = --*PL_markstack_ptr - PL_markstack_ptr[-1]; in PP()2298 src = PL_stack_base[*PL_markstack_ptr]; in PP()
795 #undef PL_markstack_ptr796 #define PL_markstack_ptr (*Perl_Tmarkstack_ptr_ptr(aTHX))
79 #define PL_markstack_ptr (vTHX->Tmarkstack_ptr) macro1188 #define PL_markstack_ptr (aTHX->Tmarkstack_ptr) macro1328 #define PL_Tmarkstack_ptr PL_markstack_ptr
2564 if (PL_markstack_ptr < PL_markstack_max - 2) in Perl_sighandler()2584 PL_markstack_ptr++; /* Protect mark. */ in Perl_sighandler()2648 PL_markstack_ptr--; in Perl_sighandler()
2171 PL_markstack_ptr--; in S_parse_body()2191 PL_markstack_ptr++; in S_parse_body()3961 PL_markstack_ptr = PL_markstack;
147 PL_markstack_ptr = PL_markstack + oldmax; in Perl_markstack_grow()
11244 PL_markstack_ptr = PL_markstack + (proto_perl->Tmarkstack_ptr in perl_clone_using()11247 PL_markstack_ptr - PL_markstack + 1, I32); in perl_clone_using()