Home
last modified time | relevance | path

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

12

/mirbsd/src/gnu/usr.bin/perl/
Dpp.h70 *PL_markstack_ptr = (p) - PL_stack_base; \
78 #define dMARK register SV **mark = PL_stack_base + POPMARK
79 #define dORIGMARK const I32 origmark = mark - PL_stack_base
80 #define ORIGMARK (PL_stack_base + origmark)
297 const int markoff = mark - PL_stack_base; \
299 mark = PL_stack_base + markoff; \
393 AvFILLp(f) = sp - PL_stack_base; \
394 PL_stack_base = AvARRAY(t); \
395 PL_stack_max = PL_stack_base + AvMAX(t); \
396 sp = PL_stack_sp = PL_stack_base + AvFILLp(t); \
Ddeb.c75 PTR2UV(PL_curstack), PTR2UV(PL_stack_base), in Perl_debstackptrs()
76 (IV)*PL_markstack_ptr, (IV)(PL_stack_sp-PL_stack_base), in Perl_debstackptrs()
77 (IV)(PL_stack_max-PL_stack_base)); in Perl_debstackptrs()
146 deb_stack_n(PL_stack_base, in Perl_debstack()
148 PL_stack_sp - PL_stack_base, in Perl_debstack()
DXSUB.h89 #define ST(off) PL_stack_base[ax + (off)]
105 #define dAX const I32 ax = MARK - PL_stack_base + 1
109 register SV **mark = PL_stack_base + ax++
126 #define XSprePUSH (sp = PL_stack_base + ax - 1)
230 PL_stack_sp = PL_stack_base + ax + (tmpXSoff - 1); \
Dpp_hot.c53 PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; in PP()
140 PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; in PP()
991 SV **lastrelem = PL_stack_base + POPMARK; in PP()
992 SV **firstrelem = PL_stack_base + POPMARK + 1; in PP()
2291 PL_stack_base[PL_markstack_ptr[-1]++] = PL_stack_base[*PL_markstack_ptr]; in PP()
2296 if (PL_stack_base + *PL_markstack_ptr > SP) { in PP()
2304 SP = PL_stack_base + POPMARK; /* pop original mark */ in PP()
2319 src = PL_stack_base[*PL_markstack_ptr]; in PP()
2603 SP = PL_stack_base + POPMARK; in PP()
2703 if (SP > PL_stack_base + TOPMARK) in PP()
[all …]
Dpp_ctl.c857 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()
917 count = (SP - PL_stack_base) - (PL_markstack_ptr[-1] - 1); in PP()
939 dst = PL_stack_base + (PL_markstack_ptr[-2] += items) - 1; in PP()
964 SP = PL_stack_base + POPMARK; /* pop original mark */ in PP()
980 src = PL_stack_base[PL_markstack_ptr[-1]]; in PP()
1638 PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; in PP()
1762 cx->blk_oldsp = sp - PL_stack_base; in PP()
[all …]
Dcop.h277 cx->blk_loop.resetsp = s - PL_stack_base; \
326 cx->blk_oldsp = sp - PL_stack_base, \
338 newsp = PL_stack_base + cx->blk_oldsp, \
351 PL_stack_sp = PL_stack_base + cx->blk_oldsp, \
Dav.c148 PL_stack_sp = AvALLOC(av) + (PL_stack_sp - PL_stack_base); in Perl_av_extend()
149 PL_stack_base = AvALLOC(av); in Perl_av_extend()
150 PL_stack_max = PL_stack_base + newmax; in Perl_av_extend()
324 if (av == PL_curstack && key > PL_stack_sp - PL_stack_base) in Perl_av_store()
325 PL_stack_sp = PL_stack_base + key; /* XPUSH in disguise */ in Perl_av_store()
Dpp_sort.c1664 PUSHBLOCK(cx, CXt_NULL, PL_stack_base); in PP()
1746 PL_stack_sp = PL_stack_base; in sortcv()
1749 if (PL_stack_sp != PL_stack_base + 1) in sortcv()
1789 PL_stack_sp = PL_stack_base; in sortcv_stacked()
1792 if (PL_stack_sp != PL_stack_base + 1) in sortcv_stacked()
1813 SP = PL_stack_base; in sortcv_xsub()
1820 if (PL_stack_sp != PL_stack_base + 1) in sortcv_xsub()
Dcc_runtime.h41 PL_stack_sp = PL_stack_base + cxstack[cxstack_ix].blk_oldsp; \
Dperl.c2610 retval = PL_stack_sp - (PL_stack_base + oldmark);
2650 retval = PL_stack_sp - (PL_stack_base + oldmark);
2672 PL_stack_sp = PL_stack_base + oldmark;
2702 PL_stack_sp = PL_stack_base + oldmark;
2753 volatile I32 oldmark = SP - PL_stack_base;
2797 retval = PL_stack_sp - (PL_stack_base + oldmark);
2819 PL_stack_sp = PL_stack_base + oldmark;
2831 PL_stack_sp = PL_stack_base + oldmark;
4456 PL_stack_base = AvARRAY(PL_curstack);
4457 PL_stack_sp = PL_stack_base;
[all …]
Dscope.c63 av_extend(PL_curstack, (p - PL_stack_base) + (n) + 128); in Perl_stack_grow()
65 av_extend(PL_curstack, (p - PL_stack_base) + (n) + 1); in Perl_stack_grow()
995 PL_stack_sp = PL_stack_base + i; in Perl_leave_scope()
Dscope.h147 SSPUSHINT(PL_stack_sp - PL_stack_base); \
Dpp_pack.c884 I32 start_sp_offset = SP - PL_stack_base;
931 && (SP - PL_stack_base == start_sp_offset + 1)
1752 if (SP - PL_stack_base - start_sp_offset <= 0)
1778 return SP - PL_stack_base - start_sp_offset;
Dembedvar.h163 #define PL_stack_base (vTHX->Tstack_base) macro
1281 #define PL_stack_base (aTHX->Tstack_base) macro
1421 #define PL_Tstack_base PL_stack_base
1501 #define stack_base PL_stack_base
Dperlapi.h984 #undef PL_stack_base
985 #define PL_stack_base (*Perl_Tstack_base_ptr(aTHX))
Dpp.c4043 SV ** const lastlelem = PL_stack_base + POPMARK; in PP()
4044 SV ** const firstlelem = PL_stack_base + POPMARK + 1; in PP()
4555 base = SP - PL_stack_base; in PP()
4714 iters = (SP - PL_stack_base) - base; in PP()
Dpp_sys.c804 const I32 markoff = MARK - PL_stack_base; in PP()
881 SP = PL_stack_base + markoff; in PP()
1809 const int items = (SP - PL_stack_base) - TOPMARK; in PP()
/mirbsd/src/gnu/usr.bin/perl/ext/List/Util/
DUtil.xs94 # ifndef PL_stack_base
95 # define PL_stack_base stack_base macro
248 SV **args = &PL_stack_base[ax]; in reduce()
283 SV **args = &PL_stack_base[ax]; in first()
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/parts/base/
D500405022 PL_stack_base # added by devel/scanprov
/mirbsd/src/gnu/usr.bin/perl/ext/Devel/PPPort/parts/inc/
Dmisc64 # define PL_stack_base stack_base
213 __UNDEFINED__ dAX I32 ax = MARK - PL_stack_base + 1
/mirbsd/src/gnu/usr.bin/perl/ext/Thread/
DThread.xs125 retval = SP - (PL_stack_base + oldmark); in threadstart()
126 SP = PL_stack_base + oldmark + 1; in threadstart()
/mirbsd/src/gnu/usr.bin/perl/ext/Cwd/
DCwd.xs232 #define XSprePUSH (sp = PL_stack_base + ax - 1)
Dppport.h3023 # define PL_stack_base stack_base macro
3227 # define dAX I32 ax = MARK - PL_stack_base + 1
/mirbsd/src/gnu/usr.bin/perl/ext/Time/HiRes/
Dppport.h3023 # define PL_stack_base stack_base macro
3227 # define dAX I32 ax = MARK - PL_stack_base + 1
/mirbsd/src/gnu/usr.bin/perl/ext/DB_File/
DDB_File.xs164 I32 ax = mark - PL_stack_base + 1; \

12