From b60f27407c20344f5d48fa7d6f3efe5f9d4e87fb Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 14 Jan 2019 23:31:07 +1100 Subject: Tests added for Stamp and Ignore procedures in Packrat.Lexer --- src/packrat-lexer.adb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/packrat-lexer.adb') diff --git a/src/packrat-lexer.adb b/src/packrat-lexer.adb index e1765d9..a563f69 100644 --- a/src/packrat-lexer.adb +++ b/src/packrat-lexer.adb @@ -135,14 +135,16 @@ package body Packrat.Lexer is procedure Stamp - (Context : in out Lexer_Context) is + (Input : in Element_Array; + Context : in out Lexer_Context) is begin null; end Stamp; procedure Ignore - (Context : in out Lexer_Context) is + (Input : in Element_Array; + Context : in out Lexer_Context) is begin null; end Ignore; -- cgit