paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 10:17:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

Packager: Remove useless PackageGraph indirection.

Browse Source
This commit is contained in:
Juha 2021-11-07 10:38:46 +02:00
parent b6e4d70821
commit da7c149b25
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packager/packagesystem.pas
View File

@ -2385,11 +2385,11 @@ procedure TLazPackageGraph.FreeAutoInstallDependencies;
var
Dependency: TPkgDependency;
begin
while Assigned(PackageGraph.FirstAutoInstallDependency) do
while Assigned(FirstAutoInstallDependency) do
begin
Dependency:=PackageGraph.FirstAutoInstallDependency;
Dependency:=FirstAutoInstallDependency;
Dependency.RequiredPackage:=nil;
Dependency.RemoveFromList(PackageGraph.FirstAutoInstallDependency,pddRequires);
Dependency.RemoveFromList(FirstAutoInstallDependency,pddRequires);
Dependency.Free;
end;
end;
@ -2464,8 +2464,7 @@ function TLazPackageGraph.FindBrokenDependencyPath(APackage: TLazPackage;
RequiredPackage.Flags:=RequiredPackage.Flags+[lpfVisited];
FindBroken(RequiredPackage.FirstRequiredDependency,PathList);
if PathList<>nil then begin
// broken dependency found
// -> add current package to list
// broken dependency found -> add current package to list
PathList.Insert(0,RequiredPackage);
exit;
end;