Skip to content

Commit 8a8b231

Browse files
committed
Tcl.xs: use STRINGIFY()/JOIN() macros from Perl
tcl.h normally does not define these macros in Tcl 9.0 (and Tcl 8.7 when TCL_NO_DEPRECATED is defined), and has allowed these macros to already be defined since Tcl 8.4b2. Perl’s definitions for these macros (for C compilers) are equivalent to those in tcl.h.
1 parent a62cc3e commit 8a8b231

File tree

1 file changed

+0
-6
lines changed

1 file changed

+0
-6
lines changed

Tcl.xs

Lines changed: 0 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -18,12 +18,6 @@
1818
#define DEBUG_REFCOUNTS 0
1919
#endif
2020

21-
/*
22-
* Both Perl and Tcl use these macros
23-
*/
24-
#undef STRINGIFY
25-
#undef JOIN
26-
2721
#include <tcl.h>
2822

2923
#ifdef USE_TCL_STUBS

0 commit comments

Comments
 (0)