From 04004f3abcabe486568af1e7b026d03670b48ca8 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 18 Jun 2018 15:51:43 +0000
Subject: Unbreak build on Windows (and - most likely - some other platforms
 too)

---
 generic/tclEnv.c | 5 ++---
 1 file 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
     }
-- 
cgit v0.12