regen headers

[p5sagit/p5-mst-13.2.git] / symbian / symbianish.h

diff --git a/symbian/symbianish.h b/symbian/symbianish.h
index 1aebaf1..b2054bc 100644 (file)
--- a/symbian/symbianish.h
+++ b/symbian/symbianish.h
@@ -120,7 +120,7 @@
 #define Mkdir(path,mode)   mkdir((path),(mode))
 
 #ifndef PERL_SYS_TERM
-#define PERL_SYS_TERM()                OP_REFCNT_TERM; MALLOC_TERM; CloseSTDLIB();
+#define PERL_SYS_TERM()                HINTS_REFCNT_TERM; OP_REFCNT_TERM; MALLOC_TERM; CloseSTDLIB();
 #endif
 
 #define BIT_BUCKET "NUL:"
@@ -143,7 +143,7 @@ pid_t wait(int *status);
 
 #undef PERL_EXPORT_C
 #define PERL_EXPORT_C EXPORT_C /* for perlio.h */
-#define PERL_CALLCONV EXPORT_C /* for prototype.h */
+#define PERL_CALLCONV EXPORT_C /* for proto.h */
 #undef PERL_XS_EXPORT_C
 #define PERL_XS_EXPORT_C EXPORT_C
 
@@ -207,3 +207,13 @@ pid_t wait(int *status);
 
 #endif /* _MSC_VER */
 
+#ifdef __MWERKS__
+/* No good way of using the CodeWarrior #pragma unused(varname) with Perl
+ * source code (e.g. PERL_UNUSED_DECL doesn't work with the pragma syntax).
+ * Therefore we brutally  turn off these particular warnings since there
+ * is a lot of this in Perl code (pTHX, for example).  TOther compilers
+ * will have to detect these naughty bits. */
+#pragma warn_unusedarg off
+#pragma warn_unusedvar off
+#pragma warn_emptydecl off
+#endif