Eliminate precomp from struct regexp. Store the offset of precomp from

wrapped in pre_prefix, a 4 bit value. (Maybe only for now) reduce
seen_evals from I32 to 28 bits. Will anyone have more than 268435456
eval groups in a regexp?

p4raw-id: //depot/perl@32755

1 files changed, 3 insertions, 3 deletions

diff --git a/regexp.h b/regexp.h
index ce3a48528b..5b58697bf1 100644
--- a/regexp.h
+++ b/regexp.h
@@ -99,11 +99,11 @@ typedef struct regexp {
         
         /* Information about the match that isn't often used */
 	I32 prelen;		/* length of precomp */
-	const char *precomp;	/* pre-compilation regular expression */
 	/* wrapped can't be const char*, as it is returned by sv_2pv_flags */
 	char *wrapped;          /* wrapped version of the pattern */
 	I32 wraplen;		/* length of wrapped */
-	I32 seen_evals;         /* number of eval groups in the pattern - for security checks */ 
+	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 */
         
         /* Refcount of this regexp */
@@ -354,7 +354,7 @@ and check for NULL.
 					 : RX_MATCH_COPIED_off(prog))
 
 /* For source compatibility. We used to store these explicitly.  */
-#define RX_PRECOMP(prog)		((prog)->precomp)
+#define RX_PRECOMP(prog)		((prog)->wrapped + (prog)->pre_prefix)
 #define RX_PRELEN(prog)			((prog)->prelen)
 
 #endif /* PLUGGABLE_RE_EXTENSION */