Attachment "iorchan.patch" to
ticket [3528601fff]
added by
andreas_kupries
2012-05-22 22:45:19.
--- /net/nas/data/andreask/Dev/CoreSources/src/tcl-8.6/generic/tclIORChan.c~0 2012-05-22 08:45:02.000000000 -0700
+++ /net/nas/data/andreask/Dev/CoreSources/src/tcl-8.6/generic/tclIORChan.c 2012-05-22 08:44:10.000000000 -0700
@@ -934,8 +934,11 @@
* 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 @@
Tcl_ThreadQueueEvent (rcPtr->owner, (Tcl_Event*) ev, TCL_QUEUE_TAIL);
Tcl_ThreadAlert (rcPtr->owner);
}
+#endif
/*
* Squash interp results left by the event script.
Index: generic/tclIORChan.c
==================================================================