paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 03:27:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed GetAllRequiredPackages for a package

Browse Source 
git-svn-id: trunk@40301 -
This commit is contained in:
mattias 2013-02-13 18:35:34 +00:00
parent 1ddc559182
commit 3b990d50da
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ideintf/packageintf.pas
View File

@ -1,4 +1,3 @@
{ $Id$ }
{
*****************************************************************************
* *

4
packager/packagesystem.pas
View File

@ -5234,6 +5234,10 @@ var
begin
List:=nil;
MarkAllPackagesAsNotVisited;
if APackage<>nil then begin
FirstDependency:=APackage.FirstRequiredDependency;
APackage.Flags:=APackage.Flags+[lpfVisited];
end;
// create topological list, beginning with the leaves
GetTopologicalOrder(FirstDependency,DepLevel);
if not (pirCompileOrder in Flags) then begin