summaryrefslogtreecommitdiffstats
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)
commite264168978eae3270ed1c67ef1152c65347db8f0 (patch)
treec8640b0b72fabd3ef681766255d54b3616a4d6c5
parent7c73eea7d83b3f153f57782f4add442c09d03be0 (diff)
downloadtcl-e264168978eae3270ed1c67ef1152c65347db8f0.zip
tcl-e264168978eae3270ed1c67ef1152c65347db8f0.tar.gz
tcl-e264168978eae3270ed1c67ef1152c65347db8f0.tar.bz2
Trial: Implement DoWrite() as WriteBytes().
-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
}
/*