From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 20 Oct 2006 09:04:49 +0000 (+0000)
Subject: Silence some warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=664e119dc7d588fadda4e2290471766a53190667;p=p5sagit%2Fp5-mst-13.2.git

Silence some warnings

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 0a59e62..708f2fa 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -131,10 +131,9 @@ PP(pp_regcomp)
 	if (!re || !re->precomp || re->prelen != (I32)len ||
 	    memNE(re->precomp, t, len))
 	{
-	    regexp_engine * eng = NULL;
-	    
+	    const regexp_engine *eng = re ? re->engine : NULL;
+
 	    if (re) {
-	        eng = re->engine;
 	        ReREFCNT_dec(re);
 		PM_SETRE(pm, NULL);	/* crucial if regcomp aborts */
 	    } else if (PL_curcop->cop_hints_hash) {
@@ -143,7 +142,7 @@ PP(pp_regcomp)
                 if (ptr && SvIOK(ptr) && SvIV(ptr))
                     eng = INT2PTR(regexp_engine*,SvIV(ptr));
 	    }
-	        
+
 	    if (PL_op->op_flags & OPf_SPECIAL)
 		PL_reginterp_cnt = I32_MAX; /* Mark as safe.  */
 
diff --git a/regcomp.c b/regcomp.c
index 0a5f2fd..25dc17f 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -907,8 +907,8 @@ S_dump_trie_interim_list(pTHX_ const struct _reg_trie_data *trie, U32 next_alloc
                     (UV)TRIE_LIST_ITEM(state,charid).newstate
                 );
                 if (!(charid % 10)) 
-                    PerlIO_printf( Perl_debug_log, "\n%*s| ",
-                        (depth * 2) + 14,"");
+                    PerlIO_printf(Perl_debug_log, "\n%*s| ",
+                        (int)((depth * 2) + 14), "");
             }
         }
         PerlIO_printf( Perl_debug_log, "\n");