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.

diff --git a/malloc.c b/malloc.c
index 32fc2e5..3c2923a 100644 (file)
--- 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 30bee51..e7ab45f 100644 (file)
--- 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