diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-12-28 21:16:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-12-28 21:16:13 (GMT) |
| commit | d08f08a24d7360b80c69b576fd4645f5ecdb8fe5 (patch) | |
| tree | 291f884a664193d2b5ce9a4f937bf089be1301da /generic/tclStubInit.c | |
| parent | 7172ae907187d2ca151b9834bdc2f2e6e05ad2d8 (diff) | |
| parent | ad43c617e3fb81c44639a400b8a6d611aa52e3f2 (diff) | |
| download | tcl-d08f08a24d7360b80c69b576fd4645f5ecdb8fe5.zip tcl-d08f08a24d7360b80c69b576fd4645f5ecdb8fe5.tar.gz tcl-d08f08a24d7360b80c69b576fd4645f5ecdb8fe5.tar.bz2 | |
merge core-8-branch
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 10ca66b..1267c75 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -112,6 +112,7 @@ Tcl_WinUtfToTChar( Tcl_DStringSetLength(dsPtr, 2*size+2); wp = (WCHAR *)Tcl_DStringValue(dsPtr); MultiByteToWideChar(CP_UTF8, 0, string, len, wp, size+1); + if (len == -1) --size; /* account for 0-byte at string end */ Tcl_DStringSetLength(dsPtr, 2*size); wp[size] = 0; return (char *)wp; @@ -142,6 +143,7 @@ Tcl_WinTCharToUtf( Tcl_DStringSetLength(dsPtr, size+1); p = (char *)Tcl_DStringValue(dsPtr); WideCharToMultiByte(CP_UTF8, 0, string, len, p, size, NULL, NULL); + if (len == -1) --size; /* account for 0-byte at string end */ Tcl_DStringSetLength(dsPtr, size); p[size] = 0; return p; |