Lines Matching defs:sv
185 SV* sv = PL_tmps_stack[PL_tmps_ix];
187 if (sv && sv != &PL_sv_undef) {
188 SvTEMP_off(sv);
189 SvREFCNT_dec(sv); /* note, can modify tmps_ix!!! */
197 register SV *sv;
200 sv = *sptr = NEWSV(0,0);
202 sv_upgrade(sv, SvTYPE(osv));
216 SvMAGIC(sv) = SvMAGIC(osv);
217 SvFLAGS(sv) |= SvMAGICAL(osv);
218 /* XXX SvMAGIC() is *shared* between osv and sv. This can
222 SvSETMAGIC(sv);
225 return sv;
374 register SV *sv = NEWSV(0,0);
376 sv_setsv(sv,item);
379 SSPUSHPTR(sv); /* remember the value */
529 Perl_save_freesv(pTHX_ SV *sv)
532 SSPUSHPTR(sv);
537 Perl_save_mortalizesv(pTHX_ SV *sv)
540 SSPUSHPTR(sv);
582 register SV *sv;
586 sv = NEWSV(0,0);
587 sv_setsv(sv,sarg[i]);
590 SSPUSHPTR(sv); /* remember the value */
616 SV *sv;
626 sv = *sptr;
627 /* If we're localizing a tied array element, this new sv
631 if (SvTIED_mg(sv, PERL_MAGIC_tiedelem))
632 sv_2mortal(sv);
638 SV *sv;
645 sv = *sptr;
646 /* If we're localizing a tied hash element, this new sv
650 if (SvTIED_mg(sv, PERL_MAGIC_tiedelem))
651 sv_2mortal(sv);
682 register SV *sv;
697 sv = (SV*)SSPOPPTR;
698 sv_replace(sv,value);
700 SvSETMAGIC(sv);
729 case SAVEt_GENERIC_SVREF: /* generic sv */
732 sv = *(SV**)ptr;
734 SvREFCNT_dec(sv);
742 sv = *(SV**)ptr;
745 ptr, sv, SvPEEK(sv), value, SvPEEK(value)));
746 if (SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv) &&
747 SvTYPE(sv) != SVt_PVGV)
749 (void)SvUPGRADE(value, SvTYPE(sv));
750 SvMAGIC(value) = SvMAGIC(sv);
751 SvFLAGS(value) |= SvMAGICAL(sv);
752 SvMAGICAL_off(sv);
753 SvMAGIC(sv) = 0;
771 SvREFCNT_dec(sv);
898 sv = *(SV**)ptr;
901 "Pad 0x%"UVxf"[0x%"UVxf"] clearsv: %ld sv=0x%"UVxf"<%"IVdf"> %s\n",
903 (long)((SV **)ptr-PL_curpad), PTR2UV(sv), (IV)SvREFCNT(sv),
904 (SvREFCNT(sv) <= 1 && !SvOBJECT(sv)) ? "clear" : "abandon"
908 if (SvREFCNT(sv) <= 1 && !SvOBJECT(sv)) {
914 if (SvPADMY(sv) && !SvFAKE(sv))
915 SvREADONLY_off(sv);
917 if (SvTHINKFIRST(sv))
918 sv_force_normal_flags(sv, SV_IMMEDIATE_UNREF);
919 if (SvMAGICAL(sv))
920 mg_free(sv);
922 switch (SvTYPE(sv)) {
926 av_clear((AV*)sv);
929 hv_clear((HV*)sv);
936 (void)SvOK_off(sv);
939 (void)SvOK_off(sv);
940 (void)SvOOK_off(sv);
945 U32 padflags = SvFLAGS(sv) & (SVs_PADBUSY|SVs_PADMY|SVs_PADTMP);
946 switch (SvTYPE(sv)) { /* Console ourselves with a new value */
951 SvREFCNT_dec(sv); /* Cast current value to the winds. */
988 sv = *(SV**)ptr;
989 if (sv && sv != &PL_sv_undef) {
991 (void)SvREFCNT_inc(sv);
1000 sv = (SV*)SSPOPPTR;
1002 ptr = hv_fetch_ent(hv, sv, 1, 0);
1009 SvREFCNT_dec(sv);
1015 SvREFCNT_dec(sv);