diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-06-03 19:48:14 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-06-03 19:48:14 (GMT) |
commit | 9a414590a633c4fa914a125b8eaaf187c13423f8 (patch) | |
tree | 48ec1343fc6ca9728a2517a528e68601413c1c88 /generic/tclMain.c | |
parent | a7ec180fc75e299b71f6d839da636eff3528a713 (diff) | |
download | tcl-9a414590a633c4fa914a125b8eaaf187c13423f8.zip tcl-9a414590a633c4fa914a125b8eaaf187c13423f8.tar.gz tcl-9a414590a633c4fa914a125b8eaaf187c13423f8.tar.bz2 |
TIP #548: Deprecate Tcl_WinUtfToTChar() and Tcl_WinTCharToUtf() and provide more flexible replacement functions
Diffstat (limited to 'generic/tclMain.c')
-rw-r--r-- | generic/tclMain.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index 4b8fa8c..8f70064 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -70,10 +70,8 @@ NewNativeObj( Tcl_DString ds; #ifdef UNICODE - if (length > 0) { - length *= sizeof(WCHAR); - } - Tcl_WinTCharToUtf(string, length, &ds); + Tcl_DStringInit(&ds); + Tcl_Utf16ToUtfDString(string, length, &ds); #else Tcl_ExternalToUtfDString(NULL, (char *) string, length, &ds); #endif |