aboutsummaryrefslogtreecommitdiff
path: root/lang/tcl86/files/patch-generic_tclIO.c
blob: a64bf3945b26b8549d038b122931d62d1f47245d (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
@@ -4277,6 +4277,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);
@@ -4295,7 +4296,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) {