From e264168978eae3270ed1c67ef1152c65347db8f0 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 30 Jan 2014 19:13:28 +0000
Subject: Trial: Implement DoWrite() as WriteBytes().

---
 generic/tclIO.c | 4 ++++
 1 file changed, 4 insertions(+)

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
 }
 
 /*
-- 
cgit v0.12