From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 5 Mar 2000 06:37:58 +0000 (+0000)
Subject: shup up warnings about dNOOP from gcc with __attribute__ ((unused))
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b21babef0dc893282c08080aa99c4bd760e05204;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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