diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-03 22:32:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-03 22:32:18 (GMT) |
| commit | 2a491f190de48515f16da9159bdeaf78278470d8 (patch) | |
| tree | 563d97e84302ea4d48053e330e0af63a423ce21c /generic/tclThreadTest.c | |
| parent | 2ae930bbe476ece1b6b363a888b2e47388620f92 (diff) | |
| parent | 2eb04855330919d1164b6f03a187b601478fad27 (diff) | |
| download | tcl-2a491f190de48515f16da9159bdeaf78278470d8.zip tcl-2a491f190de48515f16da9159bdeaf78278470d8.tar.gz tcl-2a491f190de48515f16da9159bdeaf78278470d8.tar.bz2 | |
Merge 8.7
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 900af4a..ce9c33a 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -877,8 +877,7 @@ ThreadSend( threadEventPtr->event.proc = ThreadEventProc; Tcl_ThreadQueueEvent(threadId, (Tcl_Event *) threadEventPtr, - TCL_QUEUE_TAIL); - Tcl_ThreadAlert(threadId); + TCL_QUEUE_TAIL|TCL_QUEUE_ALERT_IF_EMPTY); if (!wait) { Tcl_MutexUnlock(&threadMutex); |