diff options
| author | pointsman <rolf@pointsman.de> | 2023-04-24 09:41:04 (GMT) |
|---|---|---|
| committer | pointsman <rolf@pointsman.de> | 2023-04-24 09:41:04 (GMT) |
| commit | 439a4360b3125b8917bb1d1ef0157d2c2f88de21 (patch) | |
| tree | 3e33e52f6de3b57224ff96599a8e6d4e12cfa317 /generic/tclIO.c | |
| parent | d252076f754874d48b808703fc817df4242d31da (diff) | |
| download | tcl-439a4360b3125b8917bb1d1ef0157d2c2f88de21.zip tcl-439a4360b3125b8917bb1d1ef0157d2c2f88de21.tar.gz tcl-439a4360b3125b8917bb1d1ef0157d2c2f88de21.tar.bz2 | |
Fixes the examples given in [0306a5563c]. Still more to do for a full fix.
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 4e2e37d..387d56e 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -4273,6 +4273,7 @@ Tcl_WriteObj( } totalWritten += written; srcLen -= chunkSize; + src += written; } while (srcLen); return totalWritten; } |