From e22a01a5b2b6cea1d8bc3b8cbd2e82be9ad3cc18 Mon Sep 17 00:00:00 2001 From: Tristan Gingold 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/vhdl') 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