diff options
| author | dgp@users.sourceforge.net <dgp> | 2006-04-05 16:32:39 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2006-04-05 16:32:39 (GMT) |
| commit | a24adf7238d5be34de053a9c8ea554f151287b08 (patch) | |
| tree | 6f98b5676e330825d6971d1bfb90ced3019e59dd /win/tclWinInit.c | |
| parent | 5952eab23e4253189b251b718370a2f78d227ccc (diff) | |
| download | tcl-a24adf7238d5be34de053a9c8ea554f151287b08.zip tcl-a24adf7238d5be34de053a9c8ea554f151287b08.tar.gz tcl-a24adf7238d5be34de053a9c8ea554f151287b08.tar.bz2 | |
* win/tclWinInit.c: More careful calls to Tcl_DStringSetLength()
* win/tclWinSock.c: to avoid creating invalid DString states.
* win/tclWinDde.c: Bump to version 1.3.2. [RFE 1366195]
* library/dde/pkgIndex.tcl:
* library/reg/pkgIndex.tcl: Bump to registry 1.1.6
* win/tclWinReg.c:
* win/configure.in: Bump package version numbers.
* win/configure: autoconf 2.59
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index f85448c..4703164 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinInit.c,v 1.69 2006/02/08 21:41:28 dgp Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.70 2006/04/05 16:32:44 dgp Exp $ */ #include "tclWinInt.h" @@ -470,7 +470,9 @@ Tcl_GetEncodingNameFromEnvironment( Tcl_DString *bufPtr) { Tcl_DStringInit(bufPtr); + Tcl_DStringSetLength(&bufPtr, 2+TCL_INTEGER_SPACE); wsprintfA(Tcl_DStringValue(bufPtr), "cp%d", GetACP()); + Tcl_DStringSetLength(&bufPtr, strlen(Tcl_DStringValue(bufPtr))); return Tcl_DStringValue(bufPtr); } |