-# define XS_VERSION_BOOTCHECK \
- STMT_START { \
- SV *tmpsv; STRLEN n_a; \
- char *vn = Nullch, *module = SvPV(ST(0),n_a); \
- if (items >= 2) /* version supplied as bootstrap arg */ \
- tmpsv = ST(1); \
- else { \
- /* XXX GV_ADDWARN */ \
- tmpsv = get_sv(Perl_form(aTHX_ "%s::%s", module, \
- vn = "XS_VERSION"), FALSE); \
- if (!tmpsv || !SvOK(tmpsv)) \
- tmpsv = get_sv(Perl_form(aTHX_ "%s::%s", module, \
- vn = "VERSION"), FALSE); \
- } \
- if (tmpsv && (!SvOK(tmpsv) || strNE(XS_VERSION, SvPV(tmpsv, n_a)))) \
- Perl_croak(aTHX_ "%s object version %s does not match %s%s%s%s %"SVf,\
- module, XS_VERSION, \
- vn ? "$" : "", vn ? module : "", vn ? "::" : "", \
- vn ? vn : "bootstrap parameter", tmpsv); \
- } STMT_END
+# define XS_VERSION_BOOTCHECK \
+ Perl_xs_version_bootcheck(aTHX_ items, ax, STR_WITH_LEN(XS_VERSION))