diff options
| -rw-r--r-- | generic/tclIO.c | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 8e0534d..547359b 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -6023,25 +6023,8 @@ ReadBytes( toRead = srcLen; } -#if 0 - dst = (char *) Tcl_GetByteArrayFromObj(objPtr, &length); - if (toRead > length - offset - 1) { - /* - * Double the existing size of the object or make enough room to hold - * all the characters we may get from the source buffer, whichever is - * larger. - */ - - length = offset * 2; - if (offset < toRead) { - length = offset + toRead + 1; - } - dst = (char *) Tcl_SetByteArrayLength(objPtr, length); - } -#else TclAppendBytesToByteArray(objPtr, NULL, toRead); dst = (char *) Tcl_GetByteArrayFromObj(objPtr, &length); -#endif dst += offset; if (GotFlag(statePtr, INPUT_NEED_NL)) { |