Searched refs:PL_curpad (Results 1 - 9 of 9) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dpad.h50 * whether PL_comppad and PL_curpad are consistent and whether they have
55 if (PL_comppad ? (AvARRAY(PL_comppad) != PL_curpad) : (PL_curpad != 0)) \
57 label, PTR2UV(PL_comppad), PTR2UV(PL_curpad));
61 if (!PL_comppad || (AvARRAY(PL_comppad) != PL_curpad)) \
63 label, PTR2UV(PL_comppad), PTR2UV(PL_curpad));
83 save PL_comppad and PL_curpad
128 # define PAD_SV(po) (PL_curpad[po])
129 # define PAD_SETSV(po,sv) PL_curpad[po] = (sv)
132 #define PAD_SVl(po) (PL_curpad[p
[all...]
H A Dpad.c32 XSUBs don't have CvPADLIST set - dXSTARG fetches values from PL_curpad,
51 C<PL_curpad> is set to the body of the frame AV (i.e. AvARRAY(PL_comppad)).
53 During execution, C<PL_comppad> and C<PL_curpad> refer to the live
186 PL_curpad = AvARRAY(PL_comppad);
197 PTR2UV(PL_comppad), PTR2UV(PL_curpad), PTR2UV(padlist),
291 PL_curpad = Null(SV**);
364 * av_store with PL_curpad[offset] ? */
369 SvPADMY_on(PL_curpad[offset]);
400 if (AvARRAY(PL_comppad) != PL_curpad)
431 PL_curpad
[all...]
H A Dscope.c481 SSPUSHPTR(PL_curpad[off]);
565 SSPUSHLONG((long)(svp-PL_curpad));
897 ptr = (void*)&PL_curpad[SSPOPLONG];
902 PTR2UV(PL_comppad), PTR2UV(PL_curpad),
903 (long)((SV **)ptr-PL_curpad), PTR2UV(sv), (IV)SvREFCNT(sv),
1036 PL_curpad = AvARRAY(PL_comppad);
1038 PL_curpad = Null(SV**);
H A Dperlapi.h743 #undef PL_curpad
744 #define PL_curpad (*Perl_Tcurpad_ptr(aTHX))
H A Dembedvar.h53 #define PL_curpad (vTHX->Tcurpad) macro
1162 #define PL_curpad (aTHX->Tcurpad) macro
1302 #define PL_Tcurpad PL_curpad
H A Dutil.c3116 PL_curpad = 0;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/
H A DUtil.xs81 # define PL_curpad curpad
236 SAVESPTR(PL_curpad);
237 PL_curpad = AvARRAY((AV*)AvARRAY(CvPADLIST(cv))[1]);
287 SAVESPTR(PL_curpad);
288 PL_curpad = AvARRAY((AV*)AvARRAY(CvPADLIST(cv))[1]);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DCC.pm439 debug sprintf("PL_curpad[$ix] = %s\n", $pad[$ix]->peek) if $debug_pad;
581 runtime("SAVECLEARSV(PL_curpad[$ix]);");
583 runtime(sprintf("vivify_ref(PL_curpad[%d], %d);",
1310 runtime sprintf("if (SvTRUE(PL_curpad[%d])) goto %s;",
1336 runtime("\tsv_setiv(PL_curpad[$rangeix], 1);");
1338 runtime("sv_setiv(PL_curpad[$ix], 1);");
1341 runtime("\tsv_setiv(PL_curpad[$ix], 0);",
1346 qq{sv_setpv(PL_curpad[$ix], "");},
1347 "SETs(PL_curpad[$ix]);");
1649 "PL_curpad
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ByteLoader/
H A Dbyterun.c1021 BSET_curpad(PL_curpad, arg);

Completed in 80 milliseconds