Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/pad.c

Lines Matching refs:PL_curpad
32 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 = AvARRAY(PL_comppad);
435 	  PTR2UV(PL_comppad), PTR2UV(PL_curpad), (long) retval,
461     /* XXX DAPM use PL_curpad[] ? */
764 			PL_curpad = AvARRAY(PL_comppad);
776 			PL_curpad = ocomppad ?
834 	PTR2UV(PL_comppad), PTR2UV(PL_curpad), (long)po, PTR2UV(PL_curpad[po]))
836     return PL_curpad[po];
857 	PTR2UV(PL_comppad), PTR2UV(PL_curpad), (long)po, PTR2UV(sv))
859     PL_curpad[po] = sv;
999     if (!PL_curpad)
1001     if (AvARRAY(PL_comppad) != PL_curpad)
1008 		PTR2UV(PL_comppad), PTR2UV(PL_curpad), (long)po));
1010     if (PL_curpad[po])
1011 	SvPADTMP_off(PL_curpad[po]);
1013 	SvREFCNT_dec(PL_curpad[po]);
1015     PL_curpad[po] = NEWSV(1107,0);
1016     SvPADTMP_on(PL_curpad[po]);
1042     if (AvARRAY(PL_comppad) != PL_curpad)
1047 	    PTR2UV(PL_comppad), PTR2UV(PL_curpad),
1054 	    if (PL_curpad[po] && !SvIMMORTAL(PL_curpad[po]))
1055 		SvPADTMP_off(PL_curpad[po]);
1095 	    if (SvIMMORTAL(PL_curpad[ix]) || IS_PADGV(PL_curpad[ix]) || IS_PADCONST(PL_curpad[ix]))
1107 		SvREFCNT_dec(PL_curpad[ix]);
1108 		PL_curpad[ix] = Nullsv;
1124 	    if (SvIMMORTAL(PL_curpad[ix]) || IS_PADGV(PL_curpad[ix]) || IS_PADCONST(PL_curpad[ix]))
1126 	    if (!SvPADMY(PL_curpad[ix]))
1127 		SvPADTMP_on(PL_curpad[ix]);
1132 	    if (!SvPADMY(PL_curpad[ix]) && !SvIMMORTAL(PL_curpad[ix]))
1133 		SvPADTMP_on(PL_curpad[ix]);
1136     PL_curpad = AvARRAY(PL_comppad);
1153     if (!PL_curpad)
1155     if (AvARRAY(PL_comppad) != PL_curpad)
1162 	    PTR2UV(PL_comppad), PTR2UV(PL_curpad), (long)po)
1165     if (PL_curpad[po] && PL_curpad[po] != &PL_sv_undef) {
1166 	SvPADTMP_off(PL_curpad[po]);
1169 	if (!SvFAKE(PL_curpad[po]))
1170 	    SvREADONLY_off(PL_curpad[po]);	/* could be a freed constant */
1367     PL_curpad = AvARRAY(PL_comppad);
1376 		    PL_curpad[ix] = SvREFCNT_inc(ppad[ix]);
1394 		PL_curpad[ix] = sv;
1398 	    PL_curpad[ix] = SvREFCNT_inc(ppad[ix]);
1403 	    PL_curpad[ix] = sv;
1421 	    PL_curpad[ix] = (SV*)kid;