From e22a01a5b2b6cea1d8bc3b8cbd2e82be9ad3cc18 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 12 Jun 2019 07:56:33 +0200
Subject: vhdl-nodes: add Node_List and Node_Flist aliases.
---
src/vhdl/vhdl-nodes.ads | 2 ++
1 file changed, 2 insertions(+)
(limited to 'src')
diff --git a/src/vhdl/vhdl-nodes.ads b/src/vhdl/vhdl-nodes.ads
index 940b616c4..6518fd7ef 100644
--- a/src/vhdl/vhdl-nodes.ads
+++ b/src/vhdl/vhdl-nodes.ads
@@ -5502,6 +5502,7 @@ package Vhdl.Nodes is
pragma Inline (Get_Last_Node);
subtype Iir_List is Lists.List_Type;
+ subtype Node_List is Lists.List_Type;
Null_Iir_List : constant Iir_List := Lists.Null_List;
Iir_List_All : constant Iir_List := Lists.List_All;
@@ -5540,6 +5541,7 @@ package Vhdl.Nodes is
function "=" (L, R : Iir_List) return Boolean renames Lists."=";
subtype Iir_Flist is Flists.Flist_Type;
+ subtype Node_Flist is Flists.Flist_Type;
Null_Iir_Flist : constant Iir_Flist := Flists.Null_Flist;
Iir_Flist_Others : constant Iir_Flist := Flists.Flist_Others;
Iir_Flist_All : constant Iir_Flist := Flists.Flist_All;
--
cgit v1.2.3