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

Merged revisions 3862 via svnmerge from

Browse Source 
svn+ssh://svn.freepascal.org/FPC/svn/fpc/trunk

........
  r3862 | michael | 2006-06-14 00:01:49 +0200 (Wed, 14 Jun 2006) | 1 line
  
  + Fixed rights parameter in TFileStream.Create and FileCreate
........

git-svn-id: branches/fixes_2_0@3863 -
This commit is contained in:
michael 2006-06-13 22:03:34 +00:00
parent a859abc406
commit b67b8477bd
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

@ -432,7 +432,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);
If FHandle<0 then If FHandle<0 then

10
rtl/unix/sysutils.pp
View File

@ -215,16 +215,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;