This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
There's no UVdf, there is UVuf. (#if 0'ed code)
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 5 Jun 2014 00:58:06 +0000 (20:58 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 5 Jun 2014 00:58:06 +0000 (20:58 -0400)
regcomp.c

index a395e2b..bc5d350 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -4779,13 +4779,13 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp,
                    /* It is counted once already... */
                    data->pos_min += minnext * (mincount - counted);
 #if 0
-PerlIO_printf(Perl_debug_log, "counted=%"UVdf" deltanext=%"UVdf
-                              " SSize_t_MAX=%"UVdf" minnext=%"UVdf
-                              " maxcount=%"UVdf" mincount=%"UVdf"\n",
+PerlIO_printf(Perl_debug_log, "counted=%"UVuf" deltanext=%"UVuf
+                              " SSize_t_MAX=%"UVuf" minnext=%"UVuf
+                              " maxcount=%"UVuf" mincount=%"UVuf"\n",
     (UV)counted, (UV)deltanext, (UV)SSize_t_MAX, (UV)minnext, (UV)maxcount,
     (UV)mincount);
 if (deltanext != SSize_t_MAX)
-PerlIO_printf(Perl_debug_log, "LHS=%"UVdf" RHS=%"UVdf"\n",
+PerlIO_printf(Perl_debug_log, "LHS=%"UVuf" RHS=%"UVuf"\n",
     (UV)(-counted * deltanext + (minnext + deltanext) * maxcount
           - minnext * mincount), (UV)(SSize_t_MAX - data->pos_delta));
 #endif