paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-18 14:50:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* log archive name that is created

Browse Source 
git-svn-id: trunk@10281 -
This commit is contained in:
peter 2008-02-10 19:10:21 +00:00
parent 36316bea75
commit e3f09b5294
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -973,7 +973,7 @@ ResourceString
SInfoExecutingCommand = 'Executing command "%s %s"';
SInfoCreatingOutputDir = 'Creating output dir "%s"';
SInfoInstallingPackage = 'Installing package %s';
SInfoArchivingPackage = 'Archiving package %s';
SInfoArchivingPackage = 'Archiving package %s in "%s"';
SInfoCleaningPackage = 'Cleaning package %s';
SInfoManifestPackage = 'Creating manifest for package %s';
SInfoCopyingFile = 'Copying file "%s" to "%s"';
@ -4090,7 +4090,8 @@ Var
ICPU : TCPU;
IOS : TOS;
begin
Log(vlInfo,SInfoArchivingPackage,[APackage.Name]);
A:=FStartDir+ APackage.FileName + ZipExt;
Log(vlInfo,SInfoArchivingPackage,[APackage.Name,A]);
try
If (APackage.Directory<>'') then
EnterDir(APackage.Directory);
@ -4118,8 +4119,6 @@ begin
for i := 0 to L.Count-1 do
Log(vlDebug, Format(SDbgArchivingFile, [L[i]]));
A:=FStartDir+ APackage.FileName + ZipExt;
{$ifdef HAS_UNIT_ZIPPER}
if not Assigned(ArchiveFilesProc) then
begin