From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Mon, 22 Sep 2003 22:52:40 +0000 (+0200)
Subject: RC5 and Intel's ICC
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=94b00aa4f6d0e3121d1899787c01f0f36ecb4f6e;p=p5sagit%2Fp5-mst-13.2.git

RC5 and Intel's ICC
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <00a101c3814b$76a8cc50$0c2f1fac@R2D2>

(the attribute part)

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

diff --git a/ext/Devel/PPPort/PPPort.pm b/ext/Devel/PPPort/PPPort.pm
index 9793c68..d97832e 100644
--- a/ext/Devel/PPPort/PPPort.pm
+++ b/ext/Devel/PPPort/PPPort.pm
@@ -103,7 +103,6 @@ even if available, access to a fixed interface):
     PERL_REVISION
     PERL_SUBVERSION
     PERL_UNUSED_DECL
-    PERL_UNUSED_DECL
     PERL_VERSION
     PL_compiling
     PL_copline
@@ -418,7 +417,7 @@ __DATA__
 #endif
 
 #ifdef HASATTRIBUTE
-#  if defined(__GNUC__) && defined(__cplusplus)
+#  if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER)
 #    define PERL_UNUSED_DECL
 #  else
 #    define PERL_UNUSED_DECL __attribute__((unused))
diff --git a/perl.h b/perl.h
index 73aad3c..ab6477c 100644
--- a/perl.h
+++ b/perl.h
@@ -128,7 +128,7 @@
 #endif
 
 #ifdef HASATTRIBUTE
-#  if defined(__GNUC__) && defined(__cplusplus)
+#  if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER)
 #    define PERL_UNUSED_DECL
 #  else
 #    define PERL_UNUSED_DECL __attribute__((unused))