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

IDE: fixed loading dependency list keeping order, bug #10967

Browse Source 
git-svn-id: trunk@14489 -
This commit is contained in:
mattias 2008-03-10 16:44:20 +00:00
parent ceb551d1a8
commit b44b0d5c00
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
packager/packagedefs.pas
View File

@ -311,6 +311,8 @@ type
function PrevRequiresDependency: TPkgDependency;
procedure AddToList(var FirstDependency: TPkgDependency;
ListType: TPkgDependencyList);
procedure AddToEndOfList(var LastDependency: TPkgDependency;
ListType: TPkgDependencyList);
procedure RemoveFromList(var FirstDependency: TPkgDependency;
ListType: TPkgDependencyList);
procedure MoveUpInList(var FirstDependency: TPkgDependency;
@ -985,6 +987,7 @@ var
NewCount: Integer;
List: TFPList;
FileVersion: Integer;
Last: TPkgDependency;
begin
FileVersion:=XMLConfig.GetValue(ThePath+'Version',0);
NewCount:=XMLConfig.GetValue(ThePath+'Count',0);
@ -1001,9 +1004,15 @@ begin
end;
if SortList then
SortDependencyList(List);
Last:=First;
if Last<>nil then
while Last.NextDependency[ListType]<>nil do
Last:=Last.NextDependency[ListType];
for i:=0 to List.Count-1 do begin
TPkgDependency(List[i]).AddToList(First,ListType);
TPkgDependency(List[i]).Owner:=Owner;
TPkgDependency(List[i]).AddToEndOfList(Last,ListType);
if First=nil then
First:=Last;
PkgDependency.Owner:=Owner;
end;
List.Free;
end;
@ -1856,6 +1865,16 @@ begin
NextDependency[ListType].PrevDependency[ListType]:=Self;
end;
procedure TPkgDependency.AddToEndOfList(var LastDependency: TPkgDependency;
ListType: TPkgDependencyList);
begin
PrevDependency[ListType]:=LastDependency;
LastDependency:=Self;
NextDependency[ListType]:=nil;
if PrevDependency[ListType]<>nil then
PrevDependency[ListType].NextDependency[ListType]:=Self;
end;
procedure TPkgDependency.RemoveFromList(var FirstDependency: TPkgDependency;
ListType: TPkgDependencyList);
begin