summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-04-04 21:14:53 (GMT)
committerhobbs <hobbs>2002-04-04 21:14:53 (GMT)
commit48b303e112c8575412feec0b7dbfaf1da4578bd7 (patch)
treed4d5023cfb0327dafe29c88f0e8bb53cfe6a9d9e
parent0063578c5e5664c48cef25a87c2a0d815f8a09a3 (diff)
downloadtcl-48b303e112c8575412feec0b7dbfaf1da4578bd7.zip
tcl-48b303e112c8575412feec0b7dbfaf1da4578bd7.tar.gz
tcl-48b303e112c8575412feec0b7dbfaf1da4578bd7.tar.bz2
minor cast change to squelch warning
-rw-r--r--unix/tclUnixFCmd.c6
1 files 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 */