summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authorbch <brad.harder@gmail.com>2015-02-08 05:04:33 (GMT)
committerbch <brad.harder@gmail.com>2015-02-08 05:04:33 (GMT)
commit884bdbb9401fca546ba8dd20b4d713fd8897840d (patch)
tree0930698a8ac1bba17ef96f99d0cebaa2a4d61b8b /generic/tclIO.c
parent0184284dd608ec5b462e9cf9fb64df29814b3695 (diff)
downloadtcl-884bdbb9401fca546ba8dd20b4d713fd8897840d.zip
tcl-884bdbb9401fca546ba8dd20b4d713fd8897840d.tar.gz
tcl-884bdbb9401fca546ba8dd20b4d713fd8897840d.tar.bz2
inputProc and outputProc tests run conditionally on TCL_READABLE, TCL_WRITABLE mask
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 702e2a0..0ba864a 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -1551,10 +1551,10 @@ Tcl_CreateChannel(
if (NULL == typePtr->closeProc)
Tcl_Panic("Required closeProc is unset.");
- if (NULL == typePtr->inputProc)
+ if ((TCL_READABLE & mask) && (NULL == typePtr->inputProc))
Tcl_Panic("Required inputProc is unset.");
- if (NULL == typePtr->outputProc)
+ if ((TCL_WRITABLE & mask) && (NULL == typePtr->outputProc))
Tcl_Panic("Required outputProc is unset.");
if (NULL == typePtr->watchProc)