Wrap all accesses to the members precomp and prelen of struct regexp in

the macros RX_PRECOMP() and RX_PRELEN(). This will allow us to reduce
the regexp storage overhead by computing them at retrieve time.

p4raw-id: //depot/perl@32753

1 files changed, 2 insertions, 2 deletions

diff --git a/op.c b/op.c
index bb6ac6286c..2185c25938 100644
--- a/op.c
+++ b/op.c
@@ -7558,8 +7558,8 @@ Perl_ck_join(pTHX_ OP *o)
     if (kid && kid->op_type == OP_MATCH) {
 	if (ckWARN(WARN_SYNTAX)) {
             const REGEXP *re = PM_GETRE(kPMOP);
-	    const char *pmstr = re ? re->precomp : "STRING";
-	    const STRLEN len = re ? re->prelen : 6;
+	    const char *pmstr = re ? RX_PRECOMP(re) : "STRING";
+	    const STRLEN len = re ? RX_PRELEN(re) : 6;
 	    Perl_warner(aTHX_ packWARN(WARN_SYNTAX),
 			"/%.*s/ should probably be written as \"%.*s\"",
 			(int)len, pmstr, (int)len, pmstr);