diff options
| author | Bruce Evans <bde@FreeBSD.org> | 1998-06-30 18:12:26 +0000 |
|---|---|---|
| committer | Bruce Evans <bde@FreeBSD.org> | 1998-06-30 18:12:26 +0000 |
| commit | f39030436d53149a5ae99be3369ccaf50e9cbdd4 (patch) | |
| tree | 823e270a008b4f0e0dc1c6362b602bfa4a8e7806 | |
| parent | 9f15c7ece517e42b833528cda642936aaf5f8aee (diff) | |
Notes
| -rw-r--r-- | contrib/tcl/unix/tclUnixFCmd.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/contrib/tcl/unix/tclUnixFCmd.c b/contrib/tcl/unix/tclUnixFCmd.c index 3ec1a69d9f46..fc030f0838b7 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); |