diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-14 12:41:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-14 12:41:37 (GMT) |
| commit | 93022718af12833e135ad743bc6169bcfd443ddf (patch) | |
| tree | b16d8ef4b2c6dd1fc739b04a568e411969721611 /generic/tclMain.c | |
| parent | 5406b207723fa1acec5df7441387d1c9229a88ac (diff) | |
| parent | 0ef77b52637aa508cfcf98f6fb583cbeca47b5a4 (diff) | |
| download | tcl-93022718af12833e135ad743bc6169bcfd443ddf.zip tcl-93022718af12833e135ad743bc6169bcfd443ddf.tar.gz tcl-93022718af12833e135ad743bc6169bcfd443ddf.tar.bz2 | |
TIP #548 implementation: Support `wchar_t` conversion functions and deprecate `Tcl_WinUtfToTChar()` and `Tcl_WinTCharToUtf()`
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..4a66793 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_WCharToUtfDString(string, length, &ds); #else Tcl_ExternalToUtfDString(NULL, (char *) string, length, &ds); #endif |