#define ST(off) PL_stack_base[ax + (off)]
-#ifdef CAN_PROTOTYPE
-# ifdef PERL_OBJECT
-# define XS(name) void name(CV* cv, CPerlObj* pPerl)
+#ifdef PERL_OBJECT
+# define XS(name) void name(CV* cv, CPerlObj* pPerl)
+#else
+# if defined(CYGWIN32) && defined(USE_DYNAMIC_LOADING)
+# define XS(name) __declspec(dllexport) void name(pTHX_ CV* cv)
# else
-# if defined(CYGWIN32) && defined(USE_DYNAMIC_LOADING)
-# define XS(name) __declspec(dllexport) void name(CV* cv)
- extern struct _reent *_impure_ptr;
- void impure_setup(struct _reent *_impure_ptrMain);
-# else
-# define XS(name) void name(CV* cv)
-# endif
+# define XS(name) void name(pTHX_ CV* cv)
# endif
-#else
-# define XS(name) void name(cv) CV* cv;
#endif
#define dXSARGS \
# define XSINTERFACE_CVT(ret,name) ret (*name)()
#endif
#define dXSFUNCTION(ret) XSINTERFACE_CVT(ret,XSFUNCTION)
-#define XSINTERFACE_FUNC(ret,cv,f) ((XSINTERFACE_CVT(ret,))(f))
+#define XSINTERFACE_FUNC(ret,cv,f) ((XSINTERFACE_CVT(ret,cv))(f))
#define XSINTERFACE_FUNC_SET(cv,f) \
- CvXSUBANY(cv).any_dptr = (void (*) _((void*)))(f)
+ CvXSUBANY(cv).any_dptr = (void (*) (pTHX_ void*))(f)
#define XSRETURN(off) \
STMT_START { \
tmpsv = ST(1); \
else { \
/* XXX GV_ADDWARN */ \
- tmpsv = perl_get_sv(form("%s::%s", module, \
- vn = "XS_VERSION"), FALSE); \
+ tmpsv = get_sv(Perl_form(aTHX_ "%s::%s", module, \
+ vn = "XS_VERSION"), FALSE); \
if (!tmpsv || !SvOK(tmpsv)) \
- tmpsv = perl_get_sv(form("%s::%s", module, \
- vn = "VERSION"), FALSE); \
+ tmpsv = get_sv(Perl_form(aTHX_ "%s::%s", module, \
+ vn = "VERSION"), FALSE); \
} \
if (tmpsv && (!SvOK(tmpsv) || strNE(XS_VERSION, SvPV(tmpsv, n_a)))) \
- croak("%s object version %s does not match %s%s%s%s %_", \
+ Perl_croak(aTHX_ "%s object version %s does not match %s%s%s%s %_", \
module, XS_VERSION, \
vn ? "$" : "", vn ? module : "", vn ? "::" : "", \
vn ? vn : "bootstrap parameter", tmpsv); \