diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-06-05 17:22:31 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-06-05 17:22:31 (GMT) |
| commit | f619bf51a3308fa3933f35c2aef066009fd45b42 (patch) | |
| tree | 95617fb55ba3dc7fb235e0e08507cb9fa2c0ffaa /generic/tclParse.c | |
| parent | 4cd1e4ceff0f24728a6444ac699b58a3461f8447 (diff) | |
| parent | 67fd012128e6e76e3d745ca090075acbcfa9f258 (diff) | |
| download | tcl-f619bf51a3308fa3933f35c2aef066009fd45b42.zip tcl-f619bf51a3308fa3933f35c2aef066009fd45b42.tar.gz tcl-f619bf51a3308fa3933f35c2aef066009fd45b42.tar.bz2 | |
Merge 8.6; update changes.
Diffstat (limited to 'generic/tclParse.c')
| -rw-r--r-- | generic/tclParse.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index ce87fb0..3ecf4a5 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -975,13 +975,13 @@ TclParseBackslash( */ if (Tcl_UtfCharComplete(p, numBytes - 1)) { - count = Tcl_UtfToUniChar(p, &unichar) + 1; /* +1 for '\' */ + count = TclUtfToUniChar(p, &unichar) + 1; /* +1 for '\' */ } else { char utfBytes[TCL_UTF_MAX]; memcpy(utfBytes, p, (size_t) (numBytes - 1)); utfBytes[numBytes - 1] = '\0'; - count = Tcl_UtfToUniChar(utfBytes, &unichar) + 1; + count = TclUtfToUniChar(utfBytes, &unichar) + 1; } result = unichar; break; |