diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-18 15:51:43 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-18 15:51:43 (GMT) |
| commit | 04004f3abcabe486568af1e7b026d03670b48ca8 (patch) | |
| tree | 5e7c4b404511756e6cd7c6ea0a3a9bfd6503d4ad | |
| parent | 155e8a1ad56291fb61f3578f3c7cda632556d1da (diff) | |
| download | tcl-04004f3abcabe486568af1e7b026d03670b48ca8.zip tcl-04004f3abcabe486568af1e7b026d03670b48ca8.tar.gz tcl-04004f3abcabe486568af1e7b026d03670b48ca8.tar.bz2 | |
Unbreak build on Windows (and - most likely - some other platforms too)
| -rw-r--r-- | generic/tclEnv.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index 4a48f65..40ced17 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -727,10 +727,9 @@ TclFinalizeEnvironment(void) * free all strings in the cache. */ - size_t i; - if (env.cache) { #ifdef PURIFY + int i; for (i = 0; i < env.cacheSize; i++) { ckfree(env.cache[i]); } @@ -738,11 +737,11 @@ TclFinalizeEnvironment(void) ckfree(env.cache); env.cache = NULL; env.cacheSize = 0; +#ifndef USE_PUTENV if ((env.ourEnviron != NULL)) { ckfree(env.ourEnviron); env.ourEnviron = NULL; } -#ifndef USE_PUTENV env.ourEnvironSize = 0; #endif } |