summaryrefslogtreecommitdiffstats
path: root/generic/tclTest.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2018-05-22 20:53:24 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2018-05-22 20:53:24 (GMT)
commitce025f259b91e61857e70c6690d5db631b5dc747 (patch)
treef175e43fb180d0b756186a839cbeee766ec8e27c /generic/tclTest.c
parentf6af18a9476f566a34901b828e33f7141266174c (diff)
downloadtcl-ce025f259b91e61857e70c6690d5db631b5dc747.zip
tcl-ce025f259b91e61857e70c6690d5db631b5dc747.tar.gz
tcl-ce025f259b91e61857e70c6690d5db631b5dc747.tar.bz2
Simplify usage of TCL_THREAD, along the lines of [eeddb0693a950be980a66de3811630a00c7bab54|eeddb0693a]. Suggested by DKF
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