aboutsummaryrefslogtreecommitdiff
path: root/src/kompsos-collector.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/kompsos-collector.ads')
-rw-r--r--src/kompsos-collector.ads4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/kompsos-collector.ads b/src/kompsos-collector.ads
index 93fd6d4..ac451c2 100644
--- a/src/kompsos-collector.ads
+++ b/src/kompsos-collector.ads
@@ -100,6 +100,10 @@ private
+ -- Used to keep track of and connect up bookkeeping nodes corresponding to
+ -- graph nodes with more than one parent, so as to avoid ending up with an
+ -- exponential tree instead of the desired directed acyclic graph.
+
type Loose_Book is record
Used : Positive := 1;
Ptr : Graph_Component_Access := null;