Home
last modified time | relevance | path

Searched refs:PL_savestack_ix (Results 1 – 23 of 23) sorted by relevance

/openbsd/gnu/usr.bin/perl/
H A Dscope.h56 I32 ix = PL_savestack_ix; \
65 assert(PL_savestack_ix <= PL_savestack_max);
76 #define SSPOPINT (PL_savestack[--PL_savestack_ix].any_i32)
77 #define SSPOPLONG (PL_savestack[--PL_savestack_ix].any_long)
78 #define SSPOPBOOL (PL_savestack[--PL_savestack_ix].any_bool)
79 #define SSPOPIV (PL_savestack[--PL_savestack_ix].any_iv)
80 #define SSPOPUV (PL_savestack[--PL_savestack_ix].any_uv)
81 #define SSPOPPTR (PL_savestack[--PL_savestack_ix].any_ptr)
82 #define SSPOPDPTR (PL_savestack[--PL_savestack_ix].any_dptr)
83 #define SSPOPDXPTR (PL_savestack[--PL_savestack_ix].any_dxptr)
[all …]
H A Dscope.c146 PL_scopestack[PL_scopestack_ix++] = PL_savestack_ix; in Perl_push_scope()
184 const I32 by = PL_savestack_max - PL_savestack_ix; in Perl_savestack_grow()
1075 const SSize_t start = pad + ((char*)&PL_savestack[PL_savestack_ix] in Perl_save_alloc()
1087 PL_savestack_ix += elems; in Perl_save_alloc()
1112 (long)PL_savestack_ix, (long)base)); in Perl_leave_scope()
1113 while (PL_savestack_ix > base) { in Perl_leave_scope()
1123 I32 ix = PL_savestack_ix - 1; in Perl_leave_scope()
1129 PL_savestack_ix = ix - argcount; in Perl_leave_scope()
1520 PL_savestack_ix += 4; in Perl_leave_scope()
1531 PL_savestack_ix += 2; in Perl_leave_scope()
[all …]
H A Dperly.c416 ps->savestack_ix = PL_savestack_ix; in Perl_yyparse()
468 ps->savestack_ix = PL_savestack_ix; in Perl_yyparse()
582 ps->savestack_ix = PL_savestack_ix; in Perl_yyparse()
H A Dmg.c115 mgs->mgs_ss_ix = PL_savestack_ix; /* points after the saved destructor */ in S_save_magic_flags()
3679 I32 old_ss_ix = PL_savestack_ix; in Perl_perly_sighandler()
3692 if (PL_savestack_ix + 15 <= PL_savestack_max) { in Perl_perly_sighandler()
3694 PL_savestack_ix += 5; /* Protect save in progress. */ in Perl_perly_sighandler()
3731 assert(old_ss_ix + 2 + ((flags & 1) ? 3+5 : 0) == PL_savestack_ix); in Perl_perly_sighandler()
3827 PL_savestack_ix = old_ss_ix; in Perl_perly_sighandler()
3866 if (PL_savestack_ix == mgs->mgs_ss_ix) in S_restore_magic()
3870 PL_savestack_ix -= 2; in S_restore_magic()
3873 PL_savestack_ix -= popval >> SAVE_TIGHT_SHIFT; in S_restore_magic()
3900 PL_savestack_ix -= 5; /* Unprotect save in progress. */ in S_unwind_handler_stack()
H A Dpp_sort.c915 I32 old_savestack_ix = PL_savestack_ix; in PP()
1169 const I32 oldsaveix = PL_savestack_ix; in S_sortcv()
1208 const I32 oldsaveix = PL_savestack_ix; in S_sortcv_stacked()
1274 const I32 oldsaveix = PL_savestack_ix; in S_sortcv_xsub()
H A Dpp_ctl.c2422 cx = cx_pushblock(CXt_SUB, gimme, PL_stack_sp, PL_savestack_ix); in PP()
2451 (void)cx_pushblock(CXt_BLOCK, gimme, PL_stack_sp, PL_savestack_ix); in PP()
2558 cx = cx_pushblock(cxflags, gimme, MARK, PL_savestack_ix); in PP()
2641 cx = cx_pushblock(CXt_LOOP_PLAIN, gimme, PL_stack_sp, PL_savestack_ix); in PP()
5206 old_savestack_ix = PL_savestack_ix; in S_require_file()
5354 old_savestack_ix = PL_savestack_ix; in PP()
5585 PL_stack_sp, PL_savestack_ix); in PP()
5641 sp, PL_savestack_ix); in Perl_create_eval_scope()
5718 cx = cx_pushblock(CXt_GIVEN, gimme, PL_stack_sp, PL_savestack_ix); in PP()
6283 cx = cx_pushblock(CXt_WHEN, gimme, PL_stack_sp, PL_savestack_ix); in PP()
[all …]
H A Dregexec.c230 const int retval = PL_savestack_ix; in S_regcppush()
270 PL_savestack_ix += paren_elems_to_push; in S_regcppush()
310 cp = PL_savestack_ix
412 depth, PL_savestack_ix); in S_regcppop()
435 PL_savestack_ix -= i; in S_regcppop()
490 depth, PL_savestack_ix); in S_regcppop()
500 I32 tmpix = PL_savestack_ix; in S_regcp_restore()
503 PL_savestack_ix = ix; in S_regcp_restore()
505 PL_savestack_ix = tmpix; in S_regcp_restore()
3770 oldsave = PL_savestack_ix; in Perl_regexec_flags()
[all …]
H A Dcop.h1036 (long)PL_savestack_ix, \
1391 PL_stack_sp, PL_savestack_ix); \
H A Dembedvar.h258 # define PL_savestack_ix (vTHX->Isavestack_ix) macro
H A Dperl.c1296 if (PL_savestack_ix != 0) in perl_destruct()
1299 (long)PL_savestack_ix); in perl_destruct()
4549 PL_savestack_ix = 0; in Perl_init_stacks()
H A Dpp_hot.c3713 const I32 oldsave = PL_savestack_ix; in PP()
5225 const I32 oldsave = PL_savestack_ix; in PP()
6218 old_savestack_ix = PL_savestack_ix; in PP()
6262 old_savestack_ix = PL_savestack_ix; in PP()
H A Dclass.c646 I32 floor_ix = PL_savestack_ix; in Perl_class_seal_stash()
H A Dinline.h3615 || PL_savestack_ix == cx->blk_oldsaveix); in Perl_cx_popblock()
H A Dpp.c6624 I32 oldsave = PL_savestack_ix;
6656 oldsave = PL_savestack_ix;
H A Dop.c4540 const int retval = PL_savestack_ix; in Perl_block_start()
4701 i = PL_savestack_ix; in Perl_newPROG()
4706 PL_savestack_ix = i; in Perl_newPROG()
H A Dpp_sys.c1650 cx = cx_pushblock(CXt_FORMAT, gimme, PL_stack_sp, PL_savestack_ix); in S_doform()
H A Dperl.h5114 where, (long)PL_scopestack_ix, (long)PL_savestack_ix, \
H A Dsv.c15671 PL_savestack_ix = 0;
15865 PL_savestack_ix = proto_perl->Isavestack_ix;
H A Dtoke.c12812 const I32 oldsavestack_ix = PL_savestack_ix; in Perl_start_subparse()
/openbsd/gnu/usr.bin/perl/dist/Devel-PPPort/parts/base/
H A D5005000502 PL_savestack_ix # Z added by devel/scanprov
/openbsd/gnu/usr.bin/perl/pod/
H A Dperlguts.pod4031 The head of the stack is indexed by C<PL_savestack_ix>, an integer which
4037 =for apidoc Amnh||PL_savestack_ix
4204 I32 old_ss_ix = PL_savestack_ix;
4266 Note the early capture of C<PL_savestack_ix> to C<old_ss_ix>, which is
4273 the old value of C<PL_savestack_ix> to C<cx_pushblock>, to ensure that the
4276 C<PL_savestack_ix> is just passed directly as an arg to C<cx_pushblock>.
H A Dperl5240delta.pod1564 C<cx_pushblock()> now saves C<PL_savestack_ix> and C<PL_tmps_floor>, so
/openbsd/gnu/usr.bin/perl/ext/XS-APItest/
H A DAPItest.xs8152 RETVAL = PL_savestack_ix;