summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-08-02 01:27:13 (GMT)
committerhobbs <hobbs>2001-08-02 01:27:13 (GMT)
commitc162f160bb001ab046c8e44a29d0ad1390f065a8 (patch)
treec3f20dbf10a7a915ea9e10221311e1a0984c7091
parentf623859b5ce222f8eb1dafc95008c8f9f3f49b3f (diff)
downloadtcl-c162f160bb001ab046c8e44a29d0ad1390f065a8.zip
tcl-c162f160bb001ab046c8e44a29d0ad1390f065a8.tar.gz
tcl-c162f160bb001ab046c8e44a29d0ad1390f065a8.tar.bz2
* unix/tclUnixFCmd.c: minor casts to eliminate warnings. (lim)
[Patch: #440218]
-rw-r--r--unix/tclUnixFCmd.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c
index e3d4d95..8f729e8 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.7 2001/07/31 19:12:07 vincentdarley Exp $
+ * RCS: @(#) $Id: tclUnixFCmd.c,v 1.8 2001/08/02 01:27:13 hobbs Exp $
*
* Portions of this code were derived from NetBSD source code which has
* the following copyright notice:
@@ -1157,7 +1157,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;
@@ -1208,7 +1208,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;
@@ -1257,7 +1257,7 @@ GetPermissionsAttribute(interp, objIndex, fileName, attributePtrPtr)
return TCL_ERROR;
}
- sprintf(returnString, "%0#5lo", (statBuf.st_mode & 0x00007FFF));
+ sprintf(returnString, "%0#5lo", (long) (statBuf.st_mode & 0x00007FFF));
*attributePtrPtr = Tcl_NewStringObj(returnString, -1);