This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade cv_flags_t from 16 to 32 bits.
authorPeter Martini <PeterCMartini@GMail.com>
Tue, 18 Jun 2013 04:07:05 +0000 (00:07 -0400)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 18 Jun 2013 13:22:08 +0000 (06:22 -0700)
Its main use is in a struct otherwise filled with pointers, which
means on 32-bit architectures its almost certainly taking up 32
bits anyway.

sv.h

diff --git a/sv.h b/sv.h
index 449b23e..b0fd5b2 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -531,7 +531,7 @@ struct xpvgv {
     union _xnvu xnv_u;
 };
 
-typedef U16 cv_flags_t;
+typedef U32 cv_flags_t;
 
 #define _XPVCV_COMMON                                                          \
     HV *       xcv_stash;                                                      \