From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 12 Sep 2006 14:04:54 +0000 (+0000)
Subject: More warnings silencing, including suggestions by Dominic Dunlop
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9ef43ace7060ef03dec4786f384548681099f0ca;p=p5sagit%2Fp5-mst-13.2.git

More warnings silencing, including suggestions by Dominic Dunlop

p4raw-id: //depot/perl@28824
---

diff --git a/regcomp.c b/regcomp.c
index 2c2064b..9612c93 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5700,7 +5700,7 @@ STATIC regnode *
 S_regclass(pTHX_ RExC_state_t *pRExC_state, U32 depth)
 {
     dVAR;
-    register UV value;
+    register UV value = 0;
     register UV nextvalue;
     register IV prevvalue = OOB_UNICODE;
     register IV range = 0;
diff --git a/regexec.c b/regexec.c
index 5e8e886..1a86e49 100644
--- a/regexec.c
+++ b/regexec.c
@@ -717,7 +717,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
     }
 
     
-    t= HOP3( s, -prog->check_offset_max, (prog->check_offset_max<0) ? strend : strpos);  
+    t= (char*)HOP3( s, -prog->check_offset_max, (prog->check_offset_max<0) ? strend : strpos);
         
     DEBUG_OPTIMISE_r(
         PerlIO_printf(Perl_debug_log, 
@@ -733,7 +733,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
 
     if (s - strpos > prog->check_offset_max  /* signed-corrected t > strpos */
         && (!do_utf8
-	    || ((t = (char*)reghopmaybe3((U8*)s, -prog->check_offset_max, (prog->check_offset_max<0) ? strend : strpos))
+	    || ((t = (char*)reghopmaybe3((U8*)s, -prog->check_offset_max, (U8*) ((prog->check_offset_max<0) ? strend : strpos)))
 		 && t > strpos))) 
     {
 	/* Fixed substring is found far enough so that the match