summaryrefslogtreecommitdiff
path: root/pp.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-11-02 20:06:50 +0000
committerNicholas Clark <nick@ccl4.org>2010-11-02 20:06:50 +0000
commit1b38c28e639da91d4507d4d1cebac12fec9e82ef (patch)
tree413bb5512787ed8c57d60d94b79fb33dd04c12b9 /pp.h
parentf5d6f09660e01aad6e56a94e20e2fcda90381934 (diff)
downloadperl-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.h12
1 files changed, 0 insertions, 12 deletions
diff --git a/pp.h b/pp.h
index 56337fc21d..27f948cfdc 100644
--- a/pp.h
+++ b/pp.h
@@ -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