From a46479f1dc90ac3d212249debe342d1d8bc48db4 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 29 Jan 2002 02:19:24 +0000
Subject: win/tclWinInit.c (TclpFindVariable): CONSTification touch-up

---
 win/tclWinInit.c | 7 ++++---
 1 file 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;
-- 
cgit v0.12