diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-18 14:06:17 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-18 14:06:17 (GMT) |
commit | d7364d1f4bcb025930cf6d91cb2fe5787918bc41 (patch) | |
tree | 2d6a5d0e295ff78acb9fc9b3d15b6d340b6a8b21 /unix | |
parent | 303fbfc4be38a234f52db032c7cb87d0482e9cdc (diff) | |
parent | 176431f58481aeaba56e3463648fd85990236de4 (diff) | |
download | tcl-d7364d1f4bcb025930cf6d91cb2fe5787918bc41.zip tcl-d7364d1f4bcb025930cf6d91cb2fe5787918bc41.tar.gz tcl-d7364d1f4bcb025930cf6d91cb2fe5787918bc41.tar.bz2 |
Merge 8.7
Diffstat (limited to 'unix')
-rw-r--r-- | unix/tclUnixFCmd.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c index ccd3600..ad00c97 100644 --- a/unix/tclUnixFCmd.c +++ b/unix/tclUnixFCmd.c @@ -1838,7 +1838,7 @@ GetModeFromPermString( /* who */ switch (*(modeStringPtr+n+i)) { case 'u': - who |= 0x9c0; + who |= 0x9C0; continue; case 'g': who |= 0x438; @@ -1847,13 +1847,13 @@ GetModeFromPermString( who |= 0x207; continue; case 'a': - who |= 0xfff; + who |= 0xFFF; continue; } } who_found = 1; if (who == 0) { - who = 0xfff; + who = 0xFFF; } if (!op_found) { /* op */ @@ -1886,7 +1886,7 @@ GetModeFromPermString( what |= 0x49; continue; case 's': - what |= 0xc00; + what |= 0xC00; continue; case 't': what |= 0x200; |