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

Packager: Fixed possible AV

Browse Source 
git-svn-id: trunk@59924 -
This commit is contained in:
joost 2018-12-28 16:51:41 +00:00
parent 1bcbc5521d
commit 4ddac1ec45
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packager/packagesystem.pas
View File

@ -1583,7 +1583,7 @@ function TLazPackageGraph.FindRuntimePkgOnlyRecursively(
RequiredPackage: TLazPackage;
begin
while CurDependency<>nil do begin
if CurDependency.LoadPackageResult=lprSuccess then begin
if (CurDependency.LoadPackageResult=lprSuccess) and (CurDependency.DependencyType=pdtLazarus) then begin
RequiredPackage:=CurDependency.RequiredPackage;
if (not (lpfVisited in RequiredPackage.Flags)) then begin
if RequiredPackage.PackageType=lptRunTimeOnly then