diff options
| author | hobbs <hobbs> | 2002-01-29 02:19:24 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-01-29 02:19:24 (GMT) |
| commit | a46479f1dc90ac3d212249debe342d1d8bc48db4 (patch) | |
| tree | 34ffd1ac5f98726fb7baaeba0bbdecb3b088698e | |
| parent | abcf644d14a23f2521b411ba8df13307368d65cf (diff) | |
| download | tcl-a46479f1dc90ac3d212249debe342d1d8bc48db4.zip tcl-a46479f1dc90ac3d212249debe342d1d8bc48db4.tar.gz tcl-a46479f1dc90ac3d212249debe342d1d8bc48db4.tar.bz2 | |
win/tclWinInit.c (TclpFindVariable): CONSTification touch-up
| -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; |