summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-06-16 20:47:22 +0100
committerNicholas Clark <nick@ccl4.org>2010-06-16 20:47:22 +0100
commitd9f81b50694a810f1b920a55481bdf183181048c (patch)
tree1dd18a9b6aabdd12ed792f96607cf6ca2881a0d7
parent1f4d2d4e2e4bb7bbbd526ea0b9d5592742433f9a (diff)
downloadperl-d9f81b50694a810f1b920a55481bdf183181048c.tar.gz
Stop using WITH_THR and WITH_THX, as they were never necessary here.
-rw-r--r--cop.h4
-rw-r--r--perl.h4
2 files changed, 4 insertions, 4 deletions
diff --git a/cop.h b/cop.h
index 98478ae7de..e5370c4915 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 673a19ef15..b551f4bca4 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__));