diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-08-30 12:48:43 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-09-04 12:38:58 +0200 |
commit | e2d73a187ae89e218e7afbba96e00e1370ab2240 (patch) | |
tree | 855d33c640df3e048f3b5fb2fc3c5ec667fac261 | |
parent | 7fcb6f686bc21e949bd8aed25e534a1b1711da92 (diff) | |
download | perl-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.c | 1 | ||||
-rw-r--r-- | perl.h | 3 |
2 files changed, 0 insertions, 4 deletions
@@ -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 @@ -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 |