From 5cf9651332ed0ede8b731e49a0f5b3bf300b7b0e Mon Sep 17 00:00:00 2001 From: Robin Barker Date: Thu, 27 Jan 2011 14:02:36 +0000 Subject: [PATCH] perlio.c: silence format warnings MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Signed-off-by: Ævar Arnfjörð Bjarmason --- perlio.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/perlio.c b/perlio.c index a7a1667..130671d 100644 --- a/perlio.c +++ b/perlio.c @@ -1267,17 +1267,17 @@ PerlIO_push(pTHX_ PerlIO *f, PERLIO_FUNCS_DECL(*tab), const char *mode, SV *arg) VERIFY_HEAD(f); if (tab->fsize != sizeof(PerlIO_funcs)) { Perl_croak( aTHX_ - "%s (%d) does not match %s (%d)", - "PerlIO layer function table size", tab->fsize, - "size expected by this perl", sizeof(PerlIO_funcs) ); + "%s (%"UVuf") does not match %s (%"UVuf")", + "PerlIO layer function table size", (UV)tab->fsize, + "size expected by this perl", (UV)sizeof(PerlIO_funcs) ); } if (tab->size) { PerlIOl *l; if (tab->size < sizeof(PerlIOl)) { Perl_croak( aTHX_ - "%s (%d) smaller than %s (%d)", - "PerlIO layer instance size", tab->size, - "size expected by this perl", sizeof(PerlIOl) ); + "%s (%"UVuf") smaller than %s (%"UVuf")", + "PerlIO layer instance size", (UV)tab->size, + "size expected by this perl", (UV)sizeof(PerlIOl) ); } /* Real layer with a data area */ if (f) { -- 1.8.3.1