paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 03:53:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some corrections after remarks by Alexey Torgashin

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-25 19:48:13 +02:00
parent 208f655b6f
commit fef4ae489a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fpmkunit/src/fpmkunit.pp
View File

@ -1386,7 +1386,7 @@ Type
Function InstallPackageSourceFiles(APAckage : TPackage; stt : TSourceTypes; ttt : TTargetTypes; Const Dest : String; Const InstallMode: TInstallMode):Boolean; Function InstallPackageSourceFiles(APAckage : TPackage; stt : TSourceTypes; ttt : TTargetTypes; Const Dest : String; Const InstallMode: TInstallMode):Boolean;
Function FileNewer(const Src,Dest : String) : Boolean; Function FileNewer(const Src,Dest : String) : Boolean;
Procedure LogSearchPath(APackage: TPackage;const ASearchPathName:string;Path:TConditionalStrings; ACPU:TCPU;AOS:TOS); Procedure LogSearchPath(APackage: TPackage;const ASearchPathName:string;Path:TConditionalStrings; ACPU:TCPU;AOS:TOS);
Function FindFileInPath(APackage: TPackage; Path:TConditionalStrings; AFileName:String; var FoundPath:String;ACPU:TCPU;AOS:TOS):Boolean; Function FindFileInPath(APackage: TPackage; Path:TConditionalStrings; const AFileName:String; var FoundPath:String;ACPU:TCPU;AOS:TOS):Boolean;
procedure GetDirectoriesFromFilelist(const AFileList, ADirectoryList: TStringList); procedure GetDirectoriesFromFilelist(const AFileList, ADirectoryList: TStringList);
procedure AddPackageMacrosToDictionary(const APackage: TPackage; ADictionary: TDictionary); procedure AddPackageMacrosToDictionary(const APackage: TPackage; ADictionary: TDictionary);
@ -1416,7 +1416,7 @@ Type
Procedure CmdDeleteFiles(List : TStrings); Procedure CmdDeleteFiles(List : TStrings);
procedure CmdDeleteDestFiles(List: TStrings; const DestDir: String); procedure CmdDeleteDestFiles(List: TStrings; const DestDir: String);
Procedure CmdArchiveFiles(List : TStrings; Const ArchiveFile : String); Procedure CmdArchiveFiles(List : TStrings; Const ArchiveFile : String);
Procedure CmdRenameFile(SourceName, DestName : String); Procedure CmdRenameFile(const SourceName, DestName : String);
Procedure CmdRemoveDirs(List: TStrings); Procedure CmdRemoveDirs(List: TStrings);
Procedure CmdRemoveTrees(List: TStrings); Procedure CmdRemoveTrees(List: TStrings);
Procedure ExecuteCommands(Commands : TCommands; At : TCommandAt; APackage: TPackage = nil); Procedure ExecuteCommands(Commands : TCommands; At : TCommandAt; APackage: TPackage = nil);
@ -7350,7 +7350,7 @@ begin
end; end;
end; end;
procedure TBuildEngine.CmdRenameFile(SourceName, DestName: String); procedure TBuildEngine.CmdRenameFile(const SourceName, DestName: String);
var var
Args: TStrings; Args: TStrings;
@ -7519,7 +7519,7 @@ end;
function TBuildEngine.FindFileInPath(APackage: TPackage; function TBuildEngine.FindFileInPath(APackage: TPackage;
Path: TConditionalStrings; AFileName: String; var FoundPath: String; Path: TConditionalStrings; const AFileName: String; var FoundPath: String;
ACPU: TCPU; AOS: TOS): Boolean; ACPU: TCPU; AOS: TOS): Boolean;
var var
I : Integer; I : Integer;