paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 19:38:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

# revisions: 47064

Browse Source 
git-svn-id: branches/fixes_3_2@47092 -
This commit is contained in:
marco 2020-10-11 15:18:17 +00:00
parent bcc911c8a4
commit 8d5e43c07e
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/unix/bunxovl.inc
View File

@ -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;