projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7fcb6f6
)
Remove WITH_THR() and WITH_THX(), which are not used.
author
Nicholas Clark
<nick@ccl4.org>
Tue, 30 Aug 2011 10:48:43 +0000
(12:48 +0200)
committer
Nicholas Clark
<nick@ccl4.org>
Sun, 4 Sep 2011 10:38:58 +0000
(12:38 +0200)
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
.
malloc.c
patch
|
blob
|
history
perl.h
patch
|
blob
|
history
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