From 62108cc29b17735716207abff6d69af34428146a Mon Sep 17 00:00:00 2001 From: bde Date: Tue, 30 Jun 1998 18:12:26 +0000 Subject: Fixed printf format errors. --- contrib/tcl/unix/tclUnixFCmd.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'contrib') diff --git a/contrib/tcl/unix/tclUnixFCmd.c b/contrib/tcl/unix/tclUnixFCmd.c index 3ec1a69..fc030f0 100644 --- a/contrib/tcl/unix/tclUnixFCmd.c +++ b/contrib/tcl/unix/tclUnixFCmd.c @@ -1028,7 +1028,7 @@ GetPermissionsAttribute(interp, objIndex, fileName, attributePtrPtr) return TCL_ERROR; } - sprintf(returnString, "%0#5lo", (statBuf.st_mode & 0x00007FFF)); + sprintf(returnString, "%0#5o", (int)(statBuf.st_mode & 0x00007FFF)); *attributePtrPtr = Tcl_NewStringObj(returnString, -1); -- cgit v1.1