diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-24 11:52:02 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-24 11:52:02 (GMT) |
| commit | 93a3e63b7e9a22f94f1101b7ba32ac79738e5b65 (patch) | |
| tree | a0bd8e0aab1fdb02c452d5c3eeeeb29c2af519c3 /win/tkWinSendCom.c | |
| parent | 14ffbbfd3279791bcc99fd50066d6821e92cc5f9 (diff) | |
| download | tk-93a3e63b7e9a22f94f1101b7ba32ac79738e5b65.zip tk-93a3e63b7e9a22f94f1101b7ba32ac79738e5b65.tar.gz tk-93a3e63b7e9a22f94f1101b7ba32ac79738e5b65.tar.bz2 | |
Add type-casts to many usage of Tcl_WinTCharToUtf(), so Tk compiles without warnings when omitting -DUNICODE.
Diffstat (limited to 'win/tkWinSendCom.c')
| -rw-r--r-- | win/tkWinSendCom.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win/tkWinSendCom.c b/win/tkWinSendCom.c index 9e5b7a0..3f4f387 100644 --- a/win/tkWinSendCom.c +++ b/win/tkWinSendCom.c @@ -385,7 +385,7 @@ Async( if (SUCCEEDED(hr) && obj->interp) { Tcl_Obj *scriptPtr; - Tcl_WinTCharToUtf(vCmd.bstrVal, (int) SysStringLen(vCmd.bstrVal) * + Tcl_WinTCharToUtf((LPCTSTR)vCmd.bstrVal, SysStringLen(vCmd.bstrVal) * sizeof (WCHAR), &ds); scriptPtr = Tcl_NewStringObj(Tcl_DStringValue(&ds), Tcl_DStringLength(&ds)); @@ -440,8 +440,8 @@ Send( return hr; } - Tcl_WinTCharToUtf(v.bstrVal, (int) SysStringLen(v.bstrVal) * - sizeof (WCHAR), &ds); + Tcl_WinTCharToUtf((LPCTSTR)v.bstrVal, SysStringLen(v.bstrVal) * + sizeof(WCHAR), &ds); scriptPtr = Tcl_NewStringObj(Tcl_DStringValue(&ds), Tcl_DStringLength(&ds)); Tcl_DStringFree(&ds); Tcl_Preserve(interp); |