Re: Bug in Carp::Heavy/5.6.0?

[p5sagit/p5-mst-13.2.git] / regcomp.c

diff --git a/regcomp.c b/regcomp.c
index 83470d7..19b8096 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -427,8 +427,11 @@ S_scan_commit(pTHX_ scan_data_t *data)
 STATIC void
 S_cl_anything(pTHX_ struct regnode_charclass_class *cl)
 {
+    int value;
+
     ANYOF_CLASS_ZERO(cl);
-    ANYOF_BITMAP_SETALL(cl);
+    for (value = 0; value < 256; ++value)
+       ANYOF_BITMAP_SET(cl, value);
     cl->flags = ANYOF_EOS;
     if (LOC)
        cl->flags |= ANYOF_LOCALE;
@@ -443,8 +446,8 @@ S_cl_is_anything(pTHX_ struct regnode_charclass_class *cl)
     for (value = 0; value <= ANYOF_MAX; value += 2)
        if (ANYOF_CLASS_TEST(cl, value) && ANYOF_CLASS_TEST(cl, value + 1))
            return 1;
-    for (value = 0; value < ANYOF_BITMAP_SIZE; ++value)
-       if (!ANYOF_BITMAP_BYTE(cl, value))
+    for (value = 0; value < 256; ++value)
+       if (!ANYOF_BITMAP_TEST(cl, value))
            return 0;
     return 1;
 }