diff options
Diffstat (limited to 'src/vhdl/nodes_meta.adb')
| -rw-r--r-- | src/vhdl/nodes_meta.adb | 136 |
1 files changed, 70 insertions, 66 deletions
diff --git a/src/vhdl/nodes_meta.adb b/src/vhdl/nodes_meta.adb index e53a9cbd3..f510db8da 100644 --- a/src/vhdl/nodes_meta.adb +++ b/src/vhdl/nodes_meta.adb @@ -3384,6 +3384,7 @@ package body Nodes_Meta is -- Iir_Kind_If_Generate_Statement Field_Label, Field_Visible_Flag, + Field_Is_Within_Flag, Field_End_Has_Reserved_Id, Field_End_Has_Identifier, Field_Condition, @@ -3423,6 +3424,7 @@ package body Nodes_Meta is Field_Alternative_Label, Field_Has_Begin, Field_Has_End, + Field_Is_Within_Flag, Field_Has_Label, Field_End_Has_Identifier, Field_Declaration_Chain, @@ -4023,72 +4025,72 @@ package body Nodes_Meta is Iir_Kind_Psl_Cover_Statement => 1206, Iir_Kind_Concurrent_Procedure_Call_Statement => 1212, Iir_Kind_Block_Statement => 1225, - Iir_Kind_If_Generate_Statement => 1234, - Iir_Kind_For_Generate_Statement => 1242, - Iir_Kind_Component_Instantiation_Statement => 1252, - Iir_Kind_Simple_Simultaneous_Statement => 1259, - Iir_Kind_Generate_Statement_Body => 1269, - Iir_Kind_If_Generate_Else_Clause => 1274, - Iir_Kind_Signal_Assignment_Statement => 1283, - Iir_Kind_Null_Statement => 1287, - Iir_Kind_Assertion_Statement => 1294, - Iir_Kind_Report_Statement => 1300, - Iir_Kind_Wait_Statement => 1307, - Iir_Kind_Variable_Assignment_Statement => 1313, - Iir_Kind_Return_Statement => 1319, - Iir_Kind_For_Loop_Statement => 1327, - Iir_Kind_While_Loop_Statement => 1334, - Iir_Kind_Next_Statement => 1340, - Iir_Kind_Exit_Statement => 1346, - Iir_Kind_Case_Statement => 1353, - Iir_Kind_Procedure_Call_Statement => 1358, - Iir_Kind_If_Statement => 1366, - Iir_Kind_Elsif => 1371, - Iir_Kind_Character_Literal => 1378, - Iir_Kind_Simple_Name => 1385, - Iir_Kind_Selected_Name => 1393, - Iir_Kind_Operator_Symbol => 1398, - Iir_Kind_Selected_By_All_Name => 1403, - Iir_Kind_Parenthesis_Name => 1407, - Iir_Kind_Base_Attribute => 1409, - Iir_Kind_Left_Type_Attribute => 1414, - Iir_Kind_Right_Type_Attribute => 1419, - Iir_Kind_High_Type_Attribute => 1424, - Iir_Kind_Low_Type_Attribute => 1429, - Iir_Kind_Ascending_Type_Attribute => 1434, - Iir_Kind_Image_Attribute => 1440, - Iir_Kind_Value_Attribute => 1446, - Iir_Kind_Pos_Attribute => 1452, - Iir_Kind_Val_Attribute => 1458, - Iir_Kind_Succ_Attribute => 1464, - Iir_Kind_Pred_Attribute => 1470, - Iir_Kind_Leftof_Attribute => 1476, - Iir_Kind_Rightof_Attribute => 1482, - Iir_Kind_Delayed_Attribute => 1490, - Iir_Kind_Stable_Attribute => 1498, - Iir_Kind_Quiet_Attribute => 1506, - Iir_Kind_Transaction_Attribute => 1514, - Iir_Kind_Event_Attribute => 1518, - Iir_Kind_Active_Attribute => 1522, - Iir_Kind_Last_Event_Attribute => 1526, - Iir_Kind_Last_Active_Attribute => 1530, - Iir_Kind_Last_Value_Attribute => 1534, - Iir_Kind_Driving_Attribute => 1538, - Iir_Kind_Driving_Value_Attribute => 1542, - Iir_Kind_Behavior_Attribute => 1542, - Iir_Kind_Structure_Attribute => 1542, - Iir_Kind_Simple_Name_Attribute => 1549, - Iir_Kind_Instance_Name_Attribute => 1554, - Iir_Kind_Path_Name_Attribute => 1559, - Iir_Kind_Left_Array_Attribute => 1566, - Iir_Kind_Right_Array_Attribute => 1573, - Iir_Kind_High_Array_Attribute => 1580, - Iir_Kind_Low_Array_Attribute => 1587, - Iir_Kind_Length_Array_Attribute => 1594, - Iir_Kind_Ascending_Array_Attribute => 1601, - Iir_Kind_Range_Array_Attribute => 1608, - Iir_Kind_Reverse_Range_Array_Attribute => 1615, - Iir_Kind_Attribute_Name => 1623 + Iir_Kind_If_Generate_Statement => 1235, + Iir_Kind_For_Generate_Statement => 1243, + Iir_Kind_Component_Instantiation_Statement => 1253, + Iir_Kind_Simple_Simultaneous_Statement => 1260, + Iir_Kind_Generate_Statement_Body => 1271, + Iir_Kind_If_Generate_Else_Clause => 1276, + Iir_Kind_Signal_Assignment_Statement => 1285, + Iir_Kind_Null_Statement => 1289, + Iir_Kind_Assertion_Statement => 1296, + Iir_Kind_Report_Statement => 1302, + Iir_Kind_Wait_Statement => 1309, + Iir_Kind_Variable_Assignment_Statement => 1315, + Iir_Kind_Return_Statement => 1321, + Iir_Kind_For_Loop_Statement => 1329, + Iir_Kind_While_Loop_Statement => 1336, + Iir_Kind_Next_Statement => 1342, + Iir_Kind_Exit_Statement => 1348, + Iir_Kind_Case_Statement => 1355, + Iir_Kind_Procedure_Call_Statement => 1360, + Iir_Kind_If_Statement => 1368, + Iir_Kind_Elsif => 1373, + Iir_Kind_Character_Literal => 1380, + Iir_Kind_Simple_Name => 1387, + Iir_Kind_Selected_Name => 1395, + Iir_Kind_Operator_Symbol => 1400, + Iir_Kind_Selected_By_All_Name => 1405, + Iir_Kind_Parenthesis_Name => 1409, + Iir_Kind_Base_Attribute => 1411, + Iir_Kind_Left_Type_Attribute => 1416, + Iir_Kind_Right_Type_Attribute => 1421, + Iir_Kind_High_Type_Attribute => 1426, + Iir_Kind_Low_Type_Attribute => 1431, + Iir_Kind_Ascending_Type_Attribute => 1436, + Iir_Kind_Image_Attribute => 1442, + Iir_Kind_Value_Attribute => 1448, + Iir_Kind_Pos_Attribute => 1454, + Iir_Kind_Val_Attribute => 1460, + Iir_Kind_Succ_Attribute => 1466, + Iir_Kind_Pred_Attribute => 1472, + Iir_Kind_Leftof_Attribute => 1478, + Iir_Kind_Rightof_Attribute => 1484, + Iir_Kind_Delayed_Attribute => 1492, + Iir_Kind_Stable_Attribute => 1500, + Iir_Kind_Quiet_Attribute => 1508, + Iir_Kind_Transaction_Attribute => 1516, + Iir_Kind_Event_Attribute => 1520, + Iir_Kind_Active_Attribute => 1524, + Iir_Kind_Last_Event_Attribute => 1528, + Iir_Kind_Last_Active_Attribute => 1532, + Iir_Kind_Last_Value_Attribute => 1536, + Iir_Kind_Driving_Attribute => 1540, + Iir_Kind_Driving_Value_Attribute => 1544, + Iir_Kind_Behavior_Attribute => 1544, + Iir_Kind_Structure_Attribute => 1544, + Iir_Kind_Simple_Name_Attribute => 1551, + Iir_Kind_Instance_Name_Attribute => 1556, + Iir_Kind_Path_Name_Attribute => 1561, + Iir_Kind_Left_Array_Attribute => 1568, + Iir_Kind_Right_Array_Attribute => 1575, + Iir_Kind_High_Array_Attribute => 1582, + Iir_Kind_Low_Array_Attribute => 1589, + Iir_Kind_Length_Array_Attribute => 1596, + Iir_Kind_Ascending_Array_Attribute => 1603, + Iir_Kind_Range_Array_Attribute => 1610, + Iir_Kind_Reverse_Range_Array_Attribute => 1617, + Iir_Kind_Attribute_Name => 1625 ); function Get_Fields (K : Iir_Kind) return Fields_Array @@ -9041,6 +9043,8 @@ package body Nodes_Meta is | Iir_Kind_Sensitized_Process_Statement | Iir_Kind_Process_Statement | Iir_Kind_Block_Statement + | Iir_Kind_If_Generate_Statement + | Iir_Kind_Generate_Statement_Body | Iir_Kind_For_Loop_Statement => return True; when others => |