summaryrefslogtreecommitdiffstats
path: root/contrib
diff options
context:
space:
mode:
Diffstat (limited to 'contrib')
-rw-r--r--contrib/tcl/unix/tclUnixFCmd.c2
1 files changed, 1 insertions, 1 deletions
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);
OpenPOWER on IntegriCloud