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 | 54aff467496406992ab0d6d70a050249feb5efbc (patch) | |
| tree | 9d705efcb4450c1c8bd376e098de63972ea1fade /XSUB.h | |
| parent | a7c6d24429ab2b6db54575a3bdc62c7ed9f881cf (diff) | |
| download | perl-54aff467496406992ab0d6d70a050249feb5efbc.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 |