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/tclIORTrans.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/tclIORTrans.c')
| -rw-r--r-- | generic/tclIORTrans.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c index 5c0f47e..ebaa840 100644 --- a/generic/tclIORTrans.c +++ b/generic/tclIORTrans.c @@ -2414,8 +2414,8 @@ ForwardOpToOwnerThread( * 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 other thread has either processed the transfer or |