From 48b303e112c8575412feec0b7dbfaf1da4578bd7 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Thu, 4 Apr 2002 21:14:53 +0000
Subject: minor cast change to squelch warning

---
 unix/tclUnixFCmd.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c
index f9610fd..8eb0d81 100644
--- a/unix/tclUnixFCmd.c
+++ b/unix/tclUnixFCmd.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixFCmd.c,v 1.19 2002/03/24 18:09:19 vincentdarley Exp $
+ * RCS: @(#) $Id: tclUnixFCmd.c,v 1.20 2002/04/04 21:14:53 hobbs Exp $
  *
  * Portions of this code were derived from NetBSD source code which has
  * the following copyright notice:
@@ -1689,8 +1689,8 @@ TclpObjNormalizePath(interp, pathPtr, nextCheckpoint)
 	     * converted, normalized path.
 	     */
 	    Tcl_DStringFree(&ds);
-	    Tcl_ExternalToUtfDString(NULL,normPath,
-                                     (unsigned)strlen(normPath),&ds);
+	    Tcl_ExternalToUtfDString(NULL, normPath,
+		    (int) strlen(normPath), &ds);
 
 	    if (path[nextCheckpoint] != '\0') {
 		/* not at end, append remaining path */
-- 
cgit v0.12