This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
char is not a good type to use for array indexes;
authorJerry D. Hedden <jdhedden@cpan.org>
Sat, 30 Jun 2007 16:34:06 +0000 (12:34 -0400)
committerYves Orton <demerphq@gmail.com>
Sun, 1 Jul 2007 12:03:35 +0000 (12:03 +0000)
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

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;