[PATCH perl@7930] toke.c perlio.c -Wformat nits

--- perl/perlio.c	Wed Nov 29 15:27:41 2000
+++ perl7930/perlio.c	
@@ -325,7 +325,7 @@
    PerlIO *ifp = IoIFP(io);
    PerlIO *ofp = IoOFP(io);
    AV *av = (AV *) mg->mg_obj;
-   Perl_warn(aTHX_ "set %_ %p %p %p",sv,io,ifp,ofp);
+   Perl_warn(aTHX_ "set %"SVf" %p %p %p",sv,io,ifp,ofp);
   }
  return 0;
 }
@@ -339,7 +339,7 @@
    PerlIO *ifp = IoIFP(io);
    PerlIO *ofp = IoOFP(io);
    AV *av = (AV *) mg->mg_obj;
-   Perl_warn(aTHX_ "get %_ %p %p %p",sv,io,ifp,ofp);
+   Perl_warn(aTHX_ "get %"SVf" %p %p %p",sv,io,ifp,ofp);
   }
  return 0;
 }
@@ -347,14 +347,14 @@
 static int
 perlio_mg_clear(pTHX_ SV *sv, MAGIC *mg)
 {
- Perl_warn(aTHX_ "clear %_",sv);
+ Perl_warn(aTHX_ "clear %"SVf,sv);
  return 0;
 }
 
 static int
 perlio_mg_free(pTHX_ SV *sv, MAGIC *mg)
 {
- Perl_warn(aTHX_ "free %_",sv);
+ Perl_warn(aTHX_ "free %"SVf,sv);
  return 0;
 }
 
@@ -379,7 +379,7 @@
  mg = mg_find(sv,'~');
  mg->mg_virtual = &perlio_vtab;
  mg_magical(sv);
- Perl_warn(aTHX_ "attrib %_",sv);
+ Perl_warn(aTHX_ "attrib %"SVf,sv);
  for (i=2; i < items; i++)
   {
    STRLEN len;
@@ -950,7 +950,7 @@
                  (PERLIO_F_CANREAD|PERLIO_F_CANWRITE|PERLIO_F_TRUNCATE|PERLIO_F_APPEND);
     }
   }
- PerlIO_debug("PerlIOBase_pushed f=%p %s %s fl=%08x (%s)\n",
+ PerlIO_debug("PerlIOBase_pushed f=%p %s %s fl=%08"UVxf" (%s)\n",
               f,PerlIOBase(f)->tab->name,(omode) ? omode : "(Null)",
               l->flags,PerlIO_modestr(f,temp));
  return 0;
@@ -1689,7 +1689,7 @@
      /* Initial stderr is unbuffered */
      PerlIOBase(f)->flags |= PERLIO_F_UNBUF;
     }
-   PerlIO_debug("PerlIOBuf_fdopen %s f=%p fd=%d m=%s fl=%08x\n",
+   PerlIO_debug("PerlIOBuf_fdopen %s f=%p fd=%d m=%s fl=%08"UVxf"\n",
                 self->name,f,fd,mode,PerlIOBase(f)->flags);
   }
  return f;
@@ -2129,7 +2129,7 @@
  IV code;
  PerlIOBase(f)->flags |= PERLIO_F_CRLF;
  code = PerlIOBase_pushed(f,mode);
- PerlIO_debug("PerlIOCrlf_pushed f=%p %s %s fl=%08x\n",
+ PerlIO_debug("PerlIOCrlf_pushed f=%p %s %s fl=%08"UVxf"\n",
               f,PerlIOBase(f)->tab->name,(mode) ? mode : "(Null)",
               PerlIOBase(f)->flags);
  return code;
@@ -2295,7 +2295,7 @@
    if (ptr != chk)
     {
      dTHX;
-     Perl_croak(aTHX_ "ptr wrong %p != %p fl=%08x nl=%p e=%p for %d",
+     Perl_croak(aTHX_ "ptr wrong %p != %p fl=%08"UVxf" nl=%p e=%p for %d",
                 ptr, chk, flags, c->nl, b->end, cnt);
     }
   }
--- perl/toke.c		Wed Nov 29 14:42:13 2000
+++ perl7930/toke.c
@@ -2256,8 +2256,8 @@
 	    PL_lex_defer = LEX_NORMAL;
 	}
 	DEBUG_T({ PerlIO_printf(Perl_debug_log,
-              "### Next token after '%s' was known, type %i\n", PL_bufptr,
-              PL_nexttype[PL_nexttoke]); })
+              "### Next token after '%s' was known, type %"IVdf"\n", PL_bufptr,
+              (IV)PL_nexttype[PL_nexttoke]); })
 
 	return(PL_nexttype[PL_nexttoke]);
 

-- 
Robin Barker                        | Email: Robin.Barker@npl.co.uk
CMSC, Building 10,                  | Phone: +44 (0) 20 8943 7090
National Physical Laboratory,       | Fax:   +44 (0) 20 8977 7091
Teddington, Middlesex, UK. TW11 OLW | WWW:   http://www.npl.co.uk

• [PATCH perl@7930] toke.c perlio.c -Wformat nits by Robin Barker
• Re: [PATCH perl@7930] toke.c perlio.c -Wformat nits by Jarkko Hietaniemi