This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Attribute compilation fix for Windows by Andy Lester
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 23 May 2005 14:31:33 +0000 (14:31 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 23 May 2005 14:31:33 +0000 (14:31 +0000)
p4raw-id: //depot/perl@24552

perl.h
perlio.h

diff --git a/perl.h b/perl.h
index f54c559..a82e0b1 100644 (file)
--- a/perl.h
+++ b/perl.h
 #endif
 
 #ifndef PERL_UNUSED_DECL
-#  define PERL_UNUSED_DECL __attribute__unused__
+#  ifdef HASATTRIBUTE_UNUSED
+#    define PERL_UNUSED_DECL __attribute__unused__
+#  else
+#    define PERL_UNUSED_DECL
+#  endif
 #endif
  
 /* gcc -Wall:
index 3022282..8ff2bff 100644 (file)
--- a/perlio.h
+++ b/perlio.h
@@ -210,7 +210,11 @@ PERL_EXPORT_C void PerlIO_clone(pTHX_ PerlInterpreter *proto,
 
 START_EXTERN_C
 #ifndef __attribute__format__
-#  define __attribute__format__(x,y,z) __attribute__((format(x,y,z)))
+#  ifdef HASATTRIBUTE_FORMAT
+#    define __attribute__format__(x,y,z) __attribute__((format(x,y,z)))
+#  else
+#    define __attribute__format__(x,y,z)
+#  endif
 #endif
 #ifndef PerlIO_init
 PERL_EXPORT_C void PerlIO_init(pTHX);