shup up warnings about dNOOP from gcc with __attribute__ ((unused))

(from Doug MacEachern <dougm@pobox.com>)

p4raw-id: //depot/perl@5539

diff --git a/patchlevel.h b/patchlevel.h
index c11598c..42347bc 100644 (file)
--- a/patchlevel.h
+++ b/patchlevel.h
@@ -68,7 +68,7 @@
        applied different patches than you.
  */
 #if !defined(PERL_PATCHLEVEL_H_IMPLICIT) && !defined(LOCAL_PATCH_COUNT)
-static char    *local_patches[] = {
+static char    * __attribute__ ((unused)) local_patches[] = {
        NULL
        ,NULL
 };

diff --git a/perl.h b/perl.h
index d9dcbba..2fbd39f 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -151,6 +151,14 @@ functions are now member functions of the PERL_OBJECT.
 
 */
 
+#ifndef NEXT30_NO_ATTRIBUTE
+#  ifndef HASATTRIBUTE       /* disable GNU-cc attribute checking? */
+#    ifdef  __attribute__      /* Avoid possible redefinition errors */
+#      undef  __attribute__
+#    endif
+#    define __attribute__(attr)
+#  endif
+#endif
 
 class CPerlObj;
 
@@ -221,7 +229,7 @@ struct perl_thread;
 #endif
 
 #define NOOP (void)0
-#define dNOOP extern int Perl___notused
+#define dNOOP extern int __attribute__ ((unused)) Perl___notused
 
 #ifndef pTHX
 #  define pTHX         void
@@ -2664,15 +2672,6 @@ typedef void *Thread;
 #  define PERL_CALLCONV
 #endif 
 
-#ifndef NEXT30_NO_ATTRIBUTE
-#  ifndef HASATTRIBUTE       /* disable GNU-cc attribute checking? */
-#    ifdef  __attribute__      /* Avoid possible redefinition errors */
-#      undef  __attribute__
-#    endif
-#    define __attribute__(attr)
-#  endif
-#endif
-
 #ifdef PERL_OBJECT
 #  define PERL_DECL_PROT
 #endif