X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=src%2Fposix%2Fgeneric%2FHost%2FMod%2FFiles.cp;h=76c7a5b8f8b3e096ebedf2748683ef6a4a4b9cbb;hp=e9a1e496f58ce8722786070a171718757c3aaa55;hb=2f6052eb7f36254f3f459addb169dd7c07786cf7;hpb=eb117cae2600763b67692ee65f22d33efdb89fe5

diff --git a/src/posix/generic/Host/Mod/Files.cp b/src/posix/generic/Host/Mod/Files.cp
index e9a1e49..76c7a5b 100644
--- a/src/posix/generic/Host/Mod/Files.cp
+++ b/src/posix/generic/Host/Mod/Files.cp
@@ -340,7 +340,7 @@ MODULE HostFiles;
     VAR i: INTEGER; sep: BOOLEAN; err: unistd.int; s: sysstat.struct_stat; mode: sysstat.mode_t;
   BEGIN
     i := 0; err := 0;
-    mode := ORD(BITS(511(*a=rwx*)) - BITS(sysstat.umask(0)));
+    mode := S.VAL((*!!!*)sysstat.mode_t, ORD(BITS(511(*a=rwx*)) - BITS(sysstat.umask(0))));
     WHILE (err = 0) & (path[i] # 0X) DO
       WHILE (path[i] # "/") & (path[i] # 0X) DO INC(i) END;
       sep := path[i] = "/";
@@ -429,7 +429,7 @@ MODULE HostFiles;
             IF IsRegFile(s) THEN
               if := GetFileByInode(s.st_ino);
               IF (if = NIL) OR isShared & (if.state = shared) THEN
-                mode := ORD(BITS(rwrwrw) - BITS(sysstat.umask(0)));
+                mode := S.VAL((*!!!*)sysstat.mode_t, ORD(BITS(rwrwrw) - BITS(sysstat.umask(0))));
                 IF isShared THEN flags := fcntl.O_RDONLY
                 ELSE flags := fcntl.O_RDWR
                 END;