From f1be70ab35fd454a2234ac10ed10c88b9c884b13 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 22 May 2012 16:05:24 +0000
Subject: 3528601 Fix broken --disable-threads build.

---
 generic/tclIORChan.c | 4 ++++
 1 file changed, 4 insertions(+)

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.
-- 
cgit v0.12