From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 18 Sep 2014 06:21:11 +0000 (-0700)
Subject: Remove GVf_IN_PAD
X-Git-Tag: v5.21.4~91^2
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/a5bc03e938fb0f782e7f4172892f0134c42d0330?hp=9429039d0141bfd63792bb18dbe602674f9afa8e

Remove GVf_IN_PAD

Nothing on CPAN uses it, but some CPAN modules use the associ-
ated macros.
---

diff --git a/dump.c b/dump.c
index 924fed0..3dff2f2 100644
--- a/dump.c
+++ b/dump.c
@@ -1346,7 +1346,6 @@ const struct flag_to_name gp_flags_names[] = {
     {GVf_INTRO, "INTRO,"},
     {GVf_MULTI, "MULTI,"},
     {GVf_ASSUMECV, "ASSUMECV,"},
-    {GVf_IN_PAD, "IN_PAD,"}
 };
 
 const struct flag_to_name gp_flags_imported_names[] = {
diff --git a/gv.h b/gv.h
index 6e3295c..ff24d91 100644
--- a/gv.h
+++ b/gv.h
@@ -156,7 +156,7 @@ Return the CV from the GV.
 #define GVf_INTRO	0x01
 #define GVf_MULTI	0x02
 #define GVf_ASSUMECV	0x04
-#define GVf_IN_PAD	0x08
+/*	UNUSED		0x08 */
 #define GVf_IMPORTED	0xF0
 #define GVf_IMPORTED_SV	  0x10
 #define GVf_IMPORTED_AV	  0x20
@@ -195,11 +195,10 @@ Return the CV from the GV.
 #define GvIMPORTED_CV_on(gv)	(GvFLAGS(gv) |= GVf_IMPORTED_CV)
 #define GvIMPORTED_CV_off(gv)	(GvFLAGS(gv) &= ~GVf_IMPORTED_CV)
 
-#define GvIN_PAD(gv)		(GvFLAGS(gv) & GVf_IN_PAD)
-#define GvIN_PAD_on(gv)		(GvFLAGS(gv) |= GVf_IN_PAD)
-#define GvIN_PAD_off(gv)	(GvFLAGS(gv) &= ~GVf_IN_PAD)
-
 #ifndef PERL_CORE
+#  define GvIN_PAD(gv)		0
+#  define GvIN_PAD_on(gv)	NOOP
+#  define GvIN_PAD_off(gv)	NOOP
 #  define Nullgv Null(GV*)
 #endif