This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.h: Add comment
authorKarl Williamson <public@khwilliamson.com>
Fri, 12 Nov 2010 02:20:40 +0000 (19:20 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 22 Nov 2010 21:32:50 +0000 (13:32 -0800)
regcomp.h

index 3ab984b..3e54110 100644 (file)
--- a/regcomp.h
+++ b/regcomp.h
@@ -410,7 +410,7 @@ struct regnode_charclass_class {
 #define ANYOF_BITMAP_CLEARALL(p)       \
        Zero (ANYOF_BITMAP(p), ANYOF_BITMAP_SIZE)
 /* Check that all 256 bits are all set.  Used in S_cl_is_anything()  */
-#define ANYOF_BITMAP_TESTALLSET(p)     \
+#define ANYOF_BITMAP_TESTALLSET(p)     /* Assumes sizeof(p) == 32 */     \
        memEQ (ANYOF_BITMAP(p), "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377", ANYOF_BITMAP_SIZE)
 
 #define ANYOF_SKIP             ((ANYOF_SIZE - 1)/sizeof(regnode))