diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-15 15:19:56 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-11-15 15:19:56 (GMT) |
commit | 84987939c7a03c1c3178c452a8c288608960f3e1 (patch) | |
tree | c784805665e281573ff466bf995d42041ef7317a /generic/tclParse.c | |
parent | e9559b5cc04cd58f930641ade823105aebf97d67 (diff) | |
parent | 521b33f6ec17381c19722e73043934c1dc81bea4 (diff) | |
download | tcl-84987939c7a03c1c3178c452a8c288608960f3e1.zip tcl-84987939c7a03c1c3178c452a8c288608960f3e1.tar.gz tcl-84987939c7a03c1c3178c452a8c288608960f3e1.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclParse.c')
-rw-r--r-- | generic/tclParse.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index 897dbb6..9fa1db4 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -923,7 +923,7 @@ TclParseBackslash( if (Tcl_UtfCharComplete(p, numBytes - 1)) { count = TclUtfToUniChar(p, &unichar) + 1; /* +1 for '\' */ } else { - char utfBytes[TCL_UTF_MAX]; + char utfBytes[4]; memcpy(utfBytes, p, numBytes - 1); utfBytes[numBytes - 1] = '\0'; |