diff options
| author | David Mitchell <davem@iabyn.com> | 2012-12-04 11:32:39 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2012-12-04 11:32:39 +0000 |
| commit | 4a9a56a75c57646b348598f90875415e994d2f65 (patch) | |
| tree | c6b563b3f66247d8ef7596f8010bd6b4fd1c50f6 /scope.c | |
| parent | 75a9bf9690b77515a287eb483ea2709b73810c41 (diff) | |
| download | perl-4a9a56a75c57646b348598f90875415e994d2f65.tar.gz | |
add SvREFCNT_dec_NN()
Like SvREFCNT_dec(), but skips the not null check, making code potentially
smaller and faster.
Also as proof of concept, updates the SvREFCNT_dec's in scope.c where
it's obvious the value can't be NULL. There are still 500+ uses in the
perl core that need evaluating!
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -166,7 +166,7 @@ Perl_free_tmps(pTHX) #endif if (sv && sv != &PL_sv_undef) { SvTEMP_off(sv); - SvREFCNT_dec(sv); /* note, can modify tmps_ix!!! */ + SvREFCNT_dec_NN(sv); /* note, can modify tmps_ix!!! */ } } } @@ -837,7 +837,7 @@ Perl_leave_scope(pTHX_ I32 base) mg_set(ARG0_SV); PL_localizing = 0; } - SvREFCNT_dec(ARG0_SV); + SvREFCNT_dec_NN(ARG0_SV); SvREFCNT_dec(refsv); break; } @@ -895,7 +895,7 @@ Perl_leave_scope(pTHX_ I32 base) mg_set(ARG0_SV); PL_localizing = 0; } - SvREFCNT_dec(ARG1_GV); + SvREFCNT_dec_NN(ARG1_GV); break; case SAVEt_HV: /* hash reference */ SvREFCNT_dec(GvHV(ARG1_GV)); @@ -905,7 +905,7 @@ Perl_leave_scope(pTHX_ I32 base) mg_set(ARG0_SV); PL_localizing = 0; } - SvREFCNT_dec(ARG1_GV); + SvREFCNT_dec_NN(ARG1_GV); break; case SAVEt_INT_SMALL: *(int*)ARG0_PTR = (int)(uv >> SAVE_TIGHT_SHIFT); @@ -964,7 +964,7 @@ Perl_leave_scope(pTHX_ I32 base) /* putting a method back into circulation ("local")*/ gv_method_changed(ARG1_GV); } - SvREFCNT_dec(ARG1_GV); + SvREFCNT_dec_NN(ARG1_GV); break; } case SAVEt_FREESV: @@ -1073,7 +1073,7 @@ Perl_leave_scope(pTHX_ I32 base) } default: *svp = newSV(0); break; } - SvREFCNT_dec(sv); /* Cast current value to the winds. */ + SvREFCNT_dec_NN(sv); /* Cast current value to the winds. */ /* preserve pad nature, but also mark as not live * for any closure capturing */ SvFLAGS(*svp) |= (SVs_PADMY|SVs_PADSTALE); |