[perl #37648] segfault with PERLIO_DEBUG

[p5sagit/p5-mst-13.2.git] / XSUB.h

diff --git a/XSUB.h b/XSUB.h
index 1bcad7c..c38ccd2 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -100,7 +100,7 @@ is a lexical $_ in scope.
 #if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING)
 #  define XS(name) __declspec(dllexport) void name(pTHX_ CV* cv)
 #endif
-#if defined(SYMBIAN)
+#if defined(__SYMBIAN32__)
 #  define XS(name) EXPORT_C void name(pTHX_ CV* cv)
 #endif
 #ifndef XS
@@ -115,7 +115,7 @@ is a lexical $_ in scope.
 
 #define dAXMARK                                \
        I32 ax = POPMARK;       \
-       register SV ** const mark = PL_stack_base + ax++
+       register SV **mark = PL_stack_base + ax++
 
 #define dITEMS I32 items = SP - MARK
 
@@ -229,7 +229,7 @@ C<xsubpp>.  See L<perlxs/"The VERSIONCHECK: Keyword">.
 =head1 Simple Exception Handling Macros
 
 =for apidoc Ams||dXCPT
-Set up neccessary local variables for exception handling.
+Set up necessary local variables for exception handling.
 See L<perlguts/"Exception Handling">.
 
 =for apidoc AmU||XCPT_TRY_START