mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-25 09:47:17 +00:00
Code Issues 1 Releases Wiki Activity

Revert to 9 char permission strings on windows.

Browse Source
This commit is contained in:
Calvin Rose 2020-03-14 12:00:11 -05:00
parent bac2b74b3d
commit c074615550
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/core/os.c
View File

@ -739,10 +739,10 @@ static Janet os_remove(int32_t argc, Janet *argv) {
#ifdef JANET_WINDOWS #ifdef JANET_WINDOWS
static const uint8_t *janet_decode_permissions(unsigned short m) { static const uint8_t *janet_decode_permissions(unsigned short m) {
uint8_t flags[3] = {0}; uint8_t flags[9] = {0};
flags[0] = (m & S_IREAD) ? 'r' : '-'; flags[0] = flags[3] = flags[6] = (m & S_IREAD) ? 'r' : '-';
flags[1] = (m & S_IWRITE) ? 'w' : '-'; flags[1] = flags[4] = flags[7] = (m & S_IWRITE) ? 'w' : '-';
flags[2] = (m & S_IEXEC) ? 'x' : '-'; flags[2] = flags[5] = flags[8] = (m & S_IEXEC) ? 'x' : '-';
return janet_string(flags, sizeof(flags)); return janet_string(flags, sizeof(flags));
} }