Home
last modified time | relevance | path

Searched refs:PL_stack_base (Results 1 – 21 of 21) sorted by relevance

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/
H A Dpp.h68 *PL_markstack_ptr = (p) - PL_stack_base
75 #define dMARK register SV **mark = PL_stack_base + POPMARK
76 #define dORIGMARK I32 origmark = mark - PL_stack_base
77 #define SETORIGMARK origmark = mark - PL_stack_base
78 #define ORIGMARK (PL_stack_base + origmark)
222 int markoff = mark - PL_stack_base; \
224 mark = PL_stack_base + markoff; \
306 AvFILLp(f) = sp - PL_stack_base; \
307 PL_stack_base = AvARRAY(t); \
308 PL_stack_max = PL_stack_base + AvMAX(t); \
[all …]
H A Ddeb.c70 PTR2UV(PL_curstack), PTR2UV(PL_stack_base), in Perl_debstackptrs()
71 (IV)*PL_markstack_ptr, (IV)(PL_stack_sp-PL_stack_base), in Perl_debstackptrs()
72 (IV)(PL_stack_max-PL_stack_base)); in Perl_debstackptrs()
141 deb_stack_n(PL_stack_base, in Perl_debstack()
143 PL_stack_sp - PL_stack_base, in Perl_debstack()
H A DXSUB.h73 #define ST(off) PL_stack_base[ax + (off)]
81 #define dAX I32 ax = MARK - PL_stack_base + 1
93 #define XSprePUSH (sp = PL_stack_base + ax - 1)
197 PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); \
H A Dpp_hot.c40 PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; in PP()
127 PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; in PP()
978 SV **lastrelem = PL_stack_base + POPMARK; in PP()
979 SV **firstrelem = PL_stack_base + POPMARK + 1; in PP()
2270 PL_stack_base[PL_markstack_ptr[-1]++] = PL_stack_base[*PL_markstack_ptr]; in PP()
2275 if (PL_stack_base + *PL_markstack_ptr > SP) { in PP()
2283 SP = PL_stack_base + POPMARK; /* pop original mark */ in PP()
2298 src = PL_stack_base[*PL_markstack_ptr]; in PP()
2580 SP = PL_stack_base + POPMARK; in PP()
2679 if (SP > PL_stack_base + TOPMARK) in PP()
[all …]
H A Dcc_runtime.h41 PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; \
H A Dpp_sort.c1557 PUSHBLOCK(cx, CXt_NULL, PL_stack_base); in PP()
1640 PL_stack_sp = PL_stack_base; in sortcv()
1643 if (PL_stack_sp != PL_stack_base + 1) in sortcv()
1685 PL_stack_sp = PL_stack_base; in sortcv_stacked()
1688 if (PL_stack_sp != PL_stack_base + 1) in sortcv_stacked()
1709 SP = PL_stack_base; in sortcv_xsub()
1716 if (PL_stack_sp != PL_stack_base + 1) in sortcv_xsub()
H A Dcop.h284 cx->blk_loop.resetsp = s - PL_stack_base; \
333 cx->blk_oldsp = sp - PL_stack_base, \
345 newsp = PL_stack_base + cx->blk_oldsp, \
358 PL_stack_sp = PL_stack_base + cx->blk_oldsp, \
H A Dav.c145 PL_stack_sp = AvALLOC(av) + (PL_stack_sp - PL_stack_base); in Perl_av_extend()
146 PL_stack_base = AvALLOC(av); in Perl_av_extend()
147 PL_stack_max = PL_stack_base + newmax; in Perl_av_extend()
321 if (av == PL_curstack && key > PL_stack_sp - PL_stack_base) in Perl_av_store()
322 PL_stack_sp = PL_stack_base + key; /* XPUSH in disguise */ in Perl_av_store()
H A Dpp_ctl.c830 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()
890 count = (SP - PL_stack_base) - (PL_markstack_ptr[-1] - 1); in PP()
912 dst = PL_stack_base + (PL_markstack_ptr[-2] += items) - 1; in PP()
937 SP = PL_stack_base + POPMARK; /* pop original mark */ in PP()
953 src = PL_stack_base[PL_markstack_ptr[-1]]; in PP()
1611 PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; in PP()
1730 AvFILLp(PL_curstack) = SP - PL_stack_base; in PP()
[all …]
H A Dperl.c2166 retval = PL_stack_sp - (PL_stack_base + oldmark); in S_parse_body()
2206 retval = PL_stack_sp - (PL_stack_base + oldmark); in S_parse_body()
2228 PL_stack_sp = PL_stack_base + oldmark; in S_parse_body()
2255 PL_stack_sp = PL_stack_base + oldmark; in S_parse_body()
2306 volatile I32 oldmark = SP - PL_stack_base; in S_parse_body()
2348 retval = PL_stack_sp - (PL_stack_base + oldmark); in S_parse_body()
2370 PL_stack_sp = PL_stack_base + oldmark; in S_parse_body()
2382 PL_stack_sp = PL_stack_base + oldmark; in S_parse_body()
3951 PL_stack_base = AvARRAY(PL_curstack);
3952 PL_stack_sp = PL_stack_base;
[all …]
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()
978 PL_stack_sp = PL_stack_base + i; in Perl_leave_scope()
H A Dscope.h146 SSPUSHINT(PL_stack_sp - PL_stack_base); \
H A Dembedvar.h161 #define PL_stack_base (vTHX->Tstack_base) macro
1270 #define PL_stack_base (aTHX->Tstack_base) macro
1410 #define PL_Tstack_base PL_stack_base
1488 #define stack_base PL_stack_base
H A Dpp_pack.c543 I32 start_sp_offset = SP - PL_stack_base;
583 && (SP - PL_stack_base == start_sp_offset + 1)
1679 if (SP - PL_stack_base - start_sp_offset <= 0)
1704 return SP - PL_stack_base - start_sp_offset;
H A Dperlapi.h959 #undef PL_stack_base
960 #define PL_stack_base (*Perl_Tstack_base_ptr(aTHX))
H A Dpp.c3952 SV **lastlelem = PL_stack_base + POPMARK; in PP()
3953 SV **firstlelem = PL_stack_base + POPMARK + 1; in PP()
4470 base = SP - PL_stack_base; in PP()
4636 iters = (SP - PL_stack_base) - base; in PP()
H A Dpp_sys.c782 I32 markoff = MARK - PL_stack_base; in PP()
859 SP = PL_stack_base + markoff; in PP()
1764 int items = (SP - PL_stack_base) - TOPMARK; in PP()
H A Dregexec.c2084 (IV)(PL_stack_sp - PL_stack_base)); in S_regtry()
2087 cxstack[cxstack_ix].blk_oldsp = PL_stack_sp - PL_stack_base; in S_regtry()
H A Dsv.c11271 PL_stack_base = AvARRAY(PL_curstack); in perl_clone_using()
11272 PL_stack_sp = PL_stack_base + (proto_perl->Tstack_sp in perl_clone_using()
11274 PL_stack_max = PL_stack_base + AvMAX(PL_curstack); in perl_clone_using()
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/
H A DUtil.xs91 # ifndef PL_stack_base
92 # define PL_stack_base stack_base macro
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/pod/
H A Dperlcall.pod1878 ax = (SP - PL_stack_base) + 1 ;
1908 ax = (SP - PL_stack_base) + 1 ;