summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-01-29 02:19:24 (GMT)
committerhobbs <hobbs>2002-01-29 02:19:24 (GMT)
commita46479f1dc90ac3d212249debe342d1d8bc48db4 (patch)
tree34ffd1ac5f98726fb7baaeba0bbdecb3b088698e
parentabcf644d14a23f2521b411ba8df13307368d65cf (diff)
downloadtcl-a46479f1dc90ac3d212249debe342d1d8bc48db4.zip
tcl-a46479f1dc90ac3d212249debe342d1d8bc48db4.tar.gz
tcl-a46479f1dc90ac3d212249debe342d1d8bc48db4.tar.bz2
win/tclWinInit.c (TclpFindVariable): CONSTification touch-up
-rw-r--r--win/tclWinInit.c7
1 files changed, 4 insertions, 3 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c
index bf71fe7..90efb06 100644
--- a/win/tclWinInit.c
+++ b/win/tclWinInit.c
@@ -7,7 +7,7 @@
* Copyright (c) 1998-1999 by Scriptics Corporation.
* All rights reserved.
*
- * RCS: @(#) $Id: tclWinInit.c,v 1.33 2002/01/26 01:10:08 dgp Exp $
+ * RCS: @(#) $Id: tclWinInit.c,v 1.34 2002/01/29 02:19:24 hobbs Exp $
*/
#include "tclWinInt.h"
@@ -333,7 +333,6 @@ AppendEnvironment(
WCHAR wBuf[MAX_PATH];
char buf[MAX_PATH * TCL_UTF_MAX];
Tcl_Obj *objPtr;
- char *str;
Tcl_DString ds;
CONST char **pathv;
@@ -362,6 +361,7 @@ AppendEnvironment(
*/
if ((pathc > 0) && (lstrcmpiA(lib + 4, pathv[pathc - 1]) != 0)) {
+ CONST char *str;
/*
* TCL_LIBRARY is set but refers to a different tcl
* installation than the current version. Try fiddling with the
@@ -698,7 +698,8 @@ TclpFindVariable(name, lengthPtr)
* all the characters after the equal sign.
*/
- envUpper = Tcl_ExternalToUtfDString(NULL, env, -1, &envString);
+ Tcl_ExternalToUtfDString(NULL, env, -1, &envString);
+ envUpper = Tcl_DStringValue(&envString);
p1 = strchr(envUpper, '=');
if (p1 == NULL) {
continue;