From 8725bdd35e6d66a97627786c0972a9cc5c502828 Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 17 Oct 2014 20:37:45 +0000 Subject: Revert the Tcl_GetsObj portion of the last commit. Although it fixed the bug demonstrated by the test io-33.12, it caused new breakage in [gets] not yet understood. Test io-33.12 left in place to prompt further work. --- generic/tclIO.c | 5 ----- 1 file changed, 5 deletions(-) diff --git a/generic/tclIO.c b/generic/tclIO.c index e786946..e05249e 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -4042,7 +4042,6 @@ Tcl_GetsObj( eof = NULL; inEofChar = statePtr->inEofChar; - ResetFlag(statePtr, CHANNEL_BLOCKED); while (1) { if (dst >= dstEnd) { if (FilterInputBytes(chanPtr, &gs) != 0) { @@ -4212,10 +4211,6 @@ Tcl_GetsObj( } goto gotEOL; } - if (GotFlag(statePtr, CHANNEL_BLOCKED|CHANNEL_NONBLOCKING) - == (CHANNEL_BLOCKED|CHANNEL_NONBLOCKING)) { - goto restore; - } dst = dstEnd; } -- cgit v0.12