diff options
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 1 |
1 files changed, 1 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; } |