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

* Warn when a package is not installed for current target

Browse Source 
* Do not re-process packages which are already installed within the same fpmake-run

git-svn-id: trunk@18798 -
This commit is contained in:
joost 2011-08-21 12:02:51 +00:00
parent 971c1b1874
commit 62f33a24c4
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1116,7 +1116,8 @@ ResourceString
SWarnStartCompilingPackage = 'Start compiling package %s for target %s.';
SWarnCompilingPackagecompleteProgress = '[%3.0f%%] Compiled package %s';
SWarnCompilingPackagecomplete = 'Compiled package %s';
SWarnSkipPackageTarget = '[%3.0f%%] Skipped package %s which has been disabled for target %s';
SWarnSkipPackageTargetProgress = '[%3.0f%%] Skipped package %s which has been disabled for target %s';
SWarnSkipPackageTarget = 'Skipped package %s which has been disabled for target %s';
SWarnInstallationPackagecomplete = 'Installation package %s for target %s succeeded';
SWarnCleanPackagecomplete = 'Clean of package %s completed';
@ -4251,7 +4252,7 @@ begin
// - Package in this fpmake.pp
// - LocalUnitDir
// - GlobalUnitDir
if (APackage.State in [tsCompiled, tsNoCompile]) then
if (APackage.State in [tsCompiled, tsNoCompile, tsInstalled]) then
begin
APackage.UnitDir:=IncludeTrailingPathDelimiter(FStartDir)+IncludeTrailingPathDelimiter(APackage.Directory)+APackage.GetUnitsOutputDir(Defaults.CPU,Defaults.OS);
end;
@ -5453,7 +5454,7 @@ begin
else
begin
inc(FProgressCount);
log(vlWarning,SWarnSkipPackageTarget,[(FProgressCount)/FProgressMax * 100, P.Name, Defaults.Target]);
log(vlWarning,SWarnSkipPackageTargetProgress,[(FProgressCount)/FProgressMax * 100, P.Name, Defaults.Target]);
end;
end;
If Assigned(AfterCompile) then
@ -5472,8 +5473,12 @@ begin
begin
P:=Packages.PackageItems[i];
If PackageOK(P) then
Install(P);
log(vlWarning, SWarnInstallationPackagecomplete, [P.Name, Defaults.Target]);
begin
Install(P);
log(vlWarning, SWarnInstallationPackagecomplete, [P.Name, Defaults.Target]);
end
else
log(vlWarning,SWarnSkipPackageTarget,[P.Name, Defaults.Target]);
end;
If Assigned(AfterInstall) then
AfterInstall(Self);