diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-29 12:16:25 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-29 12:16:25 (GMT) |
commit | 0e525ab2378cfb0dc315ee7959e7453fb4be9a3a (patch) | |
tree | 7698ca3453e1c00dd48747a9d0dc7554102efbd1 /generic/tclMain.c | |
parent | 07493eeb9da82216017c303174fa75c64d9a8bab (diff) | |
download | tcl-0e525ab2378cfb0dc315ee7959e7453fb4be9a3a.zip tcl-0e525ab2378cfb0dc315ee7959e7453fb4be9a3a.tar.gz tcl-0e525ab2378cfb0dc315ee7959e7453fb4be9a3a.tar.bz2 |
Use Tcl_WCharToUtfDString in stead of (deprecated) Tcl_WinTCharToUtf
Diffstat (limited to 'generic/tclMain.c')
-rw-r--r-- | generic/tclMain.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index 0b6a60a..05d3787 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -50,7 +50,8 @@ NewNativeObj( Tcl_DString ds; #ifdef UNICODE - Tcl_WinTCharToUtf(string, -1, &ds); + Tcl_DStringInit(&ds); + Tcl_WCharToUtfDString(string, -1, &ds); #else Tcl_ExternalToUtfDString(NULL, (char *) string, -1, &ds); #endif |