1 files changed, 32 insertions, 0 deletions
diff --git a/test/packrat-lexer-debug.adb b/test/packrat-lexer-debug.adb
index fdd9ae4..f13a675 100644
--- a/test/packrat-lexer-debug.adb
+++ b/test/packrat-lexer-debug.adb
@@ -86,6 +86,38 @@ package body Packrat.Lexer.Debug is
     end Debug_String;
 
 
+
+
+
+    function So_Far
+           (This : in Lexer_Context)
+        return Token_Vector is
+    begin
+        return (This.Result_So_Far with null record);
+    end So_Far;
+
+    function Position
+           (This : in Lexer_Context)
+        return Positive is
+    begin
+        return This.Position;
+    end Position;
+
+    function Status
+           (This : in Lexer_Context)
+        return Result_Status is
+    begin
+        return This.Status;
+    end Status;
+
+    function Pass
+           (This : in Lexer_Context)
+        return access Element_Array is
+    begin
+        return This.Pass_Forward;
+    end Pass;
+
+
 end Packrat.Lexer.Debug;