Lines Matching defs:sv
284 SV* sv = AvARRAY(padlist)[ix--];
285 if (!sv)
287 if (sv == (SV*)PL_comppad_name)
289 else if (sv == (SV*)PL_comppad) {
293 SvREFCNT_dec(sv);
395 SV *sv;
406 sv = *av_fetch(PL_comppad, AvFILLp(PL_comppad) + 1, TRUE);
407 } while (SvPADBUSY(sv)); /* need a fresh one */
419 /* HVDS why copy to sv here? we don't seem to use it */
421 (sv = names[PL_padix]) && sv != &PL_sv_undef)
423 sv = *av_fetch(PL_comppad, PL_padix, TRUE);
424 if (!(SvFLAGS(sv) & (SVs_PADTMP | SVs_PADMY)) &&
425 !IS_PADGV(sv) && !IS_PADCONST(sv))
430 SvFLAGS(sv) |= tmptype;
449 Perl_pad_add_anon(pTHX_ SV* sv, OPCODE op_type)
462 av_store(PL_comppad, ix, sv);
463 SvPADMY_on(sv);
467 if (CvOUTSIDE((CV*)sv)) {
468 assert(!CvWEAKOUTSIDE((CV*)sv));
469 CvWEAKOUTSIDE_on((CV*)sv);
470 SvREFCNT_dec(CvOUTSIDE((CV*)sv));
494 SV **svp, *sv;
507 if ((sv = svp[off])
508 && sv != &PL_sv_undef
509 && !SvFAKE(sv)
510 && (SvIVX(sv) == PAD_MAX || SvIVX(sv) == 0)
512 || ((SvFLAGS(sv) & SVpad_OUR) && GvSTASH(sv) == ourstash))
513 && strEQ(name, SvPVX(sv)))
519 (SvIVX(sv) == PAD_MAX ? "scope" : "statement"));
527 if ((sv = svp[off])
528 && sv != &PL_sv_undef
529 && !SvFAKE(sv)
530 && (SvIVX(sv) == PAD_MAX || SvIVX(sv) == 0)
531 && ((SvFLAGS(sv) & SVpad_OUR) && GvSTASH(sv) == ourstash)
532 && strEQ(name, SvPVX(sv)))
564 SV *sv;
586 sv = svp[off];
587 if (!sv || sv == &PL_sv_undef || !strEQ(SvPVX(sv), name))
589 if (SvFAKE(sv)) {
595 if ( seq > U_32(SvNVX(sv)) /* min */
596 && seq <= (U32)SvIVX(sv)) /* max */
598 else if ((SvFLAGS(sv) & SVpad_OUR)
599 && U_32(SvNVX(sv)) == PAD_MAX) /* min */
640 SV *sv;
678 sv = svp[off];
679 if (!sv || sv == &PL_sv_undef || !strEQ(SvPVX(sv), name))
681 if (SvFAKE(sv)) {
687 if ( seq > U_32(SvNVX(sv)) /* min */
688 && seq <= (U32)SvIVX(sv) /* max */
700 sv = svp[off];
715 if (SvFAKE(sv))
718 " FAKE, sv=0x%"UVxf"\n",
726 " (%lu,%lu), sv=0x%"UVxf"\n",
728 (unsigned long)U_32(SvNVX(sv)),
729 (unsigned long)SvIVX(sv),
737 SvPVX(sv),
738 (SvFLAGS(sv) & SVpad_TYPED) ? SvSTASH(sv) : Nullhv,
739 (SvFLAGS(sv) & SVpad_OUR) ? GvSTASH(sv) : Nullhv,
766 SvPVX(sv),
767 (SvFLAGS(sv) & SVpad_TYPED)
768 ? SvSTASH(sv) : Nullhv,
769 (SvFLAGS(sv) & SVpad_OUR)
770 ? GvSTASH(sv) : Nullhv,
794 if (ckWARN(WARN_CLOSURE) && !SvFAKE(sv) && !CvUNIQUE(cv)
795 && !(SvFLAGS(sv) & SVpad_OUR))
805 "Pad findlex: set offset %ld to sv 0x%"UVxf"\n",
833 "Pad 0x%"UVxf"[0x%"UVxf"] sv: %ld sv=0x%"UVxf"\n",
843 Set the entry at offset po in the current pad to sv.
851 Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv)
856 "Pad 0x%"UVxf"[0x%"UVxf"] setsv: %ld sv=0x%"UVxf"\n",
857 PTR2UV(PL_comppad), PTR2UV(PL_curpad), (long)po, PTR2UV(sv))
859 PL_curpad[po] = sv;
911 SV *sv;
920 if ((sv = svp[i]) && sv != &PL_sv_undef
921 && !SvFAKE(sv) && !SvIVX(sv))
923 SvIVX(sv) = PAD_MAX; /* Don't know scope end yet. */
924 SvNVX(sv) = (NV)PL_cop_seqmax;
927 (long)i, SvPVX(sv),
928 (unsigned long)U_32(SvNVX(sv)), (unsigned long)SvIVX(sv))
954 SV *sv;
961 if ((sv = svp[off]) && sv != &PL_sv_undef
962 && !SvFAKE(sv) && ckWARN_d(WARN_INTERNAL))
964 "%"SVf" never introduced", sv);
969 if ((sv = svp[off]) && sv != &PL_sv_undef
970 && !SvFAKE(sv) && SvIVX(sv) == PAD_MAX)
972 SvIVX(sv) = PL_cop_seqmax;
975 (long)off, SvPVX(sv),
976 (unsigned long)U_32(SvNVX(sv)), (unsigned long)SvIVX(sv))
1381 SV* sv;
1384 sv = SvREFCNT_inc(ppad[ix]);
1387 sv = (SV*)newAV();
1389 sv = (SV*)newHV();
1391 sv = NEWSV(0, 0);
1392 if (!SvPADBUSY(sv))
1393 SvPADMY_on(sv);
1394 PL_curpad[ix] = sv;
1401 SV* sv = NEWSV(0, 0);
1402 SvPADTMP_on(sv);
1403 PL_curpad[ix] = sv;
1504 SV* sv;
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));
1519 SvPADMY_on(sv);
1523 av_store(newpad, ix, sv = SvREFCNT_inc(oldpad[ix]));
1527 av_store(newpad, ix, sv = NEWSV(0, 0));
1528 SvPADTMP_on(sv);