diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-11-02 20:06:50 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-11-02 20:06:50 +0000 |
commit | 1b38c28e639da91d4507d4d1cebac12fec9e82ef (patch) | |
tree | 413bb5512787ed8c57d60d94b79fb33dd04c12b9 /pp.h | |
parent | f5d6f09660e01aad6e56a94e20e2fcda90381934 (diff) | |
download | perl-1b38c28e639da91d4507d4d1cebac12fec9e82ef.tar.gz |
Inline RvDEEPCP() into its only caller, Perl_amagic_call().
Only Perl_amagic_call() was using RvDEEPCP() when it was added in 5.000, and I
believe that it's never had any other users (in the core, on CPAN, or anywhere
else visible to Google codesearch). Hence it seems an ideal candidates to be
inlined and eliminated.
Diffstat (limited to 'pp.h')
-rw-r--r-- | pp.h | 12 |
1 files changed, 0 insertions, 12 deletions
@@ -482,18 +482,6 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>. { sv_setsv(TARG, (sv)); SETTARG; } \ else SETs(sv); } STMT_END -/* newSVsv does not behave as advertised, so we copy missing - * information by hand */ - -/* SV* ref causes confusion with the member variable - changed SV* ref to SV* tmpRef */ -#define RvDEEPCP(rv) STMT_START { SV* tmpRef=SvRV(rv); SV* rv_copy; \ - if (SvREFCNT(tmpRef)>1 && (rv_copy = AMG_CALLun(rv,copy))) { \ - SvRV_set(rv, rv_copy); \ - SvSETMAGIC(rv); \ - SvREFCNT_dec(tmpRef); \ - } } STMT_END - /* =for apidoc mU||LVRET True if this op will be the return value of an lvalue subroutine |