summaryrefslogtreecommitdiffstats
path: root/generic/tclTest.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2018-06-02 14:19:33 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2018-06-02 14:19:33 (GMT)
commit63be474164fb2a29b17269cc7bc821d23ed6805e (patch)
tree7f717a781c3f045b19d2c31fafbc7ce30e319c39 /generic/tclTest.c
parent6ab540f5ff1eca1d921e511eed5caaa192f4e547 (diff)
parent5e3ca11761b27133a62ee5cd5e340956c640ca8d (diff)
downloadtcl-63be474164fb2a29b17269cc7bc821d23ed6805e.zip
tcl-63be474164fb2a29b17269cc7bc821d23ed6805e.tar.gz
tcl-63be474164fb2a29b17269cc7bc821d23ed6805e.tar.bz2
merge core-8-branch
Diffstat (limited to 'generic/tclTest.c')
-rw-r--r--generic/tclTest.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c
index b4d249f..ac01ecf 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -161,7 +161,7 @@ static TestChannel *firstDetached;
static int AsyncHandlerProc(ClientData clientData,
Tcl_Interp *interp, int code);
-#if !defined(TCL_THREADS) || TCL_THREADS
+#if TCL_THREADS
static Tcl_ThreadCreateType AsyncThreadProc(ClientData);
#endif
static void CleanupTestSetassocdataTests(
@@ -722,7 +722,7 @@ Tcltest_Init(
if (Procbodytest_Init(interp) != TCL_OK) {
return TCL_ERROR;
}
-#if !defined(TCL_THREADS) || TCL_THREADS
+#if TCL_THREADS
if (TclThread_Init(interp) != TCL_OK) {
return TCL_ERROR;
}
@@ -902,7 +902,7 @@ TestasyncCmd(
Tcl_SetObjResult(interp, Tcl_NewStringObj(argv[3], -1));
Tcl_MutexUnlock(&asyncTestMutex);
return code;
-#if !defined(TCL_THREADS) || TCL_THREADS
+#if TCL_THREADS
} else if (strcmp(argv[1], "marklater") == 0) {
if (argc != 3) {
goto wrongNumArgs;
@@ -999,7 +999,7 @@ AsyncHandlerProc(
*----------------------------------------------------------------------
*/
-#if !defined(TCL_THREADS) || TCL_THREADS
+#if TCL_THREADS
static Tcl_ThreadCreateType
AsyncThreadProc(
ClientData clientData) /* Parameter is the id of a