diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-11-08 05:58:16 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-11-08 05:58:16 +0100 |
| commit | a4073d46d4757361e4a88fee7edbc62ee495b3c6 (patch) | |
| tree | 25a625910e10996df2ba9c297c114d3caa377cf4 /src/vhdl/nodes_meta.adb | |
| parent | 9e01b1290d44a275160a0d87454e35918fe0d2e5 (diff) | |
| download | ghdl-a4073d46d4757361e4a88fee7edbc62ee495b3c6.tar.gz ghdl-a4073d46d4757361e4a88fee7edbc62ee495b3c6.tar.bz2 ghdl-a4073d46d4757361e4a88fee7edbc62ee495b3c6.zip | |
Use flist for entity_name_list.
Diffstat (limited to 'src/vhdl/nodes_meta.adb')
| -rw-r--r-- | src/vhdl/nodes_meta.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/vhdl/nodes_meta.adb b/src/vhdl/nodes_meta.adb index 995d7bb88..9066426ca 100644 --- a/src/vhdl/nodes_meta.adb +++ b/src/vhdl/nodes_meta.adb @@ -58,7 +58,7 @@ package body Nodes_Meta is Field_Literal_Subtype => Type_Iir, Field_Allocator_Subtype => Type_Iir, Field_Entity_Class => Type_Token_Type, - Field_Entity_Name_List => Type_Iir_List, + Field_Entity_Name_List => Type_Iir_Flist, Field_Attribute_Designator => Type_Iir, Field_Attribute_Specification_Chain => Type_Iir, Field_Attribute_Specification => Type_Iir, @@ -5911,6 +5911,8 @@ package body Nodes_Meta is case F is when Field_Simple_Aggregate_List => return Get_Simple_Aggregate_List (N); + when Field_Entity_Name_List => + return Get_Entity_Name_List (N); when Field_Signal_List => return Get_Signal_List (N); when Field_Enumeration_Literal_List => @@ -5943,6 +5945,8 @@ package body Nodes_Meta is case F is when Field_Simple_Aggregate_List => Set_Simple_Aggregate_List (N, V); + when Field_Entity_Name_List => + Set_Entity_Name_List (N, V); when Field_Signal_List => Set_Signal_List (N, V); when Field_Enumeration_Literal_List => @@ -6095,8 +6099,6 @@ package body Nodes_Meta is return Get_Dependence_List (N); when Field_Analysis_Checks_List => return Get_Analysis_Checks_List (N); - when Field_Entity_Name_List => - return Get_Entity_Name_List (N); when Field_Sensitivity_List => return Get_Sensitivity_List (N); when Field_Callees_List => @@ -6123,8 +6125,6 @@ package body Nodes_Meta is Set_Dependence_List (N, V); when Field_Analysis_Checks_List => Set_Analysis_Checks_List (N, V); - when Field_Entity_Name_List => - Set_Entity_Name_List (N, V); when Field_Sensitivity_List => Set_Sensitivity_List (N, V); when Field_Callees_List => |