diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-20 15:24:08 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-08-20 15:24:08 +0000 |
| commit | 8d3b14b44e73a4619ef3953659cc594dde86c937 (patch) | |
| tree | 9d705efcb4450c1c8bd376e098de63972ea1fade /XSUB.h | |
| parent | 39cc3c4d76cae3c5d2661ab80b1169df63e88da6 (diff) | |
| download | perl-8d3b14b44e73a4619ef3953659cc594dde86c937.tar.gz | |
support USE_THREADS+MULTIPLICITY; source compat tweaks for
USE_THREADS and MULTIPLICITY; minor pod adjustments
p4raw-id: //depot/perl@4007
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 15 |
1 files changed, 7 insertions, 8 deletions
@@ -115,17 +115,16 @@ # include "objXSUB.h" #endif /* PERL_OBJECT || PERL_CAPI */ -#if defined(PERL_CAPI) +#if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_NO_GET_CONTEXT) # undef aTHX # undef aTHX_ # undef _aTHX -# if defined(PERL_NO_GET_CONTEXT) -# define aTHX my_perl -# else -# define aTHX PERL_GET_INTERP -# endif /* PERL_NO_GET_CONTEXT */ -# define aTHX_ aTHX, -# define _aTHX ,aTHX +# define aTHX PERL_GET_THX +# define aTHX_ aTHX, +# define _aTHX ,aTHX +#endif + +#if defined(PERL_CAPI) # ifndef NO_XSLOCKS # undef closedir # undef opendir |