diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-05-22 16:05:24 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-05-22 16:05:24 (GMT) |
| commit | f1be70ab35fd454a2234ac10ed10c88b9c884b13 (patch) | |
| tree | d09f1892233410f221249eaa90298f7a5598cedc /generic/tclIORChan.c | |
| parent | e6e220f14d2d0b998a5e2e1977116a701371a88f (diff) | |
| download | tcl-f1be70ab35fd454a2234ac10ed10c88b9c884b13.zip tcl-f1be70ab35fd454a2234ac10ed10c88b9c884b13.tar.gz tcl-f1be70ab35fd454a2234ac10ed10c88b9c884b13.tar.bz2 | |
3528601 Fix broken --disable-threads build.
Diffstat (limited to 'generic/tclIORChan.c')
| -rw-r--r-- | generic/tclIORChan.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index 2d31da3..938def2 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -934,8 +934,11 @@ TclChanPostEventObjCmd( * We have the channel and the events to post. */ +#ifdef TCL_THREADS if (rcPtr->owner == rcPtr->thread) { +#endif Tcl_NotifyChannel (chan, events); +#ifdef TCL_THREADS } else { ReflectEvent* ev = ckalloc (sizeof (ReflectEvent)); ev->header.proc = ReflectEventRun; @@ -965,6 +968,7 @@ TclChanPostEventObjCmd( Tcl_ThreadQueueEvent (rcPtr->owner, (Tcl_Event*) ev, TCL_QUEUE_TAIL); Tcl_ThreadAlert (rcPtr->owner); } +#endif /* * Squash interp results left by the event script. |