From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Sat, 30 Jun 2007 16:34:06 +0000 (-0400)
Subject: char is not a good type to use for array indexes;
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=39aa8307f3f2358b81eed6e9cadcba8c05567eec;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;