summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2000-05-22 23:54:31 (GMT)
committerhobbs <hobbs>2000-05-22 23:54:31 (GMT)
commitb978383dbbaa09d5d593c30ded9f00531d97c574 (patch)
tree9dd784527e75b0fae15a0e716a71ea35e50dba88
parent0541860b36dd4bb7baa11530f1052df6bdee0243 (diff)
downloadtcl-b978383dbbaa09d5d593c30ded9f00531d97c574.zip
tcl-b978383dbbaa09d5d593c30ded9f00531d97c574.tar.gz
tcl-b978383dbbaa09d5d593c30ded9f00531d97c574.tar.bz2
* generic/tclEnv.c: cast cleanup [Bug: 5624]
-rw-r--r--generic/tclEnv.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c
index 2fa6726..0eda081 100644
--- a/generic/tclEnv.c
+++ b/generic/tclEnv.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclEnv.c,v 1.7 2000/04/19 08:32:44 hobbs Exp $
+ * RCS: @(#) $Id: tclEnv.c,v 1.8 2000/05/22 23:54:31 hobbs Exp $
*/
#include "tclInt.h"
@@ -356,7 +356,8 @@ TclUnsetEnv(name)
CONST char *name; /* Name of variable to remove (UTF-8). */
{
char *oldValue;
- int length, index;
+ unsigned int length;
+ int index;
#ifdef USE_PUTENV
Tcl_DString envString;
char *string;