Attachment "seek.diff" to
ticket [2176669fff]
added by
ferrieux
2008-10-21 06:28:49.
Index: generic/tclIO.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIO.c,v
retrieving revision 1.145
diff -u -r1.145 tclIO.c
--- generic/tclIO.c 16 Oct 2008 22:34:19 -0000 1.145
+++ generic/tclIO.c 20 Oct 2008 22:31:39 -0000
@@ -6310,18 +6310,12 @@
}
/*
- * Compute how much input and output is buffered. If both input and output
- * is buffered, cannot compute the current position.
+ * Compute how much input and output is buffered.
*/
inputBuffered = Tcl_InputBuffered(chan);
outputBuffered = Tcl_OutputBuffered(chan);
- if ((inputBuffered != 0) && (outputBuffered != 0)) {
- Tcl_SetErrno(EFAULT);
- return Tcl_LongAsWide(-1);
- }
-
/*
* If we are seeking relative to the current position, compute the
* corrected offset taking into account the amount of unread input.