Home
last modified time | relevance | path

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

123

/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)
30 =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; \
679 SvREFCNT(sv)++; in Perl_SvREFCNT_inc()
688 SvREFCNT(sv)++; in Perl_SvREFCNT_inc_NN()
696 SvREFCNT(sv)++; in Perl_SvREFCNT_inc_void()
703 U32 rc = SvREFCNT(sv); in Perl_SvREFCNT_dec()
705 SvREFCNT(sv) = rc - 1; in Perl_SvREFCNT_dec()
723 U32 rc = SvREFCNT(sv); in Perl_SvREFCNT_dec_NN()
728 SvREFCNT(sv) = rc - 1; in Perl_SvREFCNT_dec_NN()
H A Dinline.h577 U32 rc1 = SvREFCNT(sv1); in Perl_rpp_popfree_2_NN()
578 U32 rc2 = SvREFCNT(sv2); in Perl_rpp_popfree_2_NN()
590 SvREFCNT(sv1) = rc1 - 1; in Perl_rpp_popfree_2_NN()
591 SvREFCNT(sv2) = rc2 - 1; in Perl_rpp_popfree_2_NN()
880 U32 rc1 = SvREFCNT(sv1); in Perl_rpp_replace_2_1_COMMON()
881 U32 rc2 = SvREFCNT(sv2); in Perl_rpp_replace_2_1_COMMON()
893 SvREFCNT(sv1) = rc1 - 1; in Perl_rpp_replace_2_1_COMMON()
894 SvREFCNT(sv2) = rc2 - 1; in Perl_rpp_replace_2_1_COMMON()
1164 return SvREFCNT(sv) <= cBOOL(SvTEMP(sv)) in Perl_rpp_is_lone()
3694 if (!SvMAGICAL(av) && SvREFCNT(av) == 1 in Perl_cx_popsub_args()
[all …]
H A Dgv.c1804 if (!*stash || !SvREFCNT(*stash)) /* symbol table under destruction */ in S_parse_gv_stash_name()
2037 if (!SvREFCNT(*stash)) /* symbol table under destruction */ in S_find_default_stash()
2971 if (SvREFCNT(sv) > 1 || SvOBJECT(sv) || UNLIKELY(in_global_destruction)) { in Perl_gp_free()
2975 && (SvREFCNT(referent) > 1 || SvOBJECT(referent))) { in Perl_gp_free()
3000 if (SvREFCNT(hv) > 1 || SvOBJECT(hv) || UNLIKELY(in_global_destruction)) { in Perl_gp_free()
3007 if (io && SvREFCNT(io) == 1 && IoIFP(io) in Perl_gp_free()
4137 if (SvREFCNT(tmpRef) > 1 && (rv_copy = AMG_CALLunary(left,copy_amg))) { in Perl_amagic_call()
4344 if (!(SvREFCNT(gv) == 1 && SvTYPE(gv) == SVt_PVGV && !SvFAKE(gv) && in Perl_gv_try_downgrade()
4367 } else if (GvMULTI(gv) && cv && SvREFCNT(cv) == 1 && in Perl_gv_try_downgrade()
4377 SvREFCNT(gv) = 0; in Perl_gv_try_downgrade()
[all …]
H A Dpad.c413 inner_rc = SvREFCNT(innercv); in Perl_cv_undef_flags()
416 if (SvREFCNT(comppad) < 2) { /* allow for /(?{ sub{} })/ */ in Perl_cv_undef_flags()
428 if (outercv && SvREFCNT(outercv)) { in Perl_cv_undef_flags()
473 if (!SvREFCNT(cv)) { in Perl_cv_undef_flags()
641 assert(SvREFCNT(PL_curpad[offset]) == 1); in Perl_pad_add_name_pvn()
1834 (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0), in Perl_do_dump_pad()
1845 (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0), in Perl_do_dump_pad()
1856 (unsigned long) (ppad[ix] ? SvREFCNT(ppad[ix]) : 0) in Perl_do_dump_pad()
2154 if (const_sv && SvREFCNT(const_sv) == 2) { in S_cv_clone_pad()
2513 assert (SvREFCNT(PadlistARRAY(srcpad)[1]) == 1); in Perl_padlist_dup()
[all …]
H A Dsv.c361 SvREFCNT(sv) = 0; in S_sv_add_arena()
370 SvREFCNT(sv) = 0; in S_sv_add_arena()
6599 if (SvREFCNT(nsv) != 1) {
6613 SvREFCNT(sv) = 0;
6615 assert(!SvREFCNT(sv));
6629 SvREFCNT(sv) = refcnt;
6631 SvREFCNT(nsv) = 0;
6648 assert(SvREFCNT(gv) == 0);
7265 (SvREFCNT(sv))++;
7298 SvREFCNT(sv) = 0;
[all …]
H A Dpp_hot.c200 SvREFCNT(sv1) = rc1 - 1; in Perl_rpp_free_2_()
209 SvREFCNT(sv2) = rc2 - 1; in Perl_rpp_free_2_()
386 assert(!(SvTEMP(targ) && SvREFCNT(targ) == 1 && !SvSMAGICAL(targ))); in PP()
1313 if (!csv || SvREFCNT(csv) > 1 || SvLEN(csv) != 0) { in PP()
1646 if (SvREFCNT(PL_last_in_gv) < 2) in PP()
2620 SvREFCNT(svl) <= 2 in S_aassign_copy_common()
2622 SvREFCNT(svl) == 1 in S_aassign_copy_common()
2850 SvREFCNT(sv) <= 2 in PP()
2852 SvREFCNT(sv) == 1 in PP()
3474 && ( ((ref = SvRV(lsv)), SvREFCNT(ref)) == 1) in PP()
[all …]
H A Dperl.c250 SvREFCNT(&PL_sv_placeholder) = SvREFCNT_IMMORTAL; in perl_construct()
1387 SvREFCNT(&PL_sv_yes) = 0; in perl_destruct()
1392 SvREFCNT(&PL_sv_no) = 0; in perl_destruct()
1397 SvREFCNT(&PL_sv_zero) = 0; in perl_destruct()
1405 SvREFCNT(PERL_DEBUG_PAD(i)) = 0; in perl_destruct()
1422 svend = &sva[SvREFCNT(sva)]; in perl_destruct()
1481 SvREFCNT(&PL_sv_undef) = 0; in perl_destruct()
2508 assert (SvREFCNT(sitelib_sv) == 1); in S_parse_body()
5181 assert (SvREFCNT(subdir) == 1); in S_incpush()
5217 assert (SvREFCNT(libdir) == 1); in S_incpush()
H A Dpp_sort.c756 assert(fn != (SV*)cv || SvREFCNT(fn) > 1); in PP()
1126 if (SvREFCNT(sv) > 2) { in PP()
1131 if (SvREFCNT(sv) > 1) in PP()
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)))
/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()
481 SvREFCNT(sv)
488 RETVAL = SvREFCNT(SvRV(sv)) - 1; /* -1 because our ref doesn't count */
/openbsd/gnu/usr.bin/perl/ext/XS-APItest/t/
H A Drpp_invoke_xs.t19 is(Internals::SvREFCNT($_[0]), $exp_rc, $desc);
/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

123