Home
last modified time | relevance | path

Searched refs:SvREFCNT (Results 1 – 25 of 49) sorted by relevance

12

/openbsd/gnu/usr.bin/perl/dist/Devel-PPPort/parts/inc/
H A DSvREFCNT28 (SvREFCNT(_sv))++; \
56 SvREFCNT(_sv)++; \
71 (void)(SvREFCNT(_sv)++); \
87 SvREFCNT()
92 mXPUSHi(SvREFCNT(sv) == 1);
95 mXPUSHi(SvREFCNT(sv) == 2);
98 mXPUSHi(SvREFCNT(sv) == 3);
101 mXPUSHi(SvREFCNT(sv) == 4);
104 mXPUSHi(SvREFCNT(sv) == 5);
113 while (SvREFCNT(sv) > 1)
[all …]
H A DnewRV39 RETVAL = SvREFCNT(sv);
51 RETVAL = SvREFCNT(sv);
/openbsd/gnu/usr.bin/perl/lib/
H A DInternals.t153 is( Internals::SvREFCNT($foo), 1 );
156 is( Internals::SvREFCNT($foo), 2 );
157 is( Internals::SvREFCNT($bar), 1 );
159 is( Internals::SvREFCNT($foo), 1 );
161 is( Internals::SvREFCNT(@foo), 1 );
162 is( Internals::SvREFCNT($foo[2]), 1 );
163 is( Internals::SvREFCNT(%foo), 1 );
164 is( Internals::SvREFCNT($foo{foo}), 1 );
177 my @arr = Internals::SvREFCNT($foo, 1 );
183 eval { &Internals::SvREFCNT();};
[all …]
H A DInternals.pod8 $refcnt= Internals::SvREFCNT($x)
29 =item SvREFCNT(THING [, $value])
/openbsd/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/
H A Dfirst.t85 skip("No Internals::SvREFCNT", 1) if !defined &Internals::SvREFCNT;
87 my $refcnt = &Internals::SvREFCNT(\&huge);
89 is(&Internals::SvREFCNT(\&huge), $refcnt, "Refcount unchanged");
H A Dreduce.t111 skip("No Internals::SvREFCNT", 1) if !defined &Internals::SvREFCNT;
113 my $refcnt = &Internals::SvREFCNT(\&mult);
115 is(&Internals::SvREFCNT(\&mult), $refcnt, "Refcount unchanged");
/openbsd/gnu/usr.bin/perl/
H A Dsv_inline.h42 PoisonNew(&SvREFCNT(sv), 1, U32)
84 SvREFCNT(sv) = 1; in S_new_SV()
115 SvREFCNT(p) = 1; \
664 SvREFCNT(sv)++; in Perl_SvREFCNT_inc()
673 SvREFCNT(sv)++; in Perl_SvREFCNT_inc_NN()
681 SvREFCNT(sv)++; in Perl_SvREFCNT_inc_void()
688 U32 rc = SvREFCNT(sv); in Perl_SvREFCNT_dec()
690 SvREFCNT(sv) = rc - 1; in Perl_SvREFCNT_dec()
708 U32 rc = SvREFCNT(sv); in Perl_SvREFCNT_dec_NN()
713 SvREFCNT(sv) = rc - 1; in Perl_SvREFCNT_dec_NN()
H A Dpad.c410 inner_rc = SvREFCNT(innercv); in Perl_cv_undef_flags()
413 if (SvREFCNT(comppad) < 2) { /* allow for /(?{ sub{} })/ */ in Perl_cv_undef_flags()
425 if (outercv && SvREFCNT(outercv)) { in Perl_cv_undef_flags()
469 if (!SvREFCNT(cv)) { in Perl_cv_undef_flags()
636 assert(SvREFCNT(PL_curpad[offset]) == 1); in Perl_pad_add_name_pvn()
1831 (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0), in Perl_do_dump_pad()
1842 (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0), in Perl_do_dump_pad()
1853 (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0) in Perl_do_dump_pad()
2152 if (const_sv && SvREFCNT(const_sv) == 2) { in S_cv_clone_pad()
2498 assert (SvREFCNT(PadlistARRAY(srcpad)[1]) == 1); in Perl_padlist_dup()
[all …]
H A Dgv.c1810 if (!*stash || !SvREFCNT(*stash)) /* symbol table under destruction */ in S_parse_gv_stash_name()
2043 if (!SvREFCNT(*stash)) /* symbol table under destruction */ in S_find_default_stash()
2964 if (SvREFCNT(sv) > 1 || SvOBJECT(sv) || UNLIKELY(in_global_destruction)) { in Perl_gp_free()
2968 && (SvREFCNT(referent) > 1 || SvOBJECT(referent))) { in Perl_gp_free()
2993 if (SvREFCNT(hv) > 1 || SvOBJECT(hv) || UNLIKELY(in_global_destruction)) { in Perl_gp_free()
3000 if (io && SvREFCNT(io) == 1 && IoIFP(io) in Perl_gp_free()
4081 if (SvREFCNT(tmpRef) > 1 && (rv_copy = AMG_CALLunary(left,copy_amg))) { in Perl_amagic_call()
4281 if (!(SvREFCNT(gv) == 1 && SvTYPE(gv) == SVt_PVGV && !SvFAKE(gv) && in Perl_gv_try_downgrade()
4304 } else if (GvMULTI(gv) && cv && SvREFCNT(cv) == 1 && in Perl_gv_try_downgrade()
4314 SvREFCNT(gv) = 0; in Perl_gv_try_downgrade()
[all …]
H A Dsv.c361 SvREFCNT(sv) = 0; in S_sv_add_arena()
370 SvREFCNT(sv) = 0; in S_sv_add_arena()
6531 if (SvREFCNT(nsv) != 1) {
6545 SvREFCNT(sv) = 0;
6547 assert(!SvREFCNT(sv));
6561 SvREFCNT(sv) = refcnt;
6563 SvREFCNT(nsv) = 0;
6580 assert(SvREFCNT(gv) == 0);
7196 (SvREFCNT(sv))++;
7229 SvREFCNT(sv) = 0;
[all …]
H A Dpp_hot.c160 UNLIKELY(SvTEMP(targ)) && !SvSMAGICAL(targ) && SvREFCNT(targ) == 1 && in PP()
214 assert(!(SvTEMP(targ) && SvREFCNT(targ) == 1 && !SvSMAGICAL(targ))); in PP()
317 UNLIKELY(SvTEMP(left)) && !SvSMAGICAL(left) && SvREFCNT(left) == 1 && in PP()
2238 else if (!(do_rc1 && SvREFCNT(svl) == 1) && !SvIMMORTAL(svl)) { in S_aassign_copy_common()
2354 if (!sv || SvREFCNT(sv) == 1) in PP()
2502 if (SvTEMP(rsv) && !SvGMAGICAL(rsv) && SvREFCNT(rsv) == 1) { in PP()
2623 if (SvTEMP(rsv) && !SvGMAGICAL(rsv) && SvREFCNT(rsv) == 1) { in PP()
2786 SvTEMP(lsv) && !SvSMAGICAL(lsv) && SvREFCNT(lsv) == 1 && in PP()
2797 && ( ((ref = SvRV(lsv)), SvREFCNT(ref)) == 1) in PP()
5019 pass == 0 ? (SvTEMP(sv) && !SvMAGICAL(sv) && SvREFCNT(sv) == 1) in Perl_leave_adjust_stacks()
[all …]
H A Dperl.c249 SvREFCNT(&PL_sv_placeholder) = SvREFCNT_IMMORTAL; in perl_construct()
1395 SvREFCNT(&PL_sv_yes) = 0; in perl_destruct()
1400 SvREFCNT(&PL_sv_no) = 0; in perl_destruct()
1405 SvREFCNT(&PL_sv_zero) = 0; in perl_destruct()
1413 SvREFCNT(PERL_DEBUG_PAD(i)) = 0; in perl_destruct()
1430 svend = &sva[SvREFCNT(sva)]; in perl_destruct()
1489 SvREFCNT(&PL_sv_undef) = 0; in perl_destruct()
2451 assert (SvREFCNT(sitelib_sv) == 1); in S_parse_body()
5128 assert (SvREFCNT(subdir) == 1); in S_incpush()
5164 assert (SvREFCNT(libdir) == 1); in S_incpush()
H A Dsv.h375 #define SvREFCNT(sv) (sv)->sv_refcnt macro
387 SvREFCNT(sv_)++; \
390 #define SvREFCNT_inc_simple_NN(sv) (++(SvREFCNT(sv)),MUTABLE_SV(sv))
391 #define SvREFCNT_inc_void_NN(sv) (void)(++SvREFCNT(MUTABLE_SV(sv)))
392 #define SvREFCNT_inc_simple_void_NN(sv) (void)(++SvREFCNT(MUTABLE_SV(sv)))
H A Dscope.c1393 (long)(svp-PL_curpad), PTR2UV(sv), (IV)SvREFCNT(sv), in Perl_leave_scope()
1394 (SvREFCNT(sv) <= 1 && !SvOBJECT(sv)) ? "clear" : "abandon" in Perl_leave_scope()
1398 if (SvREFCNT(sv) == 1 && !SvOBJECT(sv)) { in Perl_leave_scope()
H A Duniversal.c736 (SvREFCNT(sv) = SvUV(ST(1)) + 1) in XS()
737 : SvREFCNT(sv); in XS()
/openbsd/gnu/usr.bin/perl/ext/Devel-Peek/
H A DPeek.xs30 svend = &sva[SvREFCNT(sva)]; in DeadCode()
80 levelas += SvLEN(args[j])/SvREFCNT(args[j]); in DeadCode()
101 levelm += SvLEN(pad[j])/SvREFCNT(pad[j]); in DeadCode()
478 SvREFCNT(sv)
485 RETVAL = SvREFCNT(SvRV(sv)) - 1; /* -1 because our ref doesn't count */
/openbsd/gnu/usr.bin/perl/t/re/
H A Dqr-72922.t30 my $refcnt_start = Internals::SvREFCNT($$re_weak_copy);
/openbsd/gnu/usr.bin/perl/dist/threads-shared/
H A Dshared.xs547 SvREFCNT(ssv) = 0; /* Will be upped to 1 by Perl_sharedsv_associate */ in S_sharedsv_new_shared()
581 if (SvREFCNT(ssv) > 1) { in S_sharedsv_dec()
809 if (!PL_dirty && SvROK(ssv) && SvREFCNT(SvRV(ssv)) == 1) { in sharedsv_scalar_store()
890 && SvROK((SV *)mg->mg_ptr) && SvREFCNT(SvRV((SV *)mg->mg_ptr)) == 1) { in sharedsv_scalar_mg_free()
1149 && SvREFCNT(sv) == 1 ) { in sharedsv_array_mg_CLEAR()
1265 return (!ssv || (SvREFCNT(ssv) <= 1)); in Perl_shared_object_destroy()
1431 && SvREFCNT(sv) == 1 )
1562 ST(0) = sv_2mortal(newSViv(SvREFCNT(ssv)));
/openbsd/gnu/usr.bin/perl/t/lib/
H A Duniversal.t20 Usage: Internals::SvREFCNT(SCALAR[, REFCOUNT]) at (eval 2) line 1.
/openbsd/gnu/usr.bin/perl/t/op/
H A Dinccode.t271 my $initial_sub_refcnt = &Internals::SvREFCNT($die) + 1;
272 my $initial_data_refcnt = &Internals::SvREFCNT($data) + 1;
/openbsd/gnu/usr.bin/perl/cpan/Sys-Syslog/
H A DSyslog.xs137 refcnt = SvREFCNT(ident_svptr);
/openbsd/gnu/usr.bin/perl/ext/Devel-Peek/t/
H A DPeek.t1343 my $base_count = Devel::Peek::SvREFCNT(%hash);
1345 is(Devel::Peek::SvREFCNT(%hash), $base_count + 1, "SvREFCNT on non-scalar");
1346 ok(!eval { &Devel::Peek::SvREFCNT(1) }, "requires prototype");
/openbsd/gnu/usr.bin/perl/cpan/Term-ReadKey/
H A Dppport.h15727 (SvREFCNT(_sv))++; \
15732 ((PL_Sv=(SV*)(sv)) ? (++(SvREFCNT(PL_Sv)),PL_Sv) : NULL)
15741 (SvREFCNT(sv))++; \
15746 ((sv) ? (SvREFCNT(sv)++,(SV*)(sv)) : NULL)
15755 SvREFCNT(_sv)++; \
15760 (PL_Sv=(SV*)(sv),++(SvREFCNT(PL_Sv)),PL_Sv)
15770 (void)(SvREFCNT(_sv)++); \
15774 (void)((PL_Sv=(SV*)(sv)) ? ++(SvREFCNT(PL_Sv)) : 0)
15782 # define SvREFCNT_inc_simple_NN(sv) (++SvREFCNT(sv), (SV*)(sv))
15786 # define SvREFCNT_inc_void_NN(sv) (void)(++SvREFCNT((SV*)(sv)))
[all …]
/openbsd/gnu/usr.bin/perl/dist/Devel-PPPort/
H A DPPPort_pm.PL870 %include SvREFCNT
/openbsd/gnu/usr.bin/perl/ext/B/
H A DB.xs372 if (SvREFCNT(ref) == 1 && SvROK(ref) && SvTYPE(ref) == SVt_RV in walkoptree()
373 && (object = SvRV(ref)) && SvREFCNT(object) == 1 in walkoptree()
1405 SvREFCNT(sv)
1414 RETVAL = ix ? (SvFLAGS(sv) & (U32)ix) : SvREFCNT(sv);

12