This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make the __attribute__ stuff work with Symbian (Jarkko).
[perl5.git] / perl.h
diff --git a/perl.h b/perl.h
index 22b6af5..f54c559 100644 (file)
--- a/perl.h
+++ b/perl.h
 #define CALLREG_INTUIT_STRING CALL_FPTR(PL_regint_string)
 #define CALLREGFREE CALL_FPTR(PL_regfree)
 
-#define PERL_UNUSED_DECL __attribute__unused__
+#if defined(SYMBIAN) && defined(__GNUC__)
+#  ifdef __cplusplus
+#    define PERL_UNUSED_DECL
+#  else
+#    define PERL_UNUSED_DECL __attribute__((unused))
+#  endif
+#endif
 
+#ifndef PERL_UNUSED_DECL
+#  define PERL_UNUSED_DECL __attribute__unused__
+#endif
 /* gcc -Wall:
  * for silencing unused variables that are actually used most of the time,
  * but we cannot quite get rid of, such `ax' in PPCODE+noargs xsubs