summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-05-22 16:05:24 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-05-22 16:05:24 (GMT)
commitf1be70ab35fd454a2234ac10ed10c88b9c884b13 (patch)
treed09f1892233410f221249eaa90298f7a5598cedc /generic
parente6e220f14d2d0b998a5e2e1977116a701371a88f (diff)
downloadtcl-f1be70ab35fd454a2234ac10ed10c88b9c884b13.zip
tcl-f1be70ab35fd454a2234ac10ed10c88b9c884b13.tar.gz
tcl-f1be70ab35fd454a2234ac10ed10c88b9c884b13.tar.bz2
3528601 Fix broken --disable-threads build.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIORChan.c4
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.