diff options
| author | Andy Lester <andy@petdance.com> | 2006-03-31 20:01:30 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-03 09:50:45 +0000 |
| commit | f84c484e31ca71701038f389bc647f43cdbdfd43 (patch) | |
| tree | 7d5147498290ccb0101249a59aaaaf5c11bd15ef /pad.c | |
| parent | 7f596f4c76b3e581f7af85bb1c7b292b73fc268c (diff) | |
| download | perl-f84c484e31ca71701038f389bc647f43cdbdfd43.tar.gz | |
SvREFCNT_inc tweaks
Message-ID: <20060401080130.GA19372@petdance.com>
p4raw-id: //depot/perl@27701
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -287,7 +287,7 @@ Perl_pad_undef(pTHX_ CV* cv) CvWEAKOUTSIDE_off(innercv); CvOUTSIDE(innercv) = outercv; CvOUTSIDE_SEQ(innercv) = seq; - SvREFCNT_inc_void_NN(outercv); + SvREFCNT_inc_simple_void_NN(outercv); } else { CvOUTSIDE(innercv) = NULL; @@ -352,7 +352,7 @@ Perl_pad_add_name(pTHX_ const char *name, HV* typestash, HV* ourstash, bool fake if (ourstash) { SvPAD_OUR_on(namesv); OURSTASH_set(namesv, ourstash); - SvREFCNT_inc_void_NN(ourstash); + SvREFCNT_inc_simple_void_NN(ourstash); } av_store(PL_comppad_name, offset, namesv); @@ -1493,7 +1493,7 @@ Perl_cv_clone(pTHX_ CV *proto) } else { assert(!SvPADSTALE(sv)); - SvREFCNT_inc_simple_void(sv); + SvREFCNT_inc_simple_void_NN(sv); } } if (!sv) { @@ -1510,7 +1510,7 @@ Perl_cv_clone(pTHX_ CV *proto) } } else if (IS_PADGV(ppad[ix]) || IS_PADCONST(ppad[ix])) { - sv = SvREFCNT_inc(ppad[ix]); + sv = SvREFCNT_inc_NN(ppad[ix]); } else { sv = newSV(0); @@ -1626,7 +1626,7 @@ Perl_pad_push(pTHX_ PADLIST *padlist, int depth) } } else if (IS_PADGV(oldpad[ix]) || IS_PADCONST(oldpad[ix])) { - av_store(newpad, ix, SvREFCNT_inc(oldpad[ix])); + av_store(newpad, ix, SvREFCNT_inc_NN(oldpad[ix])); } else { /* save temporaries on recursion? */ |