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/tclIORChan.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/tclIORChan.c')
| -rw-r--r-- | generic/tclIORChan.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index 7dc7dd7..67abca6 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -984,8 +984,8 @@ TclChanPostEventObjCmd( * XXX Actually, in that case the channel should be dead also ! */ - Tcl_ThreadQueueEvent(rcPtr->owner, (Tcl_Event *) ev, TCL_QUEUE_TAIL); - Tcl_ThreadAlert(rcPtr->owner); + Tcl_ThreadQueueEvent(rcPtr->owner, (Tcl_Event *) ev, + TCL_QUEUE_TAIL|TCL_QUEUE_ALERT_IF_EMPTY); } #endif @@ -2972,8 +2972,8 @@ ForwardOpToHandlerThread( * Queue the event and poke the other thread's notifier. */ - Tcl_ThreadQueueEvent(dst, (Tcl_Event *) evPtr, TCL_QUEUE_TAIL); - Tcl_ThreadAlert(dst); + Tcl_ThreadQueueEvent(dst, (Tcl_Event *) evPtr, + TCL_QUEUE_TAIL|TCL_QUEUE_ALERT_IF_EMPTY); /* * (*) Block until the handler thread has either processed the transfer or |