diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-01-30 19:13:28 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-01-30 19:13:28 (GMT) |
| commit | e264168978eae3270ed1c67ef1152c65347db8f0 (patch) | |
| tree | c8640b0b72fabd3ef681766255d54b3616a4d6c5 | |
| parent | 7c73eea7d83b3f153f57782f4add442c09d03be0 (diff) | |
| download | tcl-e264168978eae3270ed1c67ef1152c65347db8f0.zip tcl-e264168978eae3270ed1c67ef1152c65347db8f0.tar.gz tcl-e264168978eae3270ed1c67ef1152c65347db8f0.tar.bz2 | |
Trial: Implement DoWrite() as WriteBytes().
| -rw-r--r-- | generic/tclIO.c | 4 |
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 } /* |