* patch from Ales to Katona to change some var parameters to out

parameters

git-svn-id: trunk@292 -

rtl/beos/sysutils.pp

@@ -94,7 +94,7 @@ begin
 end;
 
 
-Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
+Function FindFirst (Const Path : String; Attr : Longint; out Rslt : TSearchRec) : Longint;
 begin
 end;
 

rtl/emx/sysutils.pp

@@ -571,7 +571,7 @@ type    TRec = record
         end;
         PSearchRec = ^SearchRec;
 
-function FindFirst (const Path: string; Attr: longint; var Rslt: TSearchRec): longint;
+function FindFirst (const Path: string; Attr: longint; out Rslt: TSearchRec): longint;
 
 var SR: PSearchRec;
     FStat: PFileFindBuf3;

rtl/go32v2/sysutils.pp

@@ -297,7 +297,7 @@ begin
 end;
 
 
-Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
+Function FindFirst (Const Path : String; Attr : Longint; out Rslt : TSearchRec) : Longint;
 
 Var Sr : PSearchrec;
 

rtl/macos/sysutils.pp

@@ -316,7 +316,7 @@ begin
 end;
 
 
-Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
+Function FindFirst (Const Path : String; Attr : Longint; out Rslt : TSearchRec) : Longint;
   var
     s: Str255;
 

rtl/morphos/sysutils.pp

@@ -242,7 +242,7 @@ end;
 type
   PDOSSearchRec = ^SearchRec;
 
-Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
+Function FindFirst (Const Path : String; Attr : Longint; Out Rslt : TSearchRec) : Longint;
 Const
   faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
 var

rtl/netware/sysutils.pp

@@ -218,7 +218,7 @@ END;
 
 
 
-Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
+Function FindFirst (Const Path : String; Attr : Longint; out Rslt : TSearchRec) : Longint;
 begin
   IF path = '' then
     exit (18);

rtl/netwlibc/sysutils.pp

@@ -237,7 +237,7 @@ begin
   end;
 end;
 
-function findfirst(const path : string;attr : longint;var Rslt : TsearchRec) : longint;
+function findfirst(const path : string;attr : longint; out Rslt : TsearchRec) : longint;
 var
   path0 : string;
   p     : longint;

rtl/objpas/sysutils/filutilh.inc

@@ -78,7 +78,7 @@ Function FileTruncate (Handle,Size: Longint) : boolean;
 Function FileAge (Const FileName : String): Longint;
 Function FileExists (Const FileName : String) : Boolean;
 Function DirectoryExists (Const Directory : String) : Boolean;
-Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
+Function FindFirst (Const Path : String; Attr : Longint; out Rslt : TSearchRec) : Longint;
 Function FindNext (Var Rslt : TSearchRec) : Longint;
 Procedure FindClose (Var F : TSearchrec);
 Function FileGetDate (Handle : Longint) : Longint;

rtl/os2/sysutils.pp

@@ -558,7 +558,7 @@ type    TRec = record
         end;
         PSearchRec = ^SearchRec;
 
-function FindFirst (const Path: string; Attr: longint; var Rslt: TSearchRec): longint;
+function FindFirst (const Path: string; Attr: longint; out Rslt: TSearchRec): longint;
 
 var SR: PSearchRec;
     FStat: PFileFindBuf3;

rtl/unix/sysutils.pp

@@ -554,7 +554,7 @@ end;
 
 
 
-Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
+Function FindFirst (Const Path : String; Attr : Longint; out Rslt : TSearchRec) : Longint;
 
 Var
   GlobSearchRec : PGlobSearchRec;

rtl/watcom/sysutils.pp

@@ -302,7 +302,7 @@ begin
 end;
 
 
-Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
+Function FindFirst (Const Path : String; Attr : Longint; out Rslt : TSearchRec) : Longint;
 
 Var Sr : PSearchrec;
 

rtl/win32/sysutils.pp

@@ -255,7 +255,7 @@ begin
 end;
 
 
-Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
+Function FindFirst (Const Path : String; Attr : Longint; out Rslt : TSearchRec) : Longint;
 begin
   Rslt.Name:=Path;
   Rslt.Attr:=attr;