diff options
author | hobbs <hobbs@noemail.net> | 2002-01-29 02:19:24 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2002-01-29 02:19:24 (GMT) |
commit | b7b689bfa91e7837eceecd5de2503bc06a543072 (patch) | |
tree | 34ffd1ac5f98726fb7baaeba0bbdecb3b088698e /win/tclWinInit.c | |
parent | d09f4170bbdbe1b2fe68c4b0b77dc3d276458317 (diff) | |
download | tcl-b7b689bfa91e7837eceecd5de2503bc06a543072.zip tcl-b7b689bfa91e7837eceecd5de2503bc06a543072.tar.gz tcl-b7b689bfa91e7837eceecd5de2503bc06a543072.tar.bz2 |
win/tclWinInit.c (TclpFindVariable): CONSTification touch-up
FossilOrigin-Name: e5177d3f58721a3c940ec379c207d9c8b60b130a
Diffstat (limited to 'win/tclWinInit.c')
-rw-r--r-- | win/tclWinInit.c | 7 |
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; |