From 42d3982f1e6335cb99c382ddd91c324e5fa458ad Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 20 Apr 2020 15:49:56 +1000
Subject: Updated and fixed tests, fixed Pass_Forward array sliding bug

---
 test/packrat-lexer-debug.ads | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'test/packrat-lexer-debug.ads')

diff --git a/test/packrat-lexer-debug.ads b/test/packrat-lexer-debug.ads
index a1cb768..05d05b2 100644
--- a/test/packrat-lexer-debug.ads
+++ b/test/packrat-lexer-debug.ads
@@ -46,9 +46,13 @@ package Packrat.Lexer.Debug is
            (This : in Lexer_Context)
         return Result_Status;
 
+    function Has_Pass
+           (This : in Lexer_Context)
+        return Boolean;
+
     function Pass
            (This : in Lexer_Context)
-        return access Element_Array;
+        return Element_Array;
 
     function Length
            (Vec : in Token_Vector)
-- 
cgit