Author: stas Date: Sat Dec 11 09:49:54 2004 New Revision: 111608 URL: http://svn.apache.org/viewcvs?view=rev&rev=111608 Log: ifdef 'PerlInterpreter *perl;' with USE_ITHREADS Contributed by: Randy Kobes
Modified: perl/modperl/trunk/xs/APR/Pool/APR__Pool.h perl/modperl/trunk/xs/Apache/ServerUtil/Apache__ServerUtil.h Modified: perl/modperl/trunk/xs/APR/Pool/APR__Pool.h Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/xs/APR/Pool/APR__Pool.h?view=diff&rev=111608&p1=perl/modperl/trunk/xs/APR/Pool/APR__Pool.h&r1=111607&p2=perl/modperl/trunk/xs/APR/Pool/APR__Pool.h&r2=111608 ============================================================================== --- perl/modperl/trunk/xs/APR/Pool/APR__Pool.h (original) +++ perl/modperl/trunk/xs/APR/Pool/APR__Pool.h Sat Dec 11 09:49:54 2004 @@ -233,8 +233,8 @@ SV *cv; SV *arg; apr_pool_t *p; - PerlInterpreter *perl; #ifdef USE_ITHREADS + PerlInterpreter *perl; modperl_interp_t *interp; #endif } mpxs_cleanup_t; @@ -249,7 +249,9 @@ { int count; mpxs_cleanup_t *cdata = (mpxs_cleanup_t *)data; +#ifdef USE_ITHREADS dTHXa(cdata->perl); +#endif dSP; ENTER;SAVETMPS; Modified: perl/modperl/trunk/xs/Apache/ServerUtil/Apache__ServerUtil.h Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/xs/Apache/ServerUtil/Apache__ServerUtil.h?view=diff&rev=111608&p1=perl/modperl/trunk/xs/Apache/ServerUtil/Apache__ServerUtil.h&r1=111607&p2=perl/modperl/trunk/xs/Apache/ServerUtil/Apache__ServerUtil.h&r2=111608 ============================================================================== --- perl/modperl/trunk/xs/Apache/ServerUtil/Apache__ServerUtil.h (original) +++ perl/modperl/trunk/xs/Apache/ServerUtil/Apache__ServerUtil.h Sat Dec 11 09:49:54 2004 @@ -33,7 +33,9 @@ SV *cv; SV *arg; apr_pool_t *p; +#ifdef USE_ITHREADS PerlInterpreter *perl; +#endif } mpxs_cleanup2_t; /** @@ -44,7 +46,9 @@ { int count; mpxs_cleanup2_t *cdata = (mpxs_cleanup2_t *)data; +#ifdef USE_ITHREADS dTHXa(cdata->perl); +#endif dSP; ENTER;SAVETMPS;
