diff options
Diffstat (limited to 'src/directed_graphs.ads')
-rw-r--r-- | src/directed_graphs.ads | 17 |
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 |