This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Note to future self about moving the regexp flag bits around.
authorNicholas Clark <nick@ccl4.org>
Sat, 29 Dec 2007 11:49:09 +0000 (11:49 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 29 Dec 2007 11:49:09 +0000 (11:49 +0000)
p4raw-id: //depot/perl@32759

op.h
regexp.h

diff --git a/op.h b/op.h
index 9dda22f..bab04ca 100644 (file)
--- a/op.h
+++ b/op.h
@@ -367,7 +367,8 @@ struct pmop {
 #define PMf_EVAL       0x0400          /* evaluating replacement as expr */
 
 /* The following flags have exact equivalents in regcomp.h with the prefix RXf_
- * which are stored in the regexp->extflags member.
+ * which are stored in the regexp->extflags member. If you change them here,
+ * you have to change them there, and vice versa.
  */
 #define PMf_LOCALE     0x00800         /* use locale for character types */
 #define PMf_MULTILINE  0x01000         /* assume multiple lines */
index 623a4bb..60606a5 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -245,7 +245,9 @@ and check for NULL.
 #define RXf_WHITE              0x00000400 /* Pattern is /\s+/ */
 #define RXf_NULL               0x40000000 /* Pattern is // */
 
-/* 0x1F800 of extflags is used by (RXf_)PMf_COMPILETIME */
+/* 0x1F800 of extflags is used by (RXf_)PMf_COMPILETIME
+ * If you change these you need to change the equivalent flags in op.h, and
+ * vice versa.  */
 #define RXf_PMf_LOCALE         0x00000800 /* use locale */
 #define RXf_PMf_MULTILINE      0x00001000 /* /m         */
 #define RXf_PMf_SINGLELINE     0x00002000 /* /s         */