From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 19 Mar 2011 20:36:38 +0000 (+0000)
Subject: Add PERL_NO_GET_CONTEXT to XS::Typemap
X-Git-Tag: v5.13.11~43
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/3c53ff3fcb7a9fb379a965577e4a04828ebaf7de

Add PERL_NO_GET_CONTEXT to XS::Typemap

For threaded platforms, this almost halves the object code size.
---

diff --git a/ext/XS-Typemap/Typemap.xs b/ext/XS-Typemap/Typemap.xs
index dbb1733..2f8b3bc 100644
--- a/ext/XS-Typemap/Typemap.xs
+++ b/ext/XS-Typemap/Typemap.xs
@@ -1,4 +1,3 @@
-
 /*
    XS code to test the typemap entries
 
@@ -7,6 +6,8 @@
 
 */
 
+#define PERL_NO_GET_CONTEXT
+
 #include "EXTERN.h"   /* std perl include */
 #include "perl.h"     /* std perl include */
 #include "XSUB.h"     /* XSUB include */