NORETURN_FUNCTION_END;
}
+#if defined (DEBUGGING) || defined(PERL_IMPLICIT_SYS) || defined (PERL_TRACK_MEMPOOL)
+# define ALWAYS_NEED_THX
+#endif
+
/* paranoid version of system's malloc() */
Malloc_t
Perl_safesysmalloc(MEM_SIZE size)
{
-#ifdef DEBUGGING
+#ifdef ALWAYS_NEED_THX
dTHX;
#endif
Malloc_t ptr;
return ptr;
}
else {
-#ifndef DEBUGGING
+#ifndef ALWAYS_NEED_THX
dTHX;
#endif
if (PL_nomemok)
Malloc_t
Perl_safesysrealloc(Malloc_t where,MEM_SIZE size)
{
-#ifdef DEBUGGING
+#ifdef ALWAYS_NEED_THX
dTHX;
#endif
Malloc_t ptr;
return ptr;
}
else {
-#ifndef DEBUGGING
+#ifndef ALWAYS_NEED_THX
dTHX;
#endif
if (PL_nomemok)
Free_t
Perl_safesysfree(Malloc_t where)
{
-#if defined(DEBUGGING) && (defined(PERL_IMPLICIT_SYS) || defined(PERL_TRACK_MEMPOOL))
+#ifdef ALWAYS_NEED_THX
dTHX;
#else
dVAR;
Malloc_t
Perl_safesyscalloc(MEM_SIZE count, MEM_SIZE size)
{
-#ifdef DEBUGGING
+#ifdef ALWAYS_NEED_THX
dTHX;
#endif
Malloc_t ptr;
return ptr;
}
else {
-#ifndef DEBUGGING
+#ifndef ALWAYS_NEED_THX
dTHX;
#endif
if (PL_nomemok)