Hide __attribute__((unused)) behind PERL_UNUSED_DECL as

suggested by NI-S.

p4raw-id: //depot/perl@10561

1 files changed, 7 insertions, 1 deletions

diff --git a/perl.h b/perl.h
index fd22a063c9..43e11504f0 100644
--- a/perl.h
+++ b/perl.h
@@ -225,8 +225,14 @@ struct perl_thread;
 #  define CALLPROTECT CALL_FPTR(PL_protect)
 #endif
 
+#ifdef HASATTRIBUTE
+#  define PERL_UNUSED_DECL __attribute__((unused))
+#else
+#  define PERL_UNUSED_DECL
+#endif
+
 #define NOOP (void)0
-#define dNOOP extern int Perl___notused __attribute__ ((unused))
+#define dNOOP extern int Perl___notused PERL_UNUSED_DECL
 
 #ifndef pTHX
 #  define pTHX		void