diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-31 20:58:38 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2001-08-31 20:58:38 +0000 |
| commit | acfe0abcedaf592fb4b9cb69ce3468308ae99d91 (patch) | |
| tree | a2ca08c77d2b63d1777d0b228ff53362895c1624 /XSUB.h | |
| parent | 25f58aea15b072f74afcee1b9074d33e8e7348b5 (diff) | |
| download | perl-acfe0abcedaf592fb4b9cb69ce3468308ae99d91.tar.gz | |
remove deprecated PERL_OBJECT cruft, it has long since stopped
working in 5.7.x
p4raw-id: //depot/perl@11803
Diffstat (limited to 'XSUB.h')
| -rw-r--r-- | XSUB.h | 11 |
1 files changed, 5 insertions, 6 deletions
@@ -61,9 +61,9 @@ handled automatically by C<xsubpp>. #define ST(off) PL_stack_base[ax + (off)] #if defined(__CYGWIN__) && defined(USE_DYNAMIC_LOADING) -# define XS(name) __declspec(dllexport) void name(pTHXo_ CV* cv) +# define XS(name) __declspec(dllexport) void name(pTHX_ CV* cv) #else -# define XS(name) void name(pTHXo_ CV* cv) +# define XS(name) void name(pTHX_ CV* cv) #endif #define dAX I32 ax = MARK - PL_stack_base + 1 @@ -92,7 +92,7 @@ handled automatically by C<xsubpp>. #define dXSFUNCTION(ret) XSINTERFACE_CVT(ret,XSFUNCTION) #define XSINTERFACE_FUNC(ret,cv,f) ((XSINTERFACE_CVT(ret,))(f)) #define XSINTERFACE_FUNC_SET(cv,f) \ - CvXSUBANY(cv).any_dptr = (void (*) (pTHXo_ void*))(f) + CvXSUBANY(cv).any_dptr = (void (*) (pTHX_ void*))(f) /* Simple macros to put new mortal values onto the stack. */ /* Typically used to return values from XS functions. */ @@ -247,7 +247,6 @@ C<xsubpp>. See L<perlxs/"The VERSIONCHECK: Keyword">. #endif #include "perlapi.h" -#include "objXSUB.h" #if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_NO_GET_CONTEXT) && !defined(PERL_CORE) # undef aTHX @@ -256,7 +255,7 @@ C<xsubpp>. See L<perlxs/"The VERSIONCHECK: Keyword">. # define aTHX_ aTHX, #endif -#if (defined(PERL_CAPI) || defined(PERL_IMPLICIT_SYS)) && !defined(PERL_CORE) +#if defined(PERL_IMPLICIT_SYS) && !defined(PERL_CORE) # ifndef NO_XSLOCKS # if defined (NETWARE) && defined (USE_STDIO) # define times PerlProc_times @@ -450,6 +449,6 @@ C<xsubpp>. See L<perlxs/"The VERSIONCHECK: Keyword">. # define socketpair PerlSock_socketpair # endif /* NETWARE && USE_STDIO */ # endif /* NO_XSLOCKS */ -#endif /* PERL_CAPI */ +#endif /* PERL_IMPLICIT_SYS && !PERL_CORE */ #endif /* _INC_PERL_XSUB_H */ /* include guard */ |