aboutsummaryrefslogtreecommitdiffstats
path: root/lang/tcl85/files/patch-generic_tclIO.c
blob: 86e683a58faeb4c7bf1d95b9e7c7521bf0b21449 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
https://core.tcl-lang.org/tcl/info/24b9181478

--- ../generic/tclIO.c.orig 2020-12-11 17:46:22 UTC
+++ ../generic/tclIO.c
@@ -3765,6 +3765,7 @@ Write(
                /* State info for channel */
     char *nextNewLine = NULL;
     int endEncoding, saved = 0, total = 0, flushed = 0, needNlFlush = 0;
+    char safe[BUFFER_PADDING];
 
     if (srcLen) {
         WillWrite(chanPtr);
@@ -3783,7 +3784,7 @@ Write(
 
     while (srcLen + saved + endEncoding > 0) {
    ChannelBuffer *bufPtr;
-   char *dst, safe[BUFFER_PADDING];
+   char *dst;
    int result, srcRead, dstLen, dstWrote, srcLimit = srcLen;
 
    if (nextNewLine) {