This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Silence compiler warnings
authorKarl Williamson <public@khwilliamson.com>
Sat, 7 Dec 2013 16:32:51 +0000 (09:32 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 7 Dec 2013 16:57:56 +0000 (09:57 -0700)
This changes some formats to add an 'l' modifier, and adds a cast.

regcomp.c

index 2d8ce3d..8123614 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -3404,8 +3404,8 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp,
        /* Peephole optimizer: */
         DEBUG_OPTIMISE_MORE_r(
         {
-            PerlIO_printf(Perl_debug_log,"%*sstudy_chunk stopparen=%d depth=%u recursed_depth=%u ",
-                (depth*2), "", stopparen, depth, recursed_depth);
+            PerlIO_printf(Perl_debug_log,"%*sstudy_chunk stopparen=%ld depth=%lu recursed_depth=%lu ",
+                ((int) depth*2), "", stopparen, depth, recursed_depth);
             if (recursed_depth) {
                 U32 i;
                 U32 j;