summaryrefslogtreecommitdiff
path: root/src/directed_graphs.ads
diff options
context:
space:
mode:
Diffstat (limited to 'src/directed_graphs.ads')
-rw-r--r--src/directed_graphs.ads17
1 files changed, 10 insertions, 7 deletions
diff --git a/src/directed_graphs.ads b/src/directed_graphs.ads
index 925948d..d89b647 100644
--- a/src/directed_graphs.ads
+++ b/src/directed_graphs.ads
@@ -795,8 +795,6 @@ private
type Graph_Access is access all Graph;
- Empty_Graph : constant Graph := (Ada.Finalization.Controlled with others => <>);
-
@@ -816,11 +814,6 @@ private
Position : out Cursor);
for Cursor'Read use Read;
- No_Element : constant Cursor :=
- (Container => null,
- Place => Node_Maps.No_Element,
- Sub_Index => Node_Vectors.Extended_Index'First);
-
@@ -897,6 +890,16 @@ private
+ Empty_Graph : constant Graph := (Ada.Finalization.Controlled with others => <>);
+
+ No_Element : constant Cursor :=
+ (Container => null,
+ Place => Node_Maps.No_Element,
+ Sub_Index => Node_Vectors.Extended_Index'First);
+
+
+
+
type Iterator is new Ada.Finalization.Limited_Controlled and
Graph_Iterator_Interfaces.Reversible_Iterator with
record