lists: delte Remove_Nth_Element (was unused).

2 files changed, 0 insertions, 18 deletions

diff --git a/src/lists.adb b/src/lists.adb
index ff0702fbf..395409d93 100644
--- a/src/lists.adb
+++ b/src/lists.adb
@@ -162,19 +162,6 @@ package body Lists is
       Append_Element (List, El);
    end Add_Element;
 
-   procedure Remove_Nth_Element (List: List_Type; N: Natural)
-   is
-      Nbr : constant Natural := Get_Nbr_Elements (List);
-   begin
-      if N >= Nbr then
-         raise Program_Error;
-      end if;
-      for I in N .. Nbr - 2 loop
-         Listt.Table (List).Els (I) := Listt.Table (List).Els (I + 1);
-      end loop;
-      Listt.Table (List).Nbr := Nbr - 1;
-   end Remove_Nth_Element;
-
    procedure Set_Nbr_Elements (List: List_Type; N: Natural) is
    begin
       if N > Get_Nbr_Elements (List) then
diff --git a/src/lists.ads b/src/lists.ads
index 7645e3403..52b528398 100644
--- a/src/lists.ads
+++ b/src/lists.ads
@@ -64,9 +64,6 @@ package Lists is
    -- Can be used only to shrink the list.
    --   procedure Set_Nbr_Elements (List: in Iir_List; N: Natural);
    --
-   -- Remove an element from the list.
-   --   procedure remove_Nth_Element (List: in Iir_List; N: Natural);
-   --
    -- Return the position of the last element.
    -- Return -1 if the list is empty.
    --   function Get_Last_Element_Position (List: in Iir_List) return Integer;
@@ -104,8 +101,6 @@ package Lists is
    -- Can be used only to shrink the list.
    procedure Set_Nbr_Elements (List: List_Type; N: Natural);
 
-   procedure Remove_Nth_Element (List : List_Type; N: Natural);
-
    function Get_Last_Element_Position (List: List_Type) return Integer;
 
    --  Clear the list.