diff options
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 ef395e224..12e08c5e0 100644 --- a/src/vhdl/nodes_meta.adb +++ b/src/vhdl/nodes_meta.adb @@ -146,7 +146,7 @@ package body Nodes_Meta is Field_Associated_Type => Type_Iir, Field_Enumeration_Literal_List => Type_Iir_Flist, Field_Entity_Class_Entry_Chain => Type_Iir, - Field_Group_Constituent_List => Type_Iir_List, + Field_Group_Constituent_List => Type_Iir_Flist, Field_Unit_Chain => Type_Iir, Field_Primary_Unit => Type_Iir, Field_Identifier => Type_Name_Id, @@ -5913,6 +5913,8 @@ package body Nodes_Meta is return Get_Simple_Aggregate_List (N); when Field_Enumeration_Literal_List => return Get_Enumeration_Literal_List (N); + when Field_Group_Constituent_List => + return Get_Group_Constituent_List (N); when Field_Index_Subtype_List => return Get_Index_Subtype_List (N); when Field_Index_Subtype_Definition_List => @@ -5939,6 +5941,8 @@ package body Nodes_Meta is Set_Simple_Aggregate_List (N, V); when Field_Enumeration_Literal_List => Set_Enumeration_Literal_List (N, V); + when Field_Group_Constituent_List => + Set_Group_Constituent_List (N, V); when Field_Index_Subtype_List => Set_Index_Subtype_List (N, V); when Field_Index_Subtype_Definition_List => @@ -6087,8 +6091,6 @@ package body Nodes_Meta is return Get_Entity_Name_List (N); when Field_Signal_List => return Get_Signal_List (N); - when Field_Group_Constituent_List => - return Get_Group_Constituent_List (N); when Field_Sensitivity_List => return Get_Sensitivity_List (N); when Field_Callees_List => @@ -6121,8 +6123,6 @@ package body Nodes_Meta is Set_Entity_Name_List (N, V); when Field_Signal_List => Set_Signal_List (N, V); - when Field_Group_Constituent_List => - Set_Group_Constituent_List (N, V); when Field_Sensitivity_List => Set_Sensitivity_List (N, V); when Field_Callees_List => |