From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Sun, 25 May 2003 21:17:42 +0000 (+0200)
Subject: Re: [PATCH: perlio.h] maint snap @ 19613
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2c2e45254665c3bcdaa1713781d5222762407bae;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH: perlio.h] maint snap @ 19613
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <003701c322f2$517fb5e0$0c2f1fac@R2D2>

p4raw-id: //depot/perl@19620
---

diff --git a/perlio.h b/perlio.h
index 754bb57..dd1e3d5 100644
--- a/perlio.h
+++ b/perlio.h
@@ -195,6 +195,13 @@ extern void PerlIO_clone(pTHX_ PerlInterpreter *proto, CLONE_PARAMS *param);
 /* --------------------- Now prototypes for functions --------------- */
 
 START_EXTERN_C
+#ifndef __attribute__format__
+#ifdef CHECK_FORMAT
+#define __attribute__format__(x,y,z) __attribute__((__format__(x,y,z)))
+#else
+#define __attribute__format__(x,y,z)
+#endif
+#endif
 #ifndef NEXT30_NO_ATTRIBUTE
 #ifndef HASATTRIBUTE		/* disable GNU-cc attribute checking? */
 #ifdef  __attribute__		/* Avoid possible redefinition errors */