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

Packager: fix a crash when trying to install FPCTest related IDE packages. Issue #19900, patch from Anton

Browse Source 
git-svn-id: trunk@31925 -
This commit is contained in:
juha 2011-08-09 17:29:27 +00:00
parent 0b41f66423
commit cfa79a82d9
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packager/packagedefs.pas
View File

@ -1083,12 +1083,16 @@ end;
procedure DeleteDependencyInList(ADependency: TPkgDependency; procedure DeleteDependencyInList(ADependency: TPkgDependency;
var First: TPkgDependency; ListType: TPkgDependencyList); var First: TPkgDependency; ListType: TPkgDependencyList);
var var
NextDependency: TPkgDependency; NextDependency, PrevDependency: TPkgDependency;
begin begin
NextDependency:=ADependency.NextDependency[ListType]; NextDependency := ADependency.NextDependency[ListType];
PrevDependency := ADependency.PrevDependency[ListType];
if First = ADependency then First := NextDependency;
if Assigned(NextDependency) then
NextDependency.PrevDependency[ListType] := PrevDependency;
if Assigned(PrevDependency) then
PrevDependency.NextDependency[ListType] := NextDependency;
ADependency.Free; ADependency.Free;
if First=ADependency then
First:=NextDependency;
end; end;
procedure FreeDependencyList(var First: TPkgDependency; procedure FreeDependencyList(var First: TPkgDependency;