diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-02 15:55:28 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-06-02 15:55:28 (GMT) |
commit | e5e69970a1b906c5b77c200e38c943b61a498315 (patch) | |
tree | c3921e87580e58764e15120e3d4f34c1a4daec4f /unix/tclUnixFCmd.c | |
parent | 209485eee104ea7c68f7c713a8371f35b2f59d85 (diff) | |
parent | 211f4f652248b5d40573bb51fbfe7ed687e5eded (diff) | |
download | tcl-e5e69970a1b906c5b77c200e38c943b61a498315.zip tcl-e5e69970a1b906c5b77c200e38c943b61a498315.tar.gz tcl-e5e69970a1b906c5b77c200e38c943b61a498315.tar.bz2 |
Merge 8.6. Eliminate some (long) typecasts
Diffstat (limited to 'unix/tclUnixFCmd.c')
-rw-r--r-- | unix/tclUnixFCmd.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c index 9f7a2ba..a5d6a87 100644 --- a/unix/tclUnixFCmd.c +++ b/unix/tclUnixFCmd.c @@ -1466,7 +1466,7 @@ GetPermissionsAttribute( } *attributePtrPtr = Tcl_ObjPrintf( - "%0#5lo", (long) (statBuf.st_mode & 0x00007FFF)); + "%0#5o", ((int)statBuf.st_mode & 0x7FFF)); return TCL_OK; } |