diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-08-15 20:35:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-08-15 20:35:59 (GMT) |
| commit | 82d5e7d59540bfd95e3258032a92d4607752d9cd (patch) | |
| tree | ae114ad5fe1486943aab75c49b19f470bcb14fc5 /generic/tclThreadTest.c | |
| parent | 16105b98334db5910809fd5ead357bafe92bc6fe (diff) | |
| download | tcl-82d5e7d59540bfd95e3258032a92d4607752d9cd.zip tcl-82d5e7d59540bfd95e3258032a92d4607752d9cd.tar.gz tcl-82d5e7d59540bfd95e3258032a92d4607752d9cd.tar.bz2 | |
Proposed TIP #609 implementation
Diffstat (limited to 'generic/tclThreadTest.c')
| -rw-r--r-- | generic/tclThreadTest.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index 9f08d83..887f645 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -878,8 +878,7 @@ ThreadSend( threadEventPtr->event.proc = ThreadEventProc; Tcl_ThreadQueueEvent(threadId, (Tcl_Event *) threadEventPtr, - TCL_QUEUE_TAIL); - Tcl_ThreadAlert(threadId); + TCL_QUEUE_TAIL_ALERT_IF_EMPTY); if (!wait) { Tcl_MutexUnlock(&threadMutex); |