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

* Show target when compiling/installing

Browse Source 
git-svn-id: trunk@16934 -
This commit is contained in:
joost 2011-02-18 21:17:55 +00:00
parent 04017bd0f3
commit 8db33f71c7
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

@ -1042,9 +1042,9 @@ ResourceString
SWarnDepUnitNotFound = 'Warning: Dependency on unit %s is not supported for %s'; SWarnDepUnitNotFound = 'Warning: Dependency on unit %s is not supported for %s';
SWarnTargetDependsOnPackage = 'Warning: Target %s of package %s depends on another package (%s). These kind of dependencies are not processed'; SWarnTargetDependsOnPackage = 'Warning: Target %s of package %s depends on another package (%s). These kind of dependencies are not processed';
SWarnDependOnOtherPlatformPackage = 'Warning: Package %s depends on package %s which is not available for the %s platform'; SWarnDependOnOtherPlatformPackage = 'Warning: Package %s depends on package %s which is not available for the %s platform';
SWarnStartBuildingPackage = 'Start building package %s'; SWarnStartBuildingPackage = 'Start building package %s for target %s.';
SWarnBuildingPackagecomplete = '[%3.0f%%] Built target %s'; SWarnBuildingPackagecomplete = '[%3.0f%%] Built target %s';
SWarnInstallationPackagecomplete = 'Installation package %s succeeded'; SWarnInstallationPackagecomplete = 'Installation package %s for target %s succeeded';
SWarnCleanPackagecomplete = 'Clean of package %s completed'; SWarnCleanPackagecomplete = 'Clean of package %s completed';
SInfoCompilingPackage = 'Compiling package %s'; SInfoCompilingPackage = 'Compiling package %s';
@ -4899,7 +4899,7 @@ begin
For I:=0 to Packages.Count-1 do For I:=0 to Packages.Count-1 do
begin begin
P:=Packages.PackageItems[i]; P:=Packages.PackageItems[i];
log(vlWarning,SWarnStartBuildingPackage,[P.Name]); log(vlWarning,SWarnStartBuildingPackage,[P.Name, Defaults.Target]);
If PackageOK(P) then If PackageOK(P) then
MaybeCompile(P); MaybeCompile(P);
@ -4923,7 +4923,7 @@ begin
P:=Packages.PackageItems[i]; P:=Packages.PackageItems[i];
If PackageOK(P) then If PackageOK(P) then
Install(P); Install(P);
log(vlWarning, SWarnInstallationPackagecomplete, [P.Name]); log(vlWarning, SWarnInstallationPackagecomplete, [P.Name, Defaults.Target]);
end; end;
If Assigned(AfterInstall) then If Assigned(AfterInstall) then
AfterInstall(Self); AfterInstall(Self);