diff options
Diffstat (limited to 'avx512-0037785/rtl/unix/bunxovl.inc')
| -rw-r--r-- | avx512-0037785/rtl/unix/bunxovl.inc | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/avx512-0037785/rtl/unix/bunxovl.inc b/avx512-0037785/rtl/unix/bunxovl.inc index 12025aad32..c5774ea3a3 100644 --- a/avx512-0037785/rtl/unix/bunxovl.inc +++ b/avx512-0037785/rtl/unix/bunxovl.inc @@ -248,10 +248,16 @@ begin end; {$endif} +const + { read/write permission for everyone } + MODE_FPOPEN = S_IWUSR OR S_IRUSR OR + S_IWGRP OR S_IRGRP OR + S_IWOTH OR S_IROTH; + Function FpOpen (path : pChar; flags : cInt):cInt; {$ifdef VER2_0}inline;{$endif} begin - FpOpen:=FpOpen(path,flags,438); + FpOpen:=FpOpen(path,flags,MODE_FPOPEN); end; Function FpOpen (const path : RawByteString; flags : cInt):cInt; {$ifdef VER2_0}inline;{$endif} @@ -259,14 +265,14 @@ var SystemPath: RawByteString; Begin SystemPath:=ToSingleByteFileSystemEncodedFileName(path); - FpOpen:=FpOpen(pchar(SystemPath),flags,438); + FpOpen:=FpOpen(pchar(SystemPath),flags,MODE_FPOPEN); end; Function FpOpen (path : String; flags : cInt):cInt; begin path:=path+#0; - FpOpen:=FpOpen(@path[1],flags,438); + FpOpen:=FpOpen(@path[1],flags,MODE_FPOPEN); end; Function FpOpen (path : String; flags : cInt; Mode: TMode):cInt; |