From 8e1f7f57bc08b98d95beead0630964baf913cc0d Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 29 Jan 2019 00:34:32 +1100 Subject: Clarified Cursor details in Packrat.Graphs, added test for Find --- src/packrat-graphs.ads | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/packrat-graphs.ads') diff --git a/src/packrat-graphs.ads b/src/packrat-graphs.ads index 877be3a..0ef298e 100644 --- a/src/packrat-graphs.ads +++ b/src/packrat-graphs.ads @@ -33,7 +33,7 @@ package Packrat.Graphs is - No_Position : constant Cursor; + No_Position : constant My_Interfaces.Cursor'Class; Empty_Graph : constant Parse_Graph; @@ -339,7 +339,8 @@ private No_Node : constant Node := (My_Interfaces.Node with null record); - No_Position : constant Cursor := (My_Interfaces.Cursor with null record); + No_Position_Actual : constant Cursor := (My_Interfaces.Cursor with null record); + No_Position : constant My_Interfaces.Cursor'Class := No_Position_Actual; Empty_Graph : constant Parse_Graph := (My_Interfaces.Graph with null record); -- cgit