toke.c perlio.c -Wformat nits

Message-Id: <200011301427.OAA00030@tempest.npl.co.uk>

p4raw-id: //depot/perl@7935

diff --git a/perlio.c b/perlio.c
index 5bbebc7..9011573 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -325,7 +325,7 @@ perlio_mg_set(pTHX_ SV *sv, MAGIC *mg)
    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_mg_get(pTHX_ SV *sv, MAGIC *mg)
    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 @@ perlio_mg_get(pTHX_ SV *sv, MAGIC *mg)
 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 @@ XS(XS_io_MODIFY_SCALAR_ATTRIBUTES)
  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 @@ PerlIOBase_pushed(PerlIO *f, const char *mode)
                  (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 @@ PerlIOBuf_fdopen(PerlIO_funcs *self, int fd, const char *mode)
      /* 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 @@ PerlIOCrlf_pushed(PerlIO *f, const char *mode)
  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 @@ PerlIOCrlf_set_ptrcnt(PerlIO *f, STDCHAR *ptr, SSize_t cnt)
    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);
     }
   }

diff --git a/toke.c b/toke.c
index 1290c69..90b5ad5 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2256,8 +2256,8 @@ Perl_yylex(pTHX)
            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]);