diff options
| -rw-r--r-- | generic/tclStubInit.c | 1 | ||||
| -rw-r--r-- | win/tclWin32Dll.c | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index cb33288..66ad753 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -276,6 +276,7 @@ Tcl_WinTCharToUtf( memmove(r+2, r+1, p-r+size-1); memcpy(r++, "\xC0\x80", 2); Tcl_DStringSetLength(dsPtr, ++size + 1); + r = p = (char *)Tcl_DStringValue(dsPtr); } ++r; } diff --git a/win/tclWin32Dll.c b/win/tclWin32Dll.c index 2216a66..13a3dec 100644 --- a/win/tclWin32Dll.c +++ b/win/tclWin32Dll.c @@ -524,6 +524,7 @@ Tcl_WinTCharToUtf( memmove(r+2, r+1, p-r+size-1); memcpy(r++, "\xC0\x80", 2); Tcl_DStringSetLength(dsPtr, ++size + 1); + r = p = (char *)Tcl_DStringValue(dsPtr); } ++r; } |