diff options
| author | hobbs <hobbs> | 2001-10-17 19:12:26 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-10-17 19:12:26 (GMT) |
| commit | 55e000e1bb1949e0f6e0d70b33e4d101d2e6daa5 (patch) | |
| tree | 0830434584ec81a6492037b055c71128049676de | |
| parent | 121b2e45e3a4a8906c242dcec4911f0893c9edad (diff) | |
| download | tcl-55e000e1bb1949e0f6e0d70b33e4d101d2e6daa5.zip tcl-55e000e1bb1949e0f6e0d70b33e4d101d2e6daa5.tar.gz tcl-55e000e1bb1949e0f6e0d70b33e4d101d2e6daa5.tar.bz2 | |
minor casts to prevent warnings
| -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 20998ca..81adb4b 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.6 2000/04/04 08:05:57 hobbs Exp $ + * RCS: @(#) $Id: tclUnixFCmd.c,v 1.6.2.1 2001/10/17 19:12:26 hobbs Exp $ * * Portions of this code were derived from NetBSD source code which has * the following copyright notice: @@ -1090,7 +1090,7 @@ GetGroupAttribute(interp, objIndex, fileName, attributePtrPtr) groupPtr = getgrgid(statBuf.st_gid); /* INTL: Native. */ if (groupPtr == NULL) { - *attributePtrPtr = Tcl_NewIntObj(statBuf.st_gid); + *attributePtrPtr = Tcl_NewIntObj((int) statBuf.st_gid); } else { Tcl_DString ds; CONST char *utf; @@ -1141,7 +1141,7 @@ GetOwnerAttribute(interp, objIndex, fileName, attributePtrPtr) pwPtr = getpwuid(statBuf.st_uid); /* INTL: Native. */ if (pwPtr == NULL) { - *attributePtrPtr = Tcl_NewIntObj(statBuf.st_uid); + *attributePtrPtr = Tcl_NewIntObj((int) statBuf.st_uid); } else { Tcl_DString ds; CONST char *utf; |