From 9e21fa252fd5fa9625a5d185502a6a52aabf94b2 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Mon, 7 Aug 2000 21:33:02 +0000
Subject: 	* generic/tclEnv.c: cast cleanup [Bug: 5624] 	*
 win/tclWinFCmd.c: cast cleanup [Bug: 5627]

---
 generic/tclEnv.c |  5 +++--
 win/tclWinFCmd.c | 10 +++++-----
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/generic/tclEnv.c b/generic/tclEnv.c
index 2fa6726..74ab36f 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.7.2.1 2000/08/07 21:33:02 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;
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c
index 1597583..97eeacb 100644
--- a/win/tclWinFCmd.c
+++ b/win/tclWinFCmd.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclWinFCmd.c,v 1.7 1999/12/09 14:44:11 hobbs Exp $
+ * RCS: @(#) $Id: tclWinFCmd.c,v 1.7.2.1 2000/08/07 21:33:02 hobbs Exp $
  */
 
 #include "tclWinInt.h"
@@ -237,7 +237,7 @@ DoRenameFile(
 
 	    src = Tcl_WinTCharToUtf((TCHAR *) nativeSrcPath, -1, &srcString);
 	    dst = Tcl_WinTCharToUtf((TCHAR *) nativeDstPath, -1, &dstString);
-	    if (strncmp(src, dst, Tcl_DStringLength(&srcString)) == 0) {
+	    if (strncmp(src, dst, (size_t) Tcl_DStringLength(&srcString)) == 0) {
 		/*
 		 * Trying to move a directory into itself.
 		 */
@@ -658,7 +658,7 @@ static int
 DoCreateDirectory(
     Tcl_DString *pathPtr)	/* Pathname of directory to create (native). */
 {
-    int error;
+    DWORD error;
     CONST TCHAR *nativePath;
 
     nativePath = (TCHAR *) Tcl_DStringValue(pathPtr);
@@ -1284,7 +1284,7 @@ GetWinFileAttributes(
 	return TCL_ERROR;
     }
 
-    *attributePtrPtr = Tcl_NewBooleanObj(result & attributeArray[objIndex]);
+    *attributePtrPtr = Tcl_NewBooleanObj((int) (result & attributeArray[objIndex]));
     return TCL_OK;
 }
 
@@ -1422,7 +1422,7 @@ ConvertFileNameFormat(
 	     */
 
 	    Tcl_WinTCharToUtf(nativeName, -1, &ds);
-	    newv[i] = ckalloc(Tcl_DStringLength(&ds) + 1);
+	    newv[i] = ckalloc((unsigned int) (Tcl_DStringLength(&ds) + 1));
 	    lstrcpyA(newv[i], Tcl_DStringValue(&ds));
 	    Tcl_DStringFree(&ds);
 	    FindClose(handle);
-- 
cgit v0.12