Searched refs:PL_markstack_ptr (Results 1 – 11 of 11) sorted by relevance
76 (IV)*PL_markstack_ptr, (IV)(PL_stack_sp-PL_stack_base), in Perl_debstackptrs()150 PL_markstack_ptr - PL_markstack); in Perl_debstack()273 mark_max = PL_markstack_ptr - PL_markstack; in Perl_deb_stack_all()
68 if (++PL_markstack_ptr == PL_markstack_max) \70 *PL_markstack_ptr = (p) - PL_stack_base; \73 #define TOPMARK (*PL_markstack_ptr)74 #define POPMARK (*PL_markstack_ptr--)
328 cx->blk_oldmarksp = PL_markstack_ptr - PL_markstack, \340 PL_markstack_ptr = PL_markstack + cx->blk_oldmarksp, \352 PL_markstack_ptr = PL_markstack + cx->blk_oldmarksp, \538 PL_curstackinfo->si_markoff = PL_markstack_ptr - PL_markstack
857 if (PL_stack_base + *PL_markstack_ptr == SP) { in PP()863 PL_stack_sp = PL_stack_base + *PL_markstack_ptr + 1; in PP()874 src = PL_stack_base[*PL_markstack_ptr]; in PP()893 I32 items = (SP - PL_stack_base) - *PL_markstack_ptr; /* how many new items */ in PP()900 ++PL_markstack_ptr[-1]; in PP()905 if (items > PL_markstack_ptr[-1] - PL_markstack_ptr[-2]) { in PP()914 shift = items - (PL_markstack_ptr[-1] - PL_markstack_ptr[-2]); in PP()917 count = (SP - PL_stack_base) - (PL_markstack_ptr[-1] - 1); in PP()933 PL_markstack_ptr[-1] += shift; in PP()934 *PL_markstack_ptr += shift; in PP()[all …]
2291 PL_stack_base[PL_markstack_ptr[-1]++] = PL_stack_base[*PL_markstack_ptr]; in PP()2292 ++*PL_markstack_ptr; in PP()2296 if (PL_stack_base + *PL_markstack_ptr > SP) { in PP()2302 items = --*PL_markstack_ptr - PL_markstack_ptr[-1]; in PP()2319 src = PL_stack_base[*PL_markstack_ptr]; in PP()
81 #define PL_markstack_ptr (vTHX->Tmarkstack_ptr) macro1199 #define PL_markstack_ptr (aTHX->Tmarkstack_ptr) macro1339 #define PL_Tmarkstack_ptr PL_markstack_ptr
820 #undef PL_markstack_ptr821 #define PL_markstack_ptr (*Perl_Tmarkstack_ptr_ptr(aTHX))
2611 if (PL_markstack_ptr < PL_markstack_max - 2) in Perl_sighandler()2631 PL_markstack_ptr++; /* Protect mark. */ in Perl_sighandler()2697 PL_markstack_ptr--; in Perl_sighandler()
2615 PL_markstack_ptr--;2635 PL_markstack_ptr++;4466 PL_markstack_ptr = PL_markstack;
154 PL_markstack_ptr = PL_markstack + oldmax; in Perl_markstack_grow()
11496 PL_markstack_ptr = PL_markstack + (proto_perl->Tmarkstack_ptr in perl_clone_using()11499 PL_markstack_ptr - PL_markstack + 1, I32); in perl_clone_using()