This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move a CAN_COW_MASK comment from sv.c to sv.h
authorFather Chrysostomos <sprout@cpan.org>
Fri, 5 Oct 2012 20:00:35 +0000 (13:00 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 26 Nov 2012 01:12:42 +0000 (17:12 -0800)
It got left behind in ed25273444 when the macro moved.

sv.c
sv.h

diff --git a/sv.c b/sv.c
index 6f75847..37344ae 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -66,8 +66,6 @@
 #ifdef PERL_OLD_COPY_ON_WRITE
 #define SV_COW_NEXT_SV(sv)     INT2PTR(SV *,SvUVX(sv))
 #define SV_COW_NEXT_SV_SET(current,next)       SvUV_set(current, PTR2UV(next))
-/* This is a pessimistic view. Scalar must be purely a read-write PV to copy-
-   on-write.  */
 #endif
 
 /* ============================================================================
diff --git a/sv.h b/sv.h
index e636eca..25ceff9 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -1844,6 +1844,8 @@ mg.c:1024: warning: left-hand operand of comma expression has no effect
 #  define SvRELEASE_IVX_(sv)  /**/
 #endif /* PERL_OLD_COPY_ON_WRITE */
 
+/* This is a pessimistic view. Scalar must be purely a read-write PV to copy-
+   on-write.  */
 #define CAN_COW_MASK   (SVs_OBJECT|SVs_GMG|SVs_SMG|SVs_RMG|SVf_IOK|SVf_NOK| \
                         SVf_POK|SVf_ROK|SVp_IOK|SVp_NOK|SVp_POK|SVf_FAKE| \
                         SVf_OOK|SVf_BREAK|SVf_READONLY)