summaryrefslogtreecommitdiffstats
path: root/generic/tclIO.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-07-24 15:02:09 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-07-24 15:02:09 (GMT)
commitf3e831dfbc16475f7b102489a0beb702801519a4 (patch)
tree33651e918903430d735b9fc1c5404a3985cae690 /generic/tclIO.c
parentf3fc4920e44aac717ca60bbc0619d7a22a791854 (diff)
downloadtcl-f3e831dfbc16475f7b102489a0beb702801519a4.zip
tcl-f3e831dfbc16475f7b102489a0beb702801519a4.tar.gz
tcl-f3e831dfbc16475f7b102489a0beb702801519a4.tar.bz2
Make sure MoveBytes records read error messages.
Diffstat (limited to 'generic/tclIO.c')
-rw-r--r--generic/tclIO.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 6718788..017494e 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -8931,9 +8931,13 @@ MoveBytes(
int inBytes = 0;
if (bufPtr == NULL || BytesLeft(bufPtr) == 0) {
- /* Nothing in the input queue; Get more input. */
+ /* Nothing in the input queue; Get more input. */
if (0 != GetInput(inStatePtr->topChanPtr)) {
+ Tcl_SetObjResult(csPtr->interp, Tcl_ObjPrintf(
+ "error reading \"%s\": %s",
+ Tcl_GetChannelName((Tcl_Channel)csPtr->readPtr),
+ Tcl_PosixError(csPtr->interp)));
code = TCL_ERROR;
break;
}