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

IDE: unit dependencies: fixed clearing marks

Browse Source 
git-svn-id: trunk@42888 -
This commit is contained in:
mattias 2013-09-19 19:43:30 +00:00
parent 0b0e7eb4b0
commit 2c615ca95a
1 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/unitdependencies.pas
View File

@ -1210,6 +1210,17 @@ var
Result:=TUDUses(UDItem).GetSCCNode;
end;
procedure ClearNode(Node: TUDSCCNode);
begin
Node.TarjanIndex:=-1;
Node.TarjanLowLink:=-1;
Node.TarjanVisiting:=false;
if WithImplementationUses then
Node.InImplCycle:=false
else
Node.InIntfCycle:=false;
end;
procedure SearchNode(Node: TUDSCCNode); forward;
procedure SearchEdge(FromNode, ToNode: TUDSCCNode);
@ -1277,19 +1288,17 @@ var
AVLNode: TAVLTreeNode;
UDUnit: TUDUnit;
Node: TUDSCCNode;
i: Integer;
begin
// init
TarjanIndex:=0;
for AVLNode in FUsesGraph.FilesTree do begin
UDUnit:=TUDUnit(AVLNode.Data);
Node:=GetNode(UDUnit);
Node.TarjanIndex:=-1;
Node.TarjanLowLink:=-1;
Node.TarjanVisiting:=false;
if WithImplementationUses then
Node.InImplCycle:=false
else
Node.InIntfCycle:=false;
ClearNode(Node);
if UDUnit.UsesUnits<>nil then
for i:=0 to UDUnit.UsesUnits.Count-1 do
ClearNode(GetNode(TObject(UDUnit.UsesUnits[i])));
end;
Stack:=TFPList.Create;
try