diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2019-01-29 00:34:32 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2019-01-29 00:34:32 +1100 |
| commit | 8e1f7f57bc08b98d95beead0630964baf913cc0d (patch) | |
| tree | 00a29bf6ee0f7f804c854c380dab03e79ab4b7c9 /src/packrat-graphs.ads | |
| parent | 6f15340717a5d2dccdcf8de0a03a161c5abeef70 (diff) | |
Clarified Cursor details in Packrat.Graphs, added test for Find
Diffstat (limited to 'src/packrat-graphs.ads')
| -rw-r--r-- | src/packrat-graphs.ads | 5 |
1 files changed, 3 insertions, 2 deletions
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); |