This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add PERL_NO_GET_CONTEXT to XS::Typemap
authorNicholas Clark <nick@ccl4.org>
Sat, 19 Mar 2011 20:36:38 +0000 (20:36 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 19 Mar 2011 21:18:19 +0000 (21:18 +0000)
For threaded platforms, this almost halves the object code size.

ext/XS-Typemap/Typemap.xs

index dbb1733..2f8b3bc 100644 (file)
@@ -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 */