Re: [perl #39634] gcc 3.3 has problems with __attribute__((unused))

Message-ID: <Pine.LNX.4.62.0607101312540.24708@fractal.phys.lafayette.edu>

p4raw-id: //depot/perl@28541

diff --git a/perl.h b/perl.h
index 9c32f96..94eb860 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2604,9 +2604,11 @@ typedef struct clone_params CLONE_PARAMS;
 #    define HASATTRIBUTE_PURE
 #  endif
 #  if __GNUC__ == 3 && __GNUC_MINOR__ >= 4 || __GNUC__ > 3 /* 3.4 -> */
-     /* This actually works for gcc-3.3, but not for g++-3.3. */
 #    define HASATTRIBUTE_UNUSED
 #  endif
+#  if __GNUC__ == 3 && __GNUC_MINOR__ == 3 && !defined(__cplusplus)
+#    define HASATTRIBUTE_UNUSED /* gcc-3.3, but not g++-3.3. */
+#  endif
 #  if __GNUC__ == 3 && __GNUC_MINOR__ >= 4 || __GNUC__ > 3 /* 3.4 -> */
 #    define HASATTRIBUTE_WARN_UNUSED_RESULT
 #  endif