paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:39:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed loading project dependencies with min/maxversion, issue #38587

Browse Source 
git-svn-id: trunk@64759 -
This commit is contained in:
mattias 2021-03-06 20:58:19 +00:00
parent 8981264152
commit 66352de6ae
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packager/pkgmanager.pas
View File

@ -3277,10 +3277,21 @@ function TPkgManager.OpenProjectDependencies(AProject: TProject;
var
BrokenDependencies: TFPList;
OpmRes: TModalResult;
Dependency: TPkgDependency;
IgnorePackage: TLazPackage;
begin
Result := mrOk;
OpmRes := mrOk;
PackageGraph.OpenRequiredDependencyList(AProject.FirstRequiredDependency);
Dependency:=AProject.FirstRequiredDependency;
while Dependency<>nil do begin
IgnorePackage:=PackageGraph.FindPackageWithName(Dependency.PackageName,nil);
if (IgnorePackage<>nil) and Dependency.IsCompatible(IgnorePackage) then
IgnorePackage:=nil;
PackageGraph.OpenDependency(Dependency,false,IgnorePackage);
Dependency:=Dependency.NextRequiresDependency;
end;
if ReportMissing then begin
BrokenDependencies := PackageGraph.FindAllBrokenDependencies(nil,
AProject.FirstRequiredDependency);