char is not a good type to use for array indexes;

should have been U8 in the first place.

Originally noticed by Jerry Hedden in
Subject: [PATCH] Compiler warning in regcomp.c
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510706301334t337903a0k46abc6d2d25c68a5@mail.gmail.com>

p4raw-id: //depot/perl@31510

diff --git a/regcomp.c b/regcomp.c
index bcbfec3..60b31ed 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -4766,8 +4766,8 @@ reStudy:
             r->extflags |= (RXf_SKIPWHITE|RXf_WHITE); 
     else {
         regnode *first = ri->program + 1;
-        char fop = OP(first);
-        char nop = OP(NEXTOPER(first));
+        U8 fop = OP(first);
+        U8 nop = OP(NEXTOPER(first));
         
          if (PL_regkind[fop] == BOL && nop == END) 
             r->extflags |= RXf_START_ONLY;