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/tclIORChan.c | |
| parent | 16105b98334db5910809fd5ead357bafe92bc6fe (diff) | |
| download | tcl-82d5e7d59540bfd95e3258032a92d4607752d9cd.zip tcl-82d5e7d59540bfd95e3258032a92d4607752d9cd.tar.gz tcl-82d5e7d59540bfd95e3258032a92d4607752d9cd.tar.bz2 | |
Proposed TIP #609 implementation
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 cc45873..b473417 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -994,8 +994,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_ALERT_IF_EMPTY); } #endif @@ -2996,8 +2996,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_ALERT_IF_EMPTY); /* * (*) Block until the handler thread has either processed the transfer or |