From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 25 Feb 2001 10:53:24 +0000 (+0000)
Subject: GCC __atribute__ / printf fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c745e42cb33cb9fcfc4d47fe732cfa4725aa5d07;p=p5sagit%2Fp5-mst-13.2.git

GCC __atribute__ / printf fix

p4raw-id: //depot/perlio@8926
---

diff --git a/perl.h b/perl.h
index 3ca2168..2b66473 100644
--- a/perl.h
+++ b/perl.h
@@ -2209,7 +2209,7 @@ struct ufuncs {
 /* In pre-5.7-Perls the 'U' magic didn't get the thread context.
  * XS code wanting to be backward compatible can do something
  * like the following:
- 
+
 #ifndef PERL_MG_UFUNC
 #define PERL_MG_UFUNC(name,ix,sv) I32 name(IV ix, SV *sv)
 #endif
@@ -3332,8 +3332,12 @@ typedef struct am_table_short AMTS;
  * Remap printf
  */
 #undef printf
+#ifdef __GNUC__
+#define printf(fmt,args...) PerlIO_stdoutf(fmt,##args)
+#else
 #define printf PerlIO_stdoutf
 #endif
+#endif
 
 /* if these never got defined, they need defaults */
 #ifndef PERL_SET_CONTEXT