summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-01-30 19:13:28 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-01-30 19:13:28 (GMT)
commitc00d7aa9b969d0589dffe5a2a14e6b339d8084c0 (patch)
treec8640b0b72fabd3ef681766255d54b3616a4d6c5 /generic
parent050c8a639fb8fb89e5febcb7564310ee16de2461 (diff)
downloadtcl-c00d7aa9b969d0589dffe5a2a14e6b339d8084c0.zip
tcl-c00d7aa9b969d0589dffe5a2a14e6b339d8084c0.tar.gz
tcl-c00d7aa9b969d0589dffe5a2a14e6b339d8084c0.tar.bz2
Trial: Implement DoWrite() as WriteBytes().
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIO.c4
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index dd9f1dc..1434d88 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -9213,6 +9213,9 @@ DoWrite(
const char *src, /* Data to write. */
int srcLen) /* Number of bytes to write. */
{
+#if 1
+ return WriteBytes(chanPtr, src, srcLen);
+#else
ChannelState *statePtr = chanPtr->state;
/* State info for channel */
ChannelBuffer *outBufPtr; /* Current output buffer. */
@@ -9340,6 +9343,7 @@ DoWrite(
} /* Closes "while" */
return totalDestCopied;
+#endif
}
/*