regcomp(_internal).c: Avoid some casts in prints

We have modifiers like %z and %t to portably print items of the given
type.  This converts to use those in these files, removing casts that
were previously used.

Author: khwilliamson

regcomp.c

@@ -2093,13 +2093,11 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
         /* search for "restudy" in this file for a detailed explanation */
         DEBUG_PARSE_r(
             if (!restudied)
-                Perl_re_printf( aTHX_  "first at %" IVdf "\n",
-                              (IV)(first - scan + 1))
+                Perl_re_printf( aTHX_  "first at %td\n", first - scan + 1)
         );
 #else
         DEBUG_PARSE_r(
-            Perl_re_printf( aTHX_  "first at %" IVdf "\n",
-                (IV)(first - scan + 1))
+            Perl_re_printf( aTHX_  "first at %td\n", first - scan + 1)
         );
 #endif
 
@@ -4384,12 +4382,12 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp, U32 depth)
             DEBUG_PARSE_MSG("lsbr");
             regprop(RExC_rx, RExC_mysv1, REGNODE_p(lastbr), NULL, pRExC_state);
             regprop(RExC_rx, RExC_mysv2, REGNODE_p(ender), NULL, pRExC_state);
-            Perl_re_printf( aTHX_  "~ tying lastbr %s (%" IVdf ") to ender %s (%" IVdf ") offset %" IVdf "\n",
+            Perl_re_printf( aTHX_  "~ tying lastbr %s (%" IVdf ") to ender %s (%" IVdf ") offset %td\n",
                           SvPV_nolen_const(RExC_mysv1),
                           (IV)lastbr,
                           SvPV_nolen_const(RExC_mysv2),
                           (IV)ender,
-                          (IV)(ender - lastbr)
+                          (ender - lastbr)
             );
         });
         if (OP(REGNODE_p(lastbr)) == BRANCH) {
@@ -4448,12 +4446,12 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp, U32 depth)
                                      NULL, pRExC_state);
                     regprop(RExC_rx, RExC_mysv2, REGNODE_p(ender),
                                      NULL, pRExC_state);
-                    Perl_re_printf( aTHX_  "~ converting ret %s (%" IVdf ") to ender %s (%" IVdf ") offset %" IVdf "\n",
+                    Perl_re_printf( aTHX_  "~ converting ret %s (%" IVdf ") to ender %s (%" IVdf ") offset %td\n",
                                   SvPV_nolen_const(RExC_mysv1),
                                   (IV)REG_NODE_NUM(ret_as_regnode),
                                   SvPV_nolen_const(RExC_mysv2),
                                   (IV)ender,
-                                  (IV)(ender - ret)
+                                  (ender - ret)
                     );
                 });
                 OP(br)= NOTHING;
@@ -7435,8 +7433,8 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
                         if (need_to_fold_loc) {
                             upper_fill = loc_correspondence[s - s_start];
                             if (upper_fill == 0) {
-                                FAIL2("panic: loc_correspondence[%d] is 0",
-                                      (int) (s - s_start));
+                                FAIL2("panic: loc_correspondence[%td] is 0",
+                                      (s - s_start));
                             }
                             Safefree(locfold_buf);
                             Safefree(loc_correspondence);
@@ -13147,10 +13145,10 @@ S_regtail_study(pTHX_ RExC_state_t *pRExC_state, regnode_offset p,
         DEBUG_PARSE_MSG("");
         regprop(RExC_rx, RExC_mysv, REGNODE_p(val), NULL, pRExC_state);
         Perl_re_printf( aTHX_
-                      "~ attach to %s (%" IVdf ") offset to %" IVdf "\n",
+                      "~ attach to %s (%zd) offset to %td\n",
                       SvPV_nolen_const(RExC_mysv),
                       (IV)val,
-                      (IV)(val - scan)
+                      (val - scan)
         );
     });
     if (REGNODE_OFF_BY_ARG(OP(REGNODE_p(scan)))) {
@@ -13913,7 +13911,7 @@ Perl_save_re_context(pTHX)
     for (i = 1; i <= nparens; i++) {
         char digits[TYPE_CHARS(long)];
         const STRLEN len = my_snprintf(digits, sizeof(digits),
-                                       "%lu", (long)i);
+                                       "%" I32df, i);
         GV *const *const gvp
             = (GV**)hv_fetch(PL_defstash, digits, len, 0);
 
@@ -13925,7 +13923,6 @@ Perl_save_re_context(pTHX)
     }
 }
 #endif
-
 #ifndef PERL_IN_XSUB_RE
 
 #  include "uni_keywords.h"
@@ -16329,7 +16326,7 @@ S_handle_names_wildcard(pTHX_ const char * wname, /* wildcard name to match */
      * were returned to us in the array 'algorithmic_names' from data in
      * lib/unicore/Name.pm.  'code_point' in the name is expressed in hex. */
     for (i = 0; i <= av_top_index((AV *) algorithmic_names); i++) {
-        IV j;
+        SSize_t j;
 
         /* Each element of the array is a hash, giving the details for the
          * series of names it covers.  There is the base name of the characters
@@ -16360,8 +16357,7 @@ S_handle_names_wildcard(pTHX_ const char * wname, /* wildcard name to match */
             for (j = low; j <= high; j++) { /* For each code point in the series */
 
                 /* Get its name, and see if it matches the subpattern */
-                sv_setpvf(algo_name, "%s-%X", SvPVX(prefix),
-                                     (unsigned) j);
+                sv_setpvf(algo_name, "%s-%zX", SvPVX(prefix), j);
 
                 if (execute_wildcard(subpattern_re,
                                     SvPVX(algo_name),

regcomp_internal.h

@@ -864,10 +864,10 @@ static const scan_data_t zero_scan_data = {
               ? eI - sI   /* Length before the <--HERE */                   \
               : ((xI_offset(xC) >= 0)                                       \
                  ? xI_offset(xC)                                            \
-                 : (croak("panic: %s: %d: negative offset: %"               \
-                                    IVdf " trying to output message for "   \
+                 : (croak("panic: %s: %d: negative offset: "                \
+                                    " %td trying to output message for "    \
                                     " pattern %.*s",                        \
-                                    __FILE__, __LINE__, (IV) xI_offset(xC), \
+                                    __FILE__, __LINE__, xI_offset(xC),      \
                                     ((int) (eC - sC)), sC), 0)),            \
              sI),         /* The input pattern printed up to the <--HERE */ \
     UTF8fARG(UTF,                                                           \