Abolish wraplen from struct regexp. We're already storing it in SvCUR.

p4raw-id: //depot/perl@32845

1 files changed, 3 insertions, 3 deletions

diff --git a/regcomp.c b/regcomp.c
index 3c9915f356..48822a6e4d 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4290,12 +4290,12 @@ redo_first_pass:
 			    >> RXf_PMf_STD_PMMOD_SHIFT);
 	const char *fptr = STD_PAT_MODS;        /*"msix"*/
 	char *p;
-        RX_WRAPLEN(rx) = plen + has_minus + has_p + has_runon
+	const STRLEN wraplen = plen + has_minus + has_p + has_runon
             + (sizeof(STD_PAT_MODS) - 1)
             + (sizeof("(?:)") - 1);
 
-	p = sv_grow(rx, RX_WRAPLEN(rx) + 1);
-	SvCUR_set(rx, RX_WRAPLEN(rx));
+	p = sv_grow(rx, wraplen + 1);
+	SvCUR_set(rx, wraplen);
 	SvPOK_on(rx);
         *p++='('; *p++='?';
         if (has_p)