From b9c2c358ac74c66736537d5b1eb44d42819f6ec1 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 9 May 2019 18:20:41 +0200
Subject: Make lists a generic package, add vhdl-lists.

---
 src/lists.adb | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'src/lists.adb')

diff --git a/src/lists.adb b/src/lists.adb
index 65407d943..f6739cd36 100644
--- a/src/lists.adb
+++ b/src/lists.adb
@@ -68,7 +68,7 @@ package body Lists is
       return Listt.Table (List).Nbr = 0;
    end Is_Empty;
 
-   procedure Append_Element (List: List_Type; Element: Node_Type)
+   procedure Append_Element (List: List_Type; Element: El_Type)
    is
       L : List_Record renames Listt.Table (List);
       C : Chunk_Index_Type;
@@ -91,7 +91,7 @@ package body Lists is
       L.Nbr := L.Nbr + 1;
    end Append_Element;
 
-   function Get_First_Element (List: List_Type) return Node_Type
+   function Get_First_Element (List: List_Type) return El_Type
    is
       L : List_Record renames Listt.Table (List);
    begin
@@ -100,7 +100,7 @@ package body Lists is
    end Get_First_Element;
 
    -- Add (append) an element only if it was not already present in the list.
-   procedure Add_Element (List: List_Type; El: Node_Type)
+   procedure Add_Element (List: List_Type; El: El_Type)
    is
       It : Iterator;
    begin
@@ -201,12 +201,12 @@ package body Lists is
       It.Remain := It.Remain - 1;
    end Next;
 
-   function Get_Element (It : Iterator) return Node_Type is
+   function Get_Element (It : Iterator) return El_Type is
    begin
       return Chunkt.Table (It.Chunk).Els (It.Chunk_Idx);
    end Get_Element;
 
-   procedure Set_Element (It : Iterator; El : Node_Type) is
+   procedure Set_Element (It : Iterator; El : El_Type) is
    begin
       Chunkt.Table (It.Chunk).Els (It.Chunk_Idx) := El;
    end Set_Element;
-- 
cgit v1.2.3