paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 09:11:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
parameters

git-svn-id: trunk@292 -
This commit is contained in:
florian 2005-06-09 07:42:40 +00:00
parent 84958dd3d9
commit 6992fde8fc
12 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/beos/sysutils.pp
View File

@ -94,7 +94,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;
begin begin
end; end;

2
rtl/emx/sysutils.pp
View File

@ -571,7 +571,7 @@ type TRec = record
end; end;
PSearchRec = ^SearchRec; 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; var SR: PSearchRec;
FStat: PFileFindBuf3; FStat: PFileFindBuf3;

2
rtl/go32v2/sysutils.pp
View File

@ -297,7 +297,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 Sr : PSearchrec; Var Sr : PSearchrec;

2
rtl/macos/sysutils.pp
View File

@ -316,7 +316,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 var
s: Str255; s: Str255;

2
rtl/morphos/sysutils.pp
View File

@ -242,7 +242,7 @@ end;
type type
PDOSSearchRec = ^SearchRec; 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 Const
faSpecial = faHidden or faSysFile or faVolumeID or faDirectory; faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;
var var

2
rtl/netware/sysutils.pp
View File

@ -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 begin
IF path = '' then IF path = '' then
exit (18); exit (18);

2
rtl/netwlibc/sysutils.pp
View File

@ -237,7 +237,7 @@ begin
end; end;
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 var
path0 : string; path0 : string;
p : longint; p : longint;

2
rtl/objpas/sysutils/filutilh.inc
View File

@ -78,7 +78,7 @@ Function FileTruncate (Handle,Size: Longint) : boolean;
Function FileAge (Const FileName : String): Longint; Function FileAge (Const FileName : String): Longint;
Function FileExists (Const FileName : String) : Boolean; Function FileExists (Const FileName : String) : Boolean;
Function DirectoryExists (Const Directory : 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; Function FindNext (Var Rslt : TSearchRec) : Longint;
Procedure FindClose (Var F : TSearchrec); Procedure FindClose (Var F : TSearchrec);
Function FileGetDate (Handle : Longint) : Longint; Function FileGetDate (Handle : Longint) : Longint;

2
rtl/os2/sysutils.pp
View File

@ -558,7 +558,7 @@ type TRec = record
end; end;
PSearchRec = ^SearchRec; 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; var SR: PSearchRec;
FStat: PFileFindBuf3; FStat: PFileFindBuf3;

2
rtl/unix/sysutils.pp
View File

@ -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 Var
GlobSearchRec : PGlobSearchRec; GlobSearchRec : PGlobSearchRec;

2
rtl/watcom/sysutils.pp
View File

@ -302,7 +302,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 Sr : PSearchrec; Var Sr : PSearchrec;

2
rtl/win32/sysutils.pp
View File

@ -255,7 +255,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;
begin begin
Rslt.Name:=Path; Rslt.Name:=Path;
Rslt.Attr:=attr; Rslt.Attr:=attr;