paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-21 11:41:28 +02: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
FFileName:=AFileName;
If Mode=fmcreate then
FHandle:=FileCreate(AFileName)
FHandle:=FileCreate(AFileName,Rights)
else
FHAndle:=FileOpen(AFileName,Mode);

10
rtl/unix/sysutils.pp
View File

@ -200,16 +200,8 @@ end;
Function FileCreate (Const FileName : String;Mode : Longint) : Longint;
Var LinuxFlags : longint;
BEGIN
LinuxFlags:=0;
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);
FileCreate:=fpOpen(FileName,O_RdWr or O_Creat or O_Trunc,Mode);
end;