X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/ced454951435adad2176a9e62dc76e463b1a6406..ea725ce6fd46ebc3bd7040373b9c0721af8813f8:/util.c

diff --git a/util.c b/util.c
index 1111ff1..7341117 100644
--- a/util.c
+++ b/util.c
@@ -545,9 +545,9 @@ Perl_fbm_compile(pTHX_ SV *sv, U32 flags)
 {
     dVAR;
     register const U8 *s;
-    register U32 i;
+    STRLEN i;
     STRLEN len;
-    U32 rarest = 0;
+    STRLEN rarest = 0;
     U32 frequency = 256;
 
     PERL_ARGS_ASSERT_FBM_COMPILE;
@@ -606,8 +606,8 @@ Perl_fbm_compile(pTHX_ SV *sv, U32 flags)
     BmUSEFUL(sv) = 100;			/* Initial value */
     if (flags & FBMcf_TAIL)
 	SvTAIL_on(sv);
-    DEBUG_r(PerlIO_printf(Perl_debug_log, "rarest char %c at %lu\n",
-			  BmRARE(sv),(unsigned long)BmPREVIOUS(sv)));
+    DEBUG_r(PerlIO_printf(Perl_debug_log, "rarest char %c at %"UVuf"\n",
+			  BmRARE(sv), BmPREVIOUS(sv)));
 }
 
 /* If SvTAIL(littlestr), it has a fake '\n' at end. */