Lines Matching defs:po
816 Get the value at offset po in the current pad.
824 Perl_pad_sv(pTHX_ PADOFFSET po)
829 if (!po)
830 Perl_croak(aTHX_ "panic: pad_sv po");
834 PTR2UV(PL_comppad), PTR2UV(PL_curpad), (long)po, PTR2UV(PL_curpad[po]))
836 return PL_curpad[po];
843 Set the entry at offset po in the current pad to sv.
851 Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv)
857 PTR2UV(PL_comppad), PTR2UV(PL_curpad), (long)po, PTR2UV(sv))
859 PL_curpad[po] = sv;
989 Abandon the tmp in the current pad at offset po and replace with a
996 Perl_pad_swipe(pTHX_ PADOFFSET po, bool refadjust)
1003 if (!po)
1004 Perl_croak(aTHX_ "panic: pad_swipe po");
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]);
1017 if ((I32)po < PL_padix)
1018 PL_padix = po - 1;
1040 register I32 po;
1053 for (po = AvMAX(PL_comppad); po > PL_padix_floor; po--) {
1054 if (PL_curpad[po] && !SvIMMORTAL(PL_curpad[po]))
1055 SvPADTMP_off(PL_curpad[po]);
1143 Free the SV at offet po in the current pad.
1150 Perl_pad_free(pTHX_ PADOFFSET po)
1157 if (!po)
1158 Perl_croak(aTHX_ "panic: pad_free po");
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 */
1174 if ((I32)po < PL_padix)
1175 PL_padix = po - 1;