diff options
| author | hobbs <hobbs> | 2002-04-04 21:14:53 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-04-04 21:14:53 (GMT) |
| commit | 48b303e112c8575412feec0b7dbfaf1da4578bd7 (patch) | |
| tree | d4d5023cfb0327dafe29c88f0e8bb53cfe6a9d9e | |
| parent | 0063578c5e5664c48cef25a87c2a0d815f8a09a3 (diff) | |
| download | tcl-48b303e112c8575412feec0b7dbfaf1da4578bd7.zip tcl-48b303e112c8575412feec0b7dbfaf1da4578bd7.tar.gz tcl-48b303e112c8575412feec0b7dbfaf1da4578bd7.tar.bz2 | |
minor cast change to squelch warning
| -rw-r--r-- | unix/tclUnixFCmd.c | 6 |
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 */ |