Lines Matching defs:ix
223 I32 ix;
248 for (ix = AvFILLp(comppad_name); ix > 0; ix--) {
249 SV *namesv = namepad[ix];
253 CV *innercv = (CV*)curpad[ix];
254 namepad[ix] = Nullsv;
258 curpad[ix] = Nullsv;
282 ix = AvFILLp(padlist);
283 while (ix >= 0) {
284 SV* sv = AvARRAY(padlist)[ix--];
451 PADOFFSET ix;
459 ix = pad_alloc(op_type, SVs_PADMY);
460 av_store(PL_comppad_name, ix, name);
462 av_store(PL_comppad, ix, sv);
472 return ix;
1083 PADOFFSET ix;
1092 for (ix = AvFILLp(PL_comppad); ix > 0; ix--) {
1095 if (SvIMMORTAL(PL_curpad[ix]) || IS_PADGV(PL_curpad[ix]) || IS_PADCONST(PL_curpad[ix]))
1102 if (!((namesv = namep[ix]) != Nullsv &&
1107 SvREFCNT_dec(PL_curpad[ix]);
1108 PL_curpad[ix] = Nullsv;
1123 for (ix = AvFILLp(PL_comppad); ix > 0; ix--) {
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]);
1131 for (ix = AvFILLp(PL_comppad); ix > 0; ix--) {
1132 if (!SvPADMY(PL_curpad[ix]) && !SvIMMORTAL(PL_curpad[ix]))
1133 SvPADTMP_on(PL_curpad[ix]);
1196 I32 ix;
1210 for (ix = 1; ix <= AvFILLp(pad_name); ix++) {
1211 namesv = pname[ix];
1219 (int) ix,
1220 PTR2UV(ppad[ix]),
1221 (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0),
1227 (int) ix,
1228 PTR2UV(ppad[ix]),
1229 (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0),
1238 (int) ix,
1239 PTR2UV(ppad[ix]),
1240 (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0)
1317 I32 ix;
1363 for (ix = fname; ix >= 0; ix--)
1364 av_store(PL_comppad_name, ix, SvREFCNT_inc(pname[ix]));
1369 for (ix = fpad; ix > 0; ix--) {
1370 SV* namesv = (ix <= fname) ? pname[ix] : Nullsv;
1374 I32 off = pad_findlex(name, ix, cv);
1376 PL_curpad[ix] = SvREFCNT_inc(ppad[ix]);
1377 else if (off != ix)
1384 sv = SvREFCNT_inc(ppad[ix]);
1394 PL_curpad[ix] = sv;
1397 else if (IS_PADGV(ppad[ix]) || IS_PADCONST(ppad[ix])) {
1398 PL_curpad[ix] = SvREFCNT_inc(ppad[ix]);
1403 PL_curpad[ix] = sv;
1409 for (ix = fpad; ix > 0; ix--) {
1410 SV* namesv = (ix <= fname) ? pname[ix] : Nullsv;
1415 && CvCLONE(ppad[ix]))
1417 CV *kid = cv_clone2((CV*)ppad[ix], cv);
1418 SvREFCNT_dec(ppad[ix]);
1421 PL_curpad[ix] = (SV*)kid;
1462 I32 ix;
1467 for (ix = AvFILLp(comppad_name); ix > 0; ix--) {
1468 SV *namesv = namepad[ix];
1472 CV *innercv = (CV*)curpad[ix];
1501 I32 ix = AvFILLp((AV*)svp[1]);
1505 for ( ;ix > 0; ix--) {
1506 if (names_fill >= ix && names[ix] != &PL_sv_undef) {
1507 char *name = SvPVX(names[ix]);
1508 if ((SvFLAGS(names[ix]) & SVf_FAKE) || *name == '&') {
1510 av_store(newpad, ix, SvREFCNT_inc(oldpad[ix]));
1514 av_store(newpad, ix, sv = (SV*)newAV());
1516 av_store(newpad, ix, sv = (SV*)newHV());
1518 av_store(newpad, ix, sv = NEWSV(0, 0));
1522 else if (IS_PADGV(oldpad[ix]) || IS_PADCONST(oldpad[ix])) {
1523 av_store(newpad, ix, sv = SvREFCNT_inc(oldpad[ix]));
1527 av_store(newpad, ix, sv = NEWSV(0, 0));