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

* Avoid an unlimited loop when only one package is being installed

Browse Source 
git-svn-id: trunk@29351 -
This commit is contained in:
joost 2014-12-28 15:42:05 +00:00
parent 8e7d649a4d
commit 7c2295b83b
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fppkg/src/pkgcommands.pp
View File

@ -473,14 +473,13 @@ begin
PackageAvailableVersionStr(D.PackageName),status])
end
end;
if assigned(ManifestPackages) then
if assigned(ManifestPackages) and (PackNr<ManifestPackages.Count-1) then
begin
inc(PackNr);
if PackNr<ManifestPackages.Count then
P := ManifestPackages[PackNr]
else
P := nil;
end;
P := ManifestPackages[PackNr]
end
else
p := nil;
end;
// Give error on first missing dependency
if assigned(MissingDependency) then