diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-22 07:32:37 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-22 07:32:37 (GMT) |
| commit | d063a23455c0d66176444ee46ce756685f57da85 (patch) | |
| tree | 509d0074efa0d99cccc7f76903d89c2b580af788 /win/tclWinInit.c | |
| parent | f51c5464dcfb28580b92ba3f16a3d22ec36a8005 (diff) | |
| download | tcl-d063a23455c0d66176444ee46ce756685f57da85.zip tcl-d063a23455c0d66176444ee46ce756685f57da85.tar.gz tcl-d063a23455c0d66176444ee46ce756685f57da85.tar.bz2 | |
More WIP: eliminate all usage of (platform-specific) Tcl_WinTCharToUtf()/Tcl_WinUtfToTChar() to its proposed portable replacements: Tcl_Utf16ToUtfDString()/Tcl_UtfToUtf16DString()
This allows for Tcl_WinTCharToUtf()/Tcl_WinUtfToTChar() to be declared deprecated.
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index f4c6e06..4219963 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -476,8 +476,8 @@ TclpGetUserName( return NULL; } cchUserNameLen--; - cchUserNameLen *= sizeof(WCHAR); - Tcl_WinTCharToUtf(szUserName, cchUserNameLen, bufferPtr); + Tcl_DStringInit(bufferPtr); + Tcl_Utf16ToUtfDString(szUserName, cchUserNameLen, bufferPtr); } return Tcl_DStringValue(bufferPtr); } |