From 9ef43ace7060ef03dec4786f384548681099f0ca Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 12 Sep 2006 14:04:54 +0000 Subject: [PATCH] More warnings silencing, including suggestions by Dominic Dunlop p4raw-id: //depot/perl@28824 --- regcomp.c | 2 +- regexec.c | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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 -- 2.7.4