diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-26 13:45:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-02-26 13:45:40 (GMT) |
| commit | a4154b246b048a378dd83998031d103263856c8f (patch) | |
| tree | 521abd6a25b1866875951f26920b2643e0a4c778 /generic/tclEnv.c | |
| parent | 14276a3feb131ef52ed60ccce8f66df43cdd98b2 (diff) | |
| download | tcl-a4154b246b048a378dd83998031d103263856c8f.zip tcl-a4154b246b048a378dd83998031d103263856c8f.tar.gz tcl-a4154b246b048a378dd83998031d103263856c8f.tar.bz2 | |
Resolve a number of shadowed variables (discovered by compiling with -Wshadow)
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index da05f93..487c1a2 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -254,7 +254,7 @@ TclSetEnv( oldValue = NULL; nameLength = strlen(name); } else { - const char *env; + const char *oldEnv; /* * Compare the new value to the existing value. If they're the same @@ -264,8 +264,8 @@ TclSetEnv( * interpreters. */ - env = Tcl_ExternalToUtfDString(NULL, environ[index], -1, &envString); - if (strcmp(value, env + (length + 1)) == 0) { + oldEnv = Tcl_ExternalToUtfDString(NULL, environ[index], -1, &envString); + if (strcmp(value, oldEnv + (length + 1)) == 0) { Tcl_DStringFree(&envString); Tcl_MutexUnlock(&envMutex); return; |