diff options
| author | andreas_kupries <akupries@shaw.ca> | 2009-12-09 23:26:53 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2009-12-09 23:26:53 (GMT) |
| commit | 15f182d337ae87fc0027e61456f7a79bce13251a (patch) | |
| tree | 4e132406bc34b271ea4748f175e7e056d43ba0a8 /generic/tclIO.c | |
| parent | b17b07981f00b8dfdb3894baeb9a5f6e67cf2010 (diff) | |
| download | tcl-15f182d337ae87fc0027e61456f7a79bce13251a.zip tcl-15f182d337ae87fc0027e61456f7a79bce13251a.tar.gz tcl-15f182d337ae87fc0027e61456f7a79bce13251a.tar.bz2 | |
Killed c99/c++ comments left in by the IO patch.
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 4e3bd4b..3f7724b 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIO.c,v 1.169 2009/12/09 23:03:04 andreas_kupries Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.170 2009/12/09 23:26:53 andreas_kupries Exp $ */ #include "tclInt.h" @@ -6959,11 +6959,6 @@ Tcl_Tell( inputBuffered = Tcl_InputBuffered(chan); outputBuffered = Tcl_OutputBuffered(chan); - if ((inputBuffered != 0) && (outputBuffered != 0)) { - //Tcl_SetErrno(EFAULT); - //return Tcl_LongAsWide(-1); - } - /* * Get the current position in the device and compute the position where * the next character will be read or written. Note that we prefer the |