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 (file)
--- 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 (file)
--- 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))