From: Artur Bergman <sky@nanisky.com>
Date: Thu, 21 Jun 2001 14:04:54 +0000 (+0200)
Subject: Re: [PATCH] Step 1 of moving regexps to the pad
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4825b64b32ac191cfa4c7a0c7bd56e2acb567a0b;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] Step 1 of moving regexps to the pad
Message-ID: <B757AF86.1842%artur@contiller.se>

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

diff --git a/op.h b/op.h
index b8fc287..6c88fa5 100644
--- a/op.h
+++ b/op.h
@@ -245,6 +245,9 @@ struct pmop {
 #endif
 };
 
+#define PM_GETRE(o)     o->pmregexp
+#define PM_SETRE(o,r)   o->pmregexp = r
+
 #define PMdf_USED	0x01		/* pm has been used once already */
 #define PMdf_TAINTED	0x02		/* pm compiled from tainted pattern */
 #define PMdf_UTF8	0x04		/* pm compiled from utf8 data */