In struct regexp move the member paren_names to the IV union.

p4raw-id: //depot/perl@32854

1 files changed, 4 insertions, 2 deletions

diff --git a/regexp.h b/regexp.h
index 4788dfe69c..ad59cc7346 100644
--- a/regexp.h
+++ b/regexp.h
@@ -102,10 +102,12 @@ typedef struct regexp {
         /* Information about the match that isn't often used */
 	unsigned pre_prefix:4;	/* offset from wrapped to the start of precomp */
 	unsigned seen_evals:28;	/* number of eval groups in the pattern - for security checks */ 
-        HV *paren_names;	/* Optional hash of paren names */
 } regexp;
 
-#define RXp_PAREN_NAMES(rx)	((rx)->paren_names)
+/*        HV *paren_names;	 Optional hash of paren names
+	  now stored in the IV union */
+
+#define RXp_PAREN_NAMES(rx)	((rx)->xiv_u.xivu_hv)
 
 /* used for high speed searches */
 typedef struct re_scream_pos_data_s