This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ANYOF_LARGE is now the same as ANYOF_CLASS
authorKarl Williamson <public@khwilliamson.com>
Sun, 31 Oct 2010 18:05:23 +0000 (12:05 -0600)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 31 Oct 2010 23:00:53 +0000 (16:00 -0700)
These two #defines now mean the same thing.  Free up bit used by
ANYOF_LARGE

regcomp.h

index 9e1a4e3..062bd01 100644 (file)
--- a/regcomp.h
+++ b/regcomp.h
@@ -313,7 +313,8 @@ struct regnode_charclass_class {    /* has [[:blah:]] classes */
 
 /* Flags for node->flags of ANYOF */
 
-#define ANYOF_CLASS            0x08    /* has [[:blah:]] classes */
+#define ANYOF_CLASS            0x08    /* has runtime \d, \w, [:posix:], ... */
+#define ANYOF_LARGE      ANYOF_CLASS    /* Same; name retained for back compat */
 #define ANYOF_INVERT           0x04
 #define ANYOF_FOLD             0x02
 #define ANYOF_LOCALE           0x01
@@ -325,9 +326,6 @@ struct regnode_charclass_class {    /* has [[:blah:]] classes */
 #define ANYOF_UNICODE          0x20
 #define ANYOF_UNICODE_ALL      0x40    /* Can match any char past 0xff */
 
-/* size of node is large (includes class pointer) */
-#define ANYOF_LARGE            0x80
-
 /* Are there any runtime flags on in this node? */
 #define ANYOF_RUNTIME(s)       (ANYOF_FLAGS(s) & 0x0f)