This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
S_study_chunk(): silence compiler warning
authorDavid Mitchell <davem@iabyn.com>
Mon, 7 Mar 2016 15:18:07 +0000 (15:18 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 7 Mar 2016 15:18:07 +0000 (15:18 +0000)
regcomp.c

index d0133fe..58bf618 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -4392,10 +4392,10 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp,
 
                         DEBUG_TRIE_COMPILE_r({
                             regprop(RExC_rx, RExC_mysv, tail, NULL, pRExC_state);
-                            PerlIO_printf( Perl_debug_log, "%*s%s %d:%s\n",
+                            PerlIO_printf( Perl_debug_log, "%*s%s %"UVuf":%s\n",
                               (int)depth * 2 + 2, "",
                               "Looking for TRIE'able sequences. Tail node is ",
-                              tail - RExC_emit_start,
+                              (UV)(tail - RExC_emit_start),
                               SvPV_nolen_const( RExC_mysv )
                             );
                         });