dougm 2002/07/07 16:47:35
Modified: src/modules/perl modperl_interp.h
Log:
add MP_aTHX macro that can be used in expressions with or without ithreads
Revision Changes Path
1.17 +4 -0 modperl-2.0/src/modules/perl/modperl_interp.h
Index: modperl_interp.h
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_interp.h,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- modperl_interp.h 21 Jun 2002 03:02:54 -0000 1.16
+++ modperl_interp.h 7 Jul 2002 23:47:35 -0000 1.17
@@ -41,6 +41,8 @@
interp = modperl_interp_select(r, c, s); \
aTHX = interp->perl
+#define MP_aTHX aTHX
+
apr_status_t modperl_interp_pool_destroy(void *data);
typedef apr_status_t (*modperl_interp_mip_walker_t)(pTHX_
@@ -60,6 +62,8 @@
#else
#define MP_dINTERP_SELECT(r, c, s) dNOOP
+
+#define MP_aTHX 0
#endif /* USE_ITHREADS */
