diff options
| author | nijtmans <nijtmans> | 2010-09-21 21:50:35 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-09-21 21:50:35 (GMT) |
| commit | d233fd15ae3557d7fee760120f736c0a0a90bae2 (patch) | |
| tree | b60f0af3c495fe5f6d38d4080cb8bf542a5b8c15 /win/tclWinPipe.c | |
| parent | 88fbbfe8f3b7b4523c1af2c879ddc4b0be6c6c3b (diff) | |
| download | tcl-d233fd15ae3557d7fee760120f736c0a0a90bae2.zip tcl-d233fd15ae3557d7fee760120f736c0a0a90bae2.tar.gz tcl-d233fd15ae3557d7fee760120f736c0a0a90bae2.tar.bz2 | |
[Bug 3069278]: Breakage on head Windows triggered by install-tzdata, final fix
Diffstat (limited to 'win/tclWinPipe.c')
| -rw-r--r-- | win/tclWinPipe.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index a41898d..3aa641a 100644 --- a/win/tclWinPipe.c +++ b/win/tclWinPipe.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinPipe.c,v 1.83 2010/09/20 14:28:15 nijtmans Exp $ + * RCS: @(#) $Id: tclWinPipe.c,v 1.84 2010/09/21 21:50:35 nijtmans Exp $ */ #include "tclWinInt.h" @@ -3133,8 +3133,8 @@ TclpOpenTemporaryFile( sprintf(number, "%d.TMP", counter); counter = (unsigned short) (counter + 1); tclWinProcs->utf2tchar(number, strlen(number), &buf); - memcpy(namePtr, Tcl_DStringValue(&buf), Tcl_DStringLength(&buf)); - *(WCHAR *)(namePtr + Tcl_DStringLength(&buf) + 1) = '\0'; + Tcl_DStringSetLength(&buf, Tcl_DStringLength(&buf) + 1); + memcpy(namePtr, Tcl_DStringValue(&buf), Tcl_DStringLength(&buf) + 1); Tcl_DStringFree(&buf); handle = tclWinProcs->createFileProc((TCHAR *) name, |