This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix format errors; was RE: g++ compile and make test 100%
authorRobin Barker <RMBarker@cpan.org>
Wed, 11 Oct 2006 17:02:01 +0000 (18:02 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 12 Oct 2006 14:19:33 +0000 (14:19 +0000)
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <2C2E01334A940D4792B3E115F95B7226120A69@exchsvr1.npl.ad.local>

p4raw-id: //depot/perl@29001

regcomp.c

index 821cb10..3b694cb 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -4601,7 +4601,7 @@ 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 #%"UVuf" to %"IVdf"\n", ARG(ret), ARG2L(ret)));
+                       "Recurse #%"UVuf" to %"IVdf"\n", (UV)ARG(ret), (IV)ARG2L(ret)));
                } else {
                    RExC_size++;
                }
@@ -4883,7 +4883,7 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp,U32 depth)
            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 #%"IVdf" to %d\n", parno, REG_NODE_NUM(ret)));
+                       "Setting paren #%"IVdf" to %d\n", (IV)parno, REG_NODE_NUM(ret)));
                RExC_parens[parno-1]= ret;
 
            }