paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 20:41:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

cody: lvlgraph: todo

Browse Source 
git-svn-id: trunk@40436 -
This commit is contained in:
mattias 2013-02-27 17:00:41 +00:00
parent f8463d9cc9
commit d4de1ef329
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/ide/codyctrls.pas
View File

@ -2610,6 +2610,7 @@ begin
Edge.fBackEdge:=false; Edge.fBackEdge:=false;
if Edge.Source=Node then begin if Edge.Source=Node then begin
// edge Source=Target // edge Source=Target
//debugln(['TLvlGraph.CreateTopologicalLevels disable edge ',Edge.AsString]);
Edge.fBackEdge:=true; Edge.fBackEdge:=true;
DecRemainingInEdgeCount(Node); DecRemainingInEdgeCount(Node);
end; end;
@ -2622,6 +2623,8 @@ begin
for i:=1 to NodeCount do begin for i:=1 to NodeCount do begin
if RootNodes.Count=0 then begin if RootNodes.Count=0 then begin
// all nodes have active InEdges => all nodes in cycles // all nodes have active InEdges => all nodes in cycles
// ToDo: deactivate edges in cycles until RootNodes.Count>0
// find a not visited node with the smallest number of active InEdges // find a not visited node with the smallest number of active InEdges
// ToDo: consider Edge.Size // ToDo: consider Edge.Size
BestNode:=nil; BestNode:=nil;
@ -2957,7 +2960,7 @@ begin
if Edge.Target.FInEdges.IndexOf(Edge)<0 then if Edge.Target.FInEdges.IndexOf(Edge)<0 then
raise Exception.Create(''); raise Exception.Create('');
if WithBackEdge and (Edge.BackEdge<>Edge.IsBackEdge) then if WithBackEdge and (Edge.BackEdge<>Edge.IsBackEdge) then
raise Exception.Create('Edge.BackEdge '+Edge.AsString); raise Exception.Create('Edge.BackEdge '+Edge.AsString+' Edge.BackEdge='+dbgs(Edge.BackEdge)+' Edge.IsBackEdge='+dbgs(Edge.IsBackEdge)+' Source.Index='+dbgs(Edge.Source.Level.Index)+' Target.Index='+dbgs(Edge.Target.Level.Index));
end; end;
for j:=0 to Node.InEdgeCount-1 do begin for j:=0 to Node.InEdgeCount-1 do begin
Edge:=Node.InEdges[j]; Edge:=Node.InEdges[j];