This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Type change to avoid signed/unsigned compiler warnings
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 8 Nov 2006 13:27:14 +0000 (13:27 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 8 Nov 2006 13:27:14 +0000 (13:27 +0000)
(thanks to Robin Barker)

p4raw-id: //depot/perl@29232

regexec.c

index 8e0aabd..8597be3 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -2561,7 +2561,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
     /* cache heavy used fields of st in registers */
     register regnode *scan;
     register regnode *next;
-    register I32 n = 0;        /* general value; init to avoid compiler warning */
+    register U32 n = 0;        /* general value; init to avoid compiler warning */
     register I32 ln = 0; /* len or last;  init to avoid compiler warning */
     register char *locinput = PL_reginput;
     register I32 nextchr;   /* is always set to UCHARAT(locinput) */