+ Fixed rights parameter in TFileStream.Create and FileCreate

git-svn-id: trunk@3862 -

rtl/objpas/classes/streams.inc

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

rtl/unix/sysutils.pp

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