Added
Link Here
|
1 |
https://core.tcl-lang.org/tcl/info/24b9181478 |
2 |
|
3 |
--- ../generic/tclIO.c.orig 2020-12-11 17:46:22 UTC |
4 |
+++ ../generic/tclIO.c |
5 |
@@ -3765,6 +3765,7 @@ Write( |
6 |
/* State info for channel */ |
7 |
char *nextNewLine = NULL; |
8 |
int endEncoding, saved = 0, total = 0, flushed = 0, needNlFlush = 0; |
9 |
+ char safe[BUFFER_PADDING]; |
10 |
|
11 |
if (srcLen) { |
12 |
WillWrite(chanPtr); |
13 |
@@ -3783,7 +3784,7 @@ Write( |
14 |
|
15 |
while (srcLen + saved + endEncoding > 0) { |
16 |
ChannelBuffer *bufPtr; |
17 |
- char *dst, safe[BUFFER_PADDING]; |
18 |
+ char *dst; |
19 |
int result, srcRead, dstLen, dstWrote, srcLimit = srcLen; |
20 |
|
21 |
if (nextNewLine) { |