From b7787f18a4d9a5b6205453133731406d627268af Mon Sep 17 00:00:00 2001 From: Andy Lester Date: Sun, 1 May 2005 10:07:55 -0500 Subject: printf.patch: Adding printf checking for gcc Message-ID: <20050501200755.GA30259@petdance.com> p4raw-id: //depot/perl@24365 --- perliol.h | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perliol.h') diff --git a/perliol.h b/perliol.h index 35f67e07ad..c6da2b6ffd 100644 --- a/perliol.h +++ b/perliol.h @@ -147,8 +147,6 @@ PERL_EXPORT_C int PerlIO_apply_layera(pTHX_ PerlIO *f, const char *mode, PerlIO_list_t *layers, IV n, IV max); PERL_EXPORT_C int PerlIO_parse_layers(pTHX_ PerlIO_list_t *av, const char *names); PERL_EXPORT_C PerlIO_funcs *PerlIO_layer_fetch(pTHX_ PerlIO_list_t *av, IV n, PerlIO_funcs *def); -PERL_EXPORT_C void PerlIO_debug(const char *fmt, ...) - __attribute__format__(__printf__, 1, 2); PERL_EXPORT_C SV *PerlIO_sv_dup(pTHX_ SV *arg, CLONE_PARAMS *param); @@ -161,7 +159,8 @@ PERL_EXPORT_C PerlIO_list_t * PerlIO_resolve_layers(pTHX_ const char *layers, co PERL_EXPORT_C PerlIO_funcs * PerlIO_default_layer(pTHX_ I32 n); PERL_EXPORT_C PerlIO_list_t * PerlIO_default_layers(pTHX); PERL_EXPORT_C PerlIO * PerlIO_reopen(const char *path, const char *mode, PerlIO *f); -PERL_EXPORT_C int PerlIO_vsprintf(char *s, int n, const char *fmt, va_list ap); +PERL_EXPORT_C int PerlIO_vsprintf(char *s, int n, const char *fmt, va_list ap) + __attribute__format__(__printf__,3,0); PERL_EXPORT_C PerlIO_list_t *PerlIO_list_alloc(pTHX); PERL_EXPORT_C PerlIO_list_t *PerlIO_clone_list(pTHX_ PerlIO_list_t *proto, CLONE_PARAMS *param); -- cgit v1.2.1