From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 5 Oct 2006 12:20:28 +0000 (+0000)
Subject: Fix a couple of casting warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=226de5851f473b1dd3e0cfeba1321a2066859a37;p=p5sagit%2Fp5-mst-13.2.git

Fix a couple of casting warnings

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

diff --git a/regcomp.c b/regcomp.c
index 3090dbe..b2fe5b5 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4435,8 +4435,8 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth)
 	            }
 	            ARG2L_SET( ret, 0);
                     RExC_emit++;
-                    DEBUG_OPTIMISE_MORE_r(PerlIO_printf(Perl_debug_log, 
-                      "Recurse #%d to %d\n", ARG(ret), ARG2L(ret)));
+		    DEBUG_OPTIMISE_MORE_r(PerlIO_printf(Perl_debug_log,
+			"Recurse #%"UVuf" to %"IVdf"\n", ARG(ret), ARG2L(ret)));
 		} else{
 		    RExC_size++;
 	            RExC_seen|=REG_SEEN_RECURSE;
@@ -4661,10 +4661,10 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth)
 	    RExC_npar++;
 	    ret = reganode(pRExC_state, OPEN, parno);
 	    if (!SIZE_ONLY && RExC_seen & REG_SEEN_RECURSE) {
-    		DEBUG_OPTIMISE_MORE_r(PerlIO_printf(Perl_debug_log, "Setting paren #%d to %d\n",
-		      parno,REG_NODE_NUM(ret)));
+		DEBUG_OPTIMISE_MORE_r(PerlIO_printf(Perl_debug_log,
+			"Setting paren #%"IVdf" to %d\n", parno, REG_NODE_NUM(ret)));
 	        RExC_parens[parno-1]= ret;
-	        
+
 	    }
             Set_Node_Length(ret, 1); /* MJD */
             Set_Node_Offset(ret, RExC_parse); /* MJD */