# if XSH_HAS_PERL(5, 8, 9) || XSH_HAS_PERL(5, 9, 3)
# define XSH_ASSERT(C) assert(C)
# else
-# define XSH_ASSERT(C) PERL_DEB( \
+# ifdef PERL_DEB
+# define XSH_DEB(X) PERL_DEB(X)
+# else
+# define XSH_DEB(X) (X)
+# endif
+# define XSH_ASSERT(C) XSH_DEB( \
((C) ? ((void) 0) \
: (Perl_croak_nocontext("Assertion %s failed: file \"" __FILE__ \
"\", line %d", STRINGIFY(C), __LINE__), \
# define XSH_ASSERT(C)
#endif
-#undef VOID2
-#ifdef __cplusplus
-# define VOID2(T, P) static_cast<T>(P)
-#else
-# define VOID2(T, P) (P)
-#endif
-
#ifndef STMT_START
# define STMT_START do
#endif
#define xsh_dup(S, P) sv_dup((S), (P))
#define xsh_dup_inc(S, P) SvREFCNT_inc(xsh_dup((S), (P)))
-/* Context for PerlMemShared_*() functions */
-#ifdef PERL_IMPLICIT_SYS
-# define pPMS pTHX
-# define pPMS_ pTHX_
-# define aPMS aTHX
-# define aPMS_ aTHX_
-#else
-# define pPMS void
-# define pPMS_
-# define aPMS
-# define aPMS_
-#endif
-
#ifdef USE_ITHREADS
# define XSH_LOCK(M) MUTEX_LOCK(M)
# define XSH_UNLOCK(M) MUTEX_UNLOCK(M)