From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 17 Jun 2010 09:46:37 +0000 (+0100)
Subject: PERL_IMPLICIT_SYS also needs thread context for safesysfree()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=79a921544258c0f3466f44738c4f0d24399782dd;p=p5sagit%2Fp5-mst-13.2.git

PERL_IMPLICIT_SYS also needs thread context for safesysfree()

PERL_TRACK_MEMPOOL needs it to work without -DDEBUGGING.

Fixes for 0cb20dae370512c6 not addressed by 1f4d2d4e2e4bb7bb.
---

diff --git a/util.c b/util.c
index 237d121..666f99f 100644
--- a/util.c
+++ b/util.c
@@ -70,7 +70,7 @@ S_write_no_mem(pTHX)
     NORETURN_FUNCTION_END;
 }
 
-#if defined (DEBUGGING) || defined(PERL_IMPLICIT_SYS)
+#if defined (DEBUGGING) || defined(PERL_IMPLICIT_SYS) || defined (PERL_TRACK_MEMPOOL)
 #  define ALWAYS_NEED_THX
 #endif
 
@@ -244,7 +244,7 @@ Perl_safesysrealloc(Malloc_t where,MEM_SIZE size)
 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;