From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 16 Jun 2010 19:47:22 +0000 (+0100)
Subject: Stop using WITH_THR and WITH_THX, as they were never necessary here.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d9f81b50694a810f1b920a55481bdf183181048c;p=p5sagit%2Fp5-mst-13.2.git

Stop using WITH_THR and WITH_THX, as they were never necessary here.
---

diff --git a/cop.h b/cop.h
index 98478ae..e5370c4 100644
--- a/cop.h
+++ b/cop.h
@@ -569,14 +569,14 @@ struct block {
 #define blk_givwhen	cx_u.cx_blk.blk_u.blku_givwhen
 
 #define DEBUG_CX(action)						\
-    DEBUG_l(WITH_THX(							\
+    DEBUG_l(								\
 	Perl_deb(aTHX_ "CX %ld %s %s (scope %ld,%ld) at %s:%d\n",	\
 		    (long)cxstack_ix,					\
 		    action,						\
 		    PL_block_type[CxTYPE(&cxstack[cxstack_ix])],	\
 		    (long)PL_scopestack_ix,				\
 		    (long)(cxstack[cxstack_ix].blk_oldscopesp),		\
-		    __FILE__, __LINE__)));
+		    __FILE__, __LINE__));
 
 /* Enter a block. */
 #define PUSHBLOCK(cx,t,sp) CXINC, cx = &cxstack[cxstack_ix],		\
diff --git a/perl.h b/perl.h
index 673a19e..b551f4b 100644
--- a/perl.h
+++ b/perl.h
@@ -3811,10 +3811,10 @@ Gid_t getegid (void);
 
 
 #define DEBUG_SCOPE(where) \
-    DEBUG_l(WITH_THR( \
+    DEBUG_l( \
     Perl_deb(aTHX_ "%s scope %ld (savestack=%ld) at %s:%d\n",	\
 		    where, (long)PL_scopestack_ix, (long)PL_savestack_ix, \
-		    __FILE__, __LINE__)));
+		    __FILE__, __LINE__));