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