Make lists a generic package, add vhdl-lists.

4 files changed, 24 insertions, 3 deletions

diff --git a/src/vhdl/vhdl-lists.ads b/src/vhdl/vhdl-lists.ads
new file mode 100644
index 000000000..6d16b81bf
--- /dev/null
+++ b/src/vhdl/vhdl-lists.ads
@@ -0,0 +1,21 @@
+--  Variable-length lists.
+--  Copyright (C) 2019 Tristan Gingold
+--
+--  GHDL is free software; you can redistribute it and/or modify it under
+--  the terms of the GNU General Public License as published by the Free
+--  Software Foundation; either version 2, or (at your option) any later
+--  version.
+--
+--  GHDL is distributed in the hope that it will be useful, but WITHOUT ANY
+--  WARRANTY; without even the implied warranty of MERCHANTABILITY or
+--  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+--  for more details.
+--
+--  You should have received a copy of the GNU General Public License
+--  along with GHDL; see the file COPYING.  If not, write to the Free
+--  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+--  02111-1307, USA.
+with Vhdl.Types;
+with Lists;
+
+package Vhdl.Lists is new Standard.Lists (El_Type => Vhdl.Types.Node);
diff --git a/src/vhdl/vhdl-nodes.adb b/src/vhdl/vhdl-nodes.adb
index e4c6c979e..007209b23 100644
--- a/src/vhdl/vhdl-nodes.adb
+++ b/src/vhdl/vhdl-nodes.adb
@@ -19,7 +19,7 @@
 with Ada.Unchecked_Conversion;
 with Tables;
 with Logging; use Logging;
-with Lists; use Lists;
+with Vhdl.Lists; use Vhdl.Lists;
 with Vhdl.Nodes_Meta; use Vhdl.Nodes_Meta;
 with Vhdl.Nodes_Priv; use Vhdl.Nodes_Priv;
 
diff --git a/src/vhdl/vhdl-nodes.adb.in b/src/vhdl/vhdl-nodes.adb.in
index 1e9dd37c1..761676b3b 100644
--- a/src/vhdl/vhdl-nodes.adb.in
+++ b/src/vhdl/vhdl-nodes.adb.in
@@ -19,7 +19,7 @@
 with Ada.Unchecked_Conversion;
 with Tables;
 with Logging; use Logging;
-with Lists; use Lists;
+with Vhdl.Lists; use Vhdl.Lists;
 with Vhdl.Nodes_Meta; use Vhdl.Nodes_Meta;
 with Vhdl.Nodes_Priv; use Vhdl.Nodes_Priv;
 
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads
index 80c0c80e3..261633812 100644
--- a/src/vhdl/vhdl-nodes.ads
+++ b/src/vhdl/vhdl-nodes.ads
@@ -19,7 +19,7 @@ with Ada.Unchecked_Deallocation;
 with Types; use Types;
 with Vhdl.Tokens; use Vhdl.Tokens;
 with Vhdl.Nodes_Priv;
-with Lists;
+with Vhdl.Lists;
 with Vhdl.Flists;
 
 package Vhdl.Nodes is