summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2011-08-30 12:48:43 +0200
committerNicholas Clark <nick@ccl4.org>2011-09-04 12:38:58 +0200
commite2d73a187ae89e218e7afbba96e00e1370ab2240 (patch)
tree855d33c640df3e048f3b5fb2fc3c5ec667fac261
parent7fcb6f686bc21e949bd8aed25e534a1b1711da92 (diff)
downloadperl-e2d73a187ae89e218e7afbba96e00e1370ab2240.tar.gz
Remove WITH_THR() and WITH_THX(), which are not used.
grep.cpan.me and Google's codesearch find no use of WITH_THR or WITH_THX. WITH_THX() was added in June 1999 in cea2e8a9dd23747f, and the last user eliminated with 0b250b9ef0d5134f in August 1999. WITH_THX() was used again for DEBUG_CX() in 1c98cc53150c4860, and eliminated in d9f81b50694a810f. WITH_THR() was added in 1997 in 0f15f207c55ce70f. Use everywhere except DEBUG_SCOPE() was eliminated in 2006 in 11206fddaf7ef068. WITH_THR() was removed from DEBUG_SCOPE() in d9f81b50694a810f.
-rw-r--r--malloc.c1
-rw-r--r--perl.h3
2 files changed, 0 insertions, 4 deletions
diff --git a/malloc.c b/malloc.c
index 32fc2e5052..3c2923aa0c 100644
--- a/malloc.c
+++ b/malloc.c
@@ -412,7 +412,6 @@
# else
# define dTHX extern int Perl___notused
# endif
-# define WITH_THX(s) s
# endif
# ifndef PERL_GET_INTERP
# define PERL_GET_INTERP PL_curinterp
diff --git a/perl.h b/perl.h
index 30bee51558..e7ab45f9e0 100644
--- a/perl.h
+++ b/perl.h
@@ -491,9 +491,6 @@ register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
# endif
#endif
-#define WITH_THX(s) STMT_START { dTHX; s; } STMT_END
-#define WITH_THR(s) WITH_THX(s)
-
#ifndef BYTEORDER /* Should never happen -- byteorder is in config.h */
# define BYTEORDER 0x1234
#endif