Merged revisions 3862 via svnmerge from

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 -

rtl/objpas/classes/streams.inc

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

rtl/unix/sysutils.pp

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