This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.h: Renumber ANYOF_EOS bit
authorKarl Williamson <public@khwilliamson.com>
Sun, 14 Nov 2010 03:51:08 +0000 (20:51 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 22 Nov 2010 21:32:52 +0000 (13:32 -0800)
This is in preparation for adding a new bit which for debugging ease
ought to be adjacent to another one.

regcomp.h

index 4fb119e..b2d5cba 100644 (file)
--- a/regcomp.h
+++ b/regcomp.h
@@ -323,15 +323,15 @@ struct regnode_charclass_class {
 #define ANYOF_CLASS     ANYOF_LOCALE
 #define ANYOF_LARGE      ANYOF_CLASS    /* Same; name retained for back compat */
 
-/* EOS used for regstclass only */
-#define ANYOF_EOS              0x10    /* Can match an empty string too */
-
 /* Set if the bitmap doesn't fully represent what this node can match */
 #define ANYOF_NONBITMAP                0x20
 #define ANYOF_UNICODE          ANYOF_NONBITMAP /* old name, for back compat */
 
 #define ANYOF_UNICODE_ALL      0x40    /* Matches 0x100 - infinity */
 
+/* EOS used for regstclass only */
+#define ANYOF_EOS              0x80    /* Can match an empty string too */
+
 #define ANYOF_FLAGS_ALL                0xff
 
 /* Character classes for node->classflags of ANYOF */