#endif
#ifndef I_MULTIPLICITY
-# if defined(MULTIPLICITY) || defined(PERL_IMPLICIT_CONTEXT)
+# if defined(MULTIPLICITY)
# define I_MULTIPLICITY 1
# else
# define I_MULTIPLICITY 0
# endif
#endif
+#if I_MULTIPLICITY
+# ifndef PERL_IMPLICIT_CONTEXT
+# error MULTIPLICITY builds must set PERL_IMPLICIT_CONTEXT
+# endif
+#endif
#if I_MULTIPLICITY && !defined(tTHX)
# define tTHX PerlInterpreter*
#endif
return I_HINT_CODE(h);
}
-static U32 indirect_hash = 0;
+static VOL U32 indirect_hash = 0;
static SV *indirect_hint(pTHX) {
#define indirect_hint() indirect_hint(aTHX)
/* --- Global setup/teardown ------------------------------------------------ */
-static U32 indirect_initialized = 0;
+static VOL U32 indirect_initialized = 0;
static void indirect_global_teardown(pTHX_ void *root) {
if (!indirect_initialized)