summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-10-17 15:20:34 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-10-17 15:20:34 (GMT)
commit65acf25995e78db3c34b4cfd4998caf4edd4a5d8 (patch)
tree51ac3aae97c75ade5379471958a041a26e43d5a8 /generic
parent61bb4f72ffe5a564476a0d33e12ddc2fa4eea9c1 (diff)
downloadtcl-65acf25995e78db3c34b4cfd4998caf4edd4a5d8.zip
tcl-65acf25995e78db3c34b4cfd4998caf4edd4a5d8.tar.gz
tcl-65acf25995e78db3c34b4cfd4998caf4edd4a5d8.tar.bz2
[10dc6daa37] [gets] on a non-blocking channel must take care so that
1) At least one call to the channel driver input proc gets made. Failure to do this locks up the channel - catastrophic FAIL. 2) After any driver call reports BLOCKED, don't call again. This is less serious, but FAILs to respect the non-blocking setting. Code corrections and tests included, to restore 8.5.15 compat.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIO.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index d1f22c1..e786946 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -4042,6 +4042,7 @@ Tcl_GetsObj(
eof = NULL;
inEofChar = statePtr->inEofChar;
+ ResetFlag(statePtr, CHANNEL_BLOCKED);
while (1) {
if (dst >= dstEnd) {
if (FilterInputBytes(chanPtr, &gs) != 0) {
@@ -4211,6 +4212,10 @@ Tcl_GetsObj(
}
goto gotEOL;
}
+ if (GotFlag(statePtr, CHANNEL_BLOCKED|CHANNEL_NONBLOCKING)
+ == (CHANNEL_BLOCKED|CHANNEL_NONBLOCKING)) {
+ goto restore;
+ }
dst = dstEnd;
}
@@ -4386,6 +4391,7 @@ TclGetsObjBinary(
/* Only handle TCL_TRANSLATE_LF and TCL_TRANSLATE_CR */
eolChar = (statePtr->inputTranslation == TCL_TRANSLATE_LF) ? '\n' : '\r';
+ ResetFlag(statePtr, CHANNEL_BLOCKED);
while (1) {
/*
* Subtract the number of bytes that were removed from channel