Fix minor issues causing compiler warnings

skordal · Aug 17, 2020 · 4ec4837 · 4ec4837
1 parent d132331
commit 4ec4837
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 4 deletions.
diff --git a/src/regex-matchers.adb b/src/regex-matchers.adb
@@ -36,7 +36,7 @@ package body Regex.Matchers is
       end loop;
 
       if Current_State.Accepting then
-         Match_Id := Current_State.Acceptance_id;
+         Match_Id := Current_State.Acceptance_Id;
       end if;
 
       return Current_State.Accepting;

diff --git a/src/regex-regular_expressions.ads b/src/regex-regular_expressions.ads
@@ -6,7 +6,6 @@ with Regex.Syntax_Trees;
 with Regex.State_Machines;
 
 private with Ada.Finalization;
-private with Ada.Text_IO;
 
 package Regex.Regular_Expressions is
 

diff --git a/tests/regex_test_cases.adb b/tests/regex_test_cases.adb
@@ -290,8 +290,6 @@ package body Regex_Test_Cases is
             Left_Child => Clone_Tree (First_Expression.Get_Syntax_Tree, Id_Counter),
             Right_Child => Clone_Tree (Second_Expression.Get_Syntax_Tree, Id_Counter));
          Test_Expr : constant Regular_Expression := Create (Combined_Tree);
-
-         Match_Id : Natural;
       begin
          Free_Recursively (Combined_Tree);