From 226de5851f473b1dd3e0cfeba1321a2066859a37 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Thu, 5 Oct 2006 12:20:28 +0000 Subject: [PATCH] Fix a couple of casting warnings p4raw-id: //depot/perl@28941 --- regcomp.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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 */ -- 2.7.4