From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 5 Jan 2008 18:02:02 +0000 (+0000)
Subject: In struct regexp move the member paren_names to the IV union.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1af6200d185d478f416345eedc9641a043650e1b;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@32854
---

diff --git a/regexp.h b/regexp.h
index 4788dfe..ad59cc7 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
diff --git a/sv.h b/sv.h
index e13b5ba..ea5e0ae 100644
--- a/sv.h
+++ b/sv.h
@@ -421,6 +421,7 @@ union _xivu {
     void *  xivu_p1;
     I32	    xivu_i32;
     HEK *   xivu_namehek;	/* xpvlv, xpvgv: GvNAME */
+    HV *    xivu_hv;		/* regexp: paren_names */
 };
 
 union _xmgu {