paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 18:51:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed rights parameter in TFileStream.Create and FileCreate

Browse Source 
git-svn-id: trunk@3862 -
This commit is contained in:
michael 2006-06-13 22:01:49 +00:00
parent a3c573cf8d
commit dc0e8428a6
2 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/streams.inc
View File

@ -433,7 +433,7 @@ constructor TFileStream.Create(const AFileName: string; Mode: Word; Rights: Card
begin begin
FFileName:=AFileName; FFileName:=AFileName;
If Mode=fmcreate then If Mode=fmcreate then
FHandle:=FileCreate(AFileName) FHandle:=FileCreate(AFileName,Rights)
else else
FHAndle:=FileOpen(AFileName,Mode); FHAndle:=FileOpen(AFileName,Mode);

10
rtl/unix/sysutils.pp
View File

@ -200,16 +200,8 @@ end;
Function FileCreate (Const FileName : String;Mode : Longint) : Longint; Function FileCreate (Const FileName : String;Mode : Longint) : Longint;
Var LinuxFlags : longint;
BEGIN BEGIN
LinuxFlags:=0; FileCreate:=fpOpen(FileName,O_RdWr or O_Creat or O_Trunc,Mode);
Case (Mode and 3) of
0 : LinuxFlags:=LinuxFlags or O_RdOnly;
1 : LinuxFlags:=LinuxFlags or O_WrOnly;
2 : LinuxFlags:=LinuxFlags or O_RdWr;
end;
FileCreate:=fpOpen(FileName,LinuxFlags or O_Creat or O_Trunc);
end; end;