Searched refs:PL_markstack_ptr (Results 1 - 11 of 11) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Ddeb.c71 (IV)*PL_markstack_ptr, (IV)(PL_stack_sp-PL_stack_base),
145 PL_markstack_ptr - PL_markstack);
273 mark_max = PL_markstack_ptr - PL_markstack;
H A Dpp.h66 #define PUSHMARK(p) if (++PL_markstack_ptr == PL_markstack_max) \
68 *PL_markstack_ptr = (p) - PL_stack_base
70 #define TOPMARK (*PL_markstack_ptr)
71 #define POPMARK (*PL_markstack_ptr--)
H A Dcop.h335 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
H A Dpp_ctl.c830 if (PL_stack_base + *PL_markstack_ptr == SP) {
836 PL_stack_sp = PL_stack_base + *PL_markstack_ptr + 1;
847 src = PL_stack_base[*PL_markstack_ptr];
866 I32 items = (SP - PL_stack_base) - *PL_markstack_ptr; /* how many new items */
873 ++PL_markstack_ptr[-1];
878 if (items > PL_markstack_ptr[-1] - PL_markstack_ptr[-2]) {
887 shift = items - (PL_markstack_ptr[-1] - PL_markstack_ptr[-2]);
890 count = (SP - PL_stack_base) - (PL_markstack_ptr[
[all...]
H A Dpp_hot.c2270 PL_stack_base[PL_markstack_ptr[-1]++] = PL_stack_base[*PL_markstack_ptr];
2271 ++*PL_markstack_ptr;
2275 if (PL_stack_base + *PL_markstack_ptr > SP) {
2281 items = --*PL_markstack_ptr - PL_markstack_ptr[-1];
2298 src = PL_stack_base[*PL_markstack_ptr];
H A Dmg.c2564 if (PL_markstack_ptr < PL_markstack_max - 2)
2584 PL_markstack_ptr++; /* Protect mark. */
2648 PL_markstack_ptr--;
H A Dperlapi.h795 #undef PL_markstack_ptr
796 #define PL_markstack_ptr (*Perl_Tmarkstack_ptr_ptr(aTHX))
H A Dembedvar.h79 #define PL_markstack_ptr (vTHX->Tmarkstack_ptr) macro
1188 #define PL_markstack_ptr (aTHX->Tmarkstack_ptr) macro
1328 #define PL_Tmarkstack_ptr PL_markstack_ptr
H A Dscope.c147 PL_markstack_ptr = PL_markstack + oldmax;
H A Dperl.c2171 PL_markstack_ptr--;
2191 PL_markstack_ptr++;
3961 PL_markstack_ptr = PL_markstack;
H A Dsv.c11239 /* next PUSHMARK() sets *(PL_markstack_ptr+1) */
11244 PL_markstack_ptr = PL_markstack + (proto_perl->Tmarkstack_ptr
11247 PL_markstack_ptr - PL_markstack + 1, I32);

Completed in 175 milliseconds