diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/iirs.ads | 4 | ||||
| -rw-r--r-- | src/vhdl/nodes_meta.adb | 466 | ||||
| -rw-r--r-- | src/vhdl/sem_assocs.adb | 67 | ||||
| -rw-r--r-- | src/vhdl/sem_expr.adb | 465 | ||||
| -rw-r--r-- | src/vhdl/sem_expr.ads | 13 |
5 files changed, 545 insertions, 470 deletions
diff --git a/src/vhdl/iirs.ads b/src/vhdl/iirs.ads index 70072f6..ba22be9 100644 --- a/src/vhdl/iirs.ads +++ b/src/vhdl/iirs.ads @@ -401,6 +401,10 @@ package Iirs is -- Get/Set_Actual_Type (Field3) -- -- Only for Iir_Kind_Association_Element_By_Individual: + -- Must be Locally unless there is an error on one choice. + -- Get/Set_Choice_Staticness (State2) + -- + -- Only for Iir_Kind_Association_Element_By_Individual: -- Get/Set_Individual_Association_Chain (Field4) -- -- Only for Iir_Kind_Association_Element_Package: diff --git a/src/vhdl/nodes_meta.adb b/src/vhdl/nodes_meta.adb index 2af55d4..16fb1f4 100644 --- a/src/vhdl/nodes_meta.adb +++ b/src/vhdl/nodes_meta.adb @@ -2147,6 +2147,7 @@ package body Nodes_Meta is -- Iir_Kind_Association_Element_By_Individual Field_Whole_Association_Flag, Field_Collapse_Signal_Flag, + Field_Choice_Staticness, Field_Formal, Field_Chain, Field_Actual_Type, @@ -3984,237 +3985,237 @@ package body Nodes_Meta is Iir_Kind_Waveform_Element => 86, Iir_Kind_Conditional_Waveform => 89, Iir_Kind_Association_Element_By_Expression => 96, - Iir_Kind_Association_Element_By_Individual => 102, - Iir_Kind_Association_Element_Open => 107, - Iir_Kind_Association_Element_Package => 113, - Iir_Kind_Choice_By_Others => 118, - Iir_Kind_Choice_By_Expression => 125, - Iir_Kind_Choice_By_Range => 132, - Iir_Kind_Choice_By_None => 137, - Iir_Kind_Choice_By_Name => 143, - Iir_Kind_Entity_Aspect_Entity => 145, - Iir_Kind_Entity_Aspect_Configuration => 146, - Iir_Kind_Entity_Aspect_Open => 146, - Iir_Kind_Block_Configuration => 152, - Iir_Kind_Block_Header => 156, - Iir_Kind_Component_Configuration => 162, - Iir_Kind_Binding_Indication => 168, - Iir_Kind_Entity_Class => 170, - Iir_Kind_Attribute_Value => 178, - Iir_Kind_Signature => 181, - Iir_Kind_Aggregate_Info => 188, - Iir_Kind_Procedure_Call => 192, - Iir_Kind_Record_Element_Constraint => 198, - Iir_Kind_Array_Element_Resolution => 199, - Iir_Kind_Record_Resolution => 200, - Iir_Kind_Record_Element_Resolution => 203, - Iir_Kind_Attribute_Specification => 211, - Iir_Kind_Disconnection_Specification => 216, - Iir_Kind_Configuration_Specification => 221, - Iir_Kind_Access_Type_Definition => 228, - Iir_Kind_Incomplete_Type_Definition => 235, - Iir_Kind_File_Type_Definition => 242, - Iir_Kind_Protected_Type_Declaration => 251, - Iir_Kind_Record_Type_Definition => 261, - Iir_Kind_Array_Type_Definition => 273, - Iir_Kind_Array_Subtype_Definition => 288, - Iir_Kind_Record_Subtype_Definition => 299, - Iir_Kind_Access_Subtype_Definition => 307, - Iir_Kind_Physical_Subtype_Definition => 316, - Iir_Kind_Floating_Subtype_Definition => 326, - Iir_Kind_Integer_Subtype_Definition => 335, - Iir_Kind_Enumeration_Subtype_Definition => 344, - Iir_Kind_Enumeration_Type_Definition => 353, - Iir_Kind_Integer_Type_Definition => 359, - Iir_Kind_Floating_Type_Definition => 365, - Iir_Kind_Physical_Type_Definition => 374, - Iir_Kind_Range_Expression => 380, - Iir_Kind_Protected_Type_Body => 387, - Iir_Kind_Subtype_Definition => 391, - Iir_Kind_Scalar_Nature_Definition => 395, - Iir_Kind_Overload_List => 396, - Iir_Kind_Type_Declaration => 402, - Iir_Kind_Anonymous_Type_Declaration => 407, - Iir_Kind_Subtype_Declaration => 415, - Iir_Kind_Nature_Declaration => 421, - Iir_Kind_Subnature_Declaration => 427, - Iir_Kind_Package_Declaration => 437, - Iir_Kind_Package_Instantiation_Declaration => 448, - Iir_Kind_Package_Body => 455, - Iir_Kind_Configuration_Declaration => 464, - Iir_Kind_Entity_Declaration => 476, - Iir_Kind_Architecture_Body => 488, - Iir_Kind_Context_Declaration => 494, - Iir_Kind_Package_Header => 496, - Iir_Kind_Unit_Declaration => 505, - Iir_Kind_Library_Declaration => 512, - Iir_Kind_Component_Declaration => 522, - Iir_Kind_Attribute_Declaration => 529, - Iir_Kind_Group_Template_Declaration => 535, - Iir_Kind_Group_Declaration => 542, - Iir_Kind_Element_Declaration => 549, - Iir_Kind_Non_Object_Alias_Declaration => 557, - Iir_Kind_Psl_Declaration => 565, - Iir_Kind_Terminal_Declaration => 571, - Iir_Kind_Free_Quantity_Declaration => 580, - Iir_Kind_Across_Quantity_Declaration => 592, - Iir_Kind_Through_Quantity_Declaration => 604, - Iir_Kind_Enumeration_Literal => 615, - Iir_Kind_Function_Declaration => 639, - Iir_Kind_Procedure_Declaration => 662, - Iir_Kind_Function_Body => 672, - Iir_Kind_Procedure_Body => 683, - Iir_Kind_Object_Alias_Declaration => 695, - Iir_Kind_File_Declaration => 710, - Iir_Kind_Guard_Signal_Declaration => 723, - Iir_Kind_Signal_Declaration => 740, - Iir_Kind_Variable_Declaration => 753, - Iir_Kind_Constant_Declaration => 767, - Iir_Kind_Iterator_Declaration => 779, - Iir_Kind_Interface_Constant_Declaration => 795, - Iir_Kind_Interface_Variable_Declaration => 811, - Iir_Kind_Interface_Signal_Declaration => 832, - Iir_Kind_Interface_File_Declaration => 848, - Iir_Kind_Interface_Package_Declaration => 857, - Iir_Kind_Identity_Operator => 861, - Iir_Kind_Negation_Operator => 865, - Iir_Kind_Absolute_Operator => 869, - Iir_Kind_Not_Operator => 873, - Iir_Kind_Condition_Operator => 877, - Iir_Kind_Reduction_And_Operator => 881, - Iir_Kind_Reduction_Or_Operator => 885, - Iir_Kind_Reduction_Nand_Operator => 889, - Iir_Kind_Reduction_Nor_Operator => 893, - Iir_Kind_Reduction_Xor_Operator => 897, - Iir_Kind_Reduction_Xnor_Operator => 901, - Iir_Kind_And_Operator => 906, - Iir_Kind_Or_Operator => 911, - Iir_Kind_Nand_Operator => 916, - Iir_Kind_Nor_Operator => 921, - Iir_Kind_Xor_Operator => 926, - Iir_Kind_Xnor_Operator => 931, - Iir_Kind_Equality_Operator => 936, - Iir_Kind_Inequality_Operator => 941, - Iir_Kind_Less_Than_Operator => 946, - Iir_Kind_Less_Than_Or_Equal_Operator => 951, - Iir_Kind_Greater_Than_Operator => 956, - Iir_Kind_Greater_Than_Or_Equal_Operator => 961, - Iir_Kind_Match_Equality_Operator => 966, - Iir_Kind_Match_Inequality_Operator => 971, - Iir_Kind_Match_Less_Than_Operator => 976, - Iir_Kind_Match_Less_Than_Or_Equal_Operator => 981, - Iir_Kind_Match_Greater_Than_Operator => 986, - Iir_Kind_Match_Greater_Than_Or_Equal_Operator => 991, - Iir_Kind_Sll_Operator => 996, - Iir_Kind_Sla_Operator => 1001, - Iir_Kind_Srl_Operator => 1006, - Iir_Kind_Sra_Operator => 1011, - Iir_Kind_Rol_Operator => 1016, - Iir_Kind_Ror_Operator => 1021, - Iir_Kind_Addition_Operator => 1026, - Iir_Kind_Substraction_Operator => 1031, - Iir_Kind_Concatenation_Operator => 1036, - Iir_Kind_Multiplication_Operator => 1041, - Iir_Kind_Division_Operator => 1046, - Iir_Kind_Modulus_Operator => 1051, - Iir_Kind_Remainder_Operator => 1056, - Iir_Kind_Exponentiation_Operator => 1061, - Iir_Kind_Function_Call => 1069, - Iir_Kind_Aggregate => 1075, - Iir_Kind_Parenthesis_Expression => 1078, - Iir_Kind_Qualified_Expression => 1082, - Iir_Kind_Type_Conversion => 1087, - Iir_Kind_Allocator_By_Expression => 1091, - Iir_Kind_Allocator_By_Subtype => 1097, - Iir_Kind_Selected_Element => 1103, - Iir_Kind_Dereference => 1108, - Iir_Kind_Implicit_Dereference => 1113, - Iir_Kind_Slice_Name => 1120, - Iir_Kind_Indexed_Name => 1126, - Iir_Kind_Psl_Expression => 1128, - Iir_Kind_Sensitized_Process_Statement => 1148, - Iir_Kind_Process_Statement => 1168, - Iir_Kind_Concurrent_Conditional_Signal_Assignment => 1179, - Iir_Kind_Concurrent_Selected_Signal_Assignment => 1191, - Iir_Kind_Concurrent_Assertion_Statement => 1199, - Iir_Kind_Psl_Default_Clock => 1203, - Iir_Kind_Psl_Assert_Statement => 1212, - Iir_Kind_Psl_Cover_Statement => 1221, - Iir_Kind_Concurrent_Procedure_Call_Statement => 1228, - Iir_Kind_Block_Statement => 1241, - Iir_Kind_If_Generate_Statement => 1251, - Iir_Kind_For_Generate_Statement => 1260, - Iir_Kind_Component_Instantiation_Statement => 1270, - Iir_Kind_Simple_Simultaneous_Statement => 1277, - Iir_Kind_Generate_Statement_Body => 1288, - Iir_Kind_If_Generate_Else_Clause => 1293, - Iir_Kind_Signal_Assignment_Statement => 1302, - Iir_Kind_Null_Statement => 1306, - Iir_Kind_Assertion_Statement => 1313, - Iir_Kind_Report_Statement => 1319, - Iir_Kind_Wait_Statement => 1326, - Iir_Kind_Variable_Assignment_Statement => 1332, - Iir_Kind_Return_Statement => 1338, - Iir_Kind_For_Loop_Statement => 1347, - Iir_Kind_While_Loop_Statement => 1355, - Iir_Kind_Next_Statement => 1361, - Iir_Kind_Exit_Statement => 1367, - Iir_Kind_Case_Statement => 1375, - Iir_Kind_Procedure_Call_Statement => 1381, - Iir_Kind_If_Statement => 1390, - Iir_Kind_Elsif => 1395, - Iir_Kind_Character_Literal => 1402, - Iir_Kind_Simple_Name => 1409, - Iir_Kind_Selected_Name => 1417, - Iir_Kind_Operator_Symbol => 1422, - Iir_Kind_Selected_By_All_Name => 1427, - Iir_Kind_Parenthesis_Name => 1431, - Iir_Kind_External_Constant_Name => 1440, - Iir_Kind_External_Signal_Name => 1449, - Iir_Kind_External_Variable_Name => 1458, - Iir_Kind_Package_Pathname => 1461, - Iir_Kind_Absolute_Pathname => 1462, - Iir_Kind_Relative_Pathname => 1463, - Iir_Kind_Pathname_Element => 1467, - Iir_Kind_Base_Attribute => 1469, - Iir_Kind_Left_Type_Attribute => 1474, - Iir_Kind_Right_Type_Attribute => 1479, - Iir_Kind_High_Type_Attribute => 1484, - Iir_Kind_Low_Type_Attribute => 1489, - Iir_Kind_Ascending_Type_Attribute => 1494, - Iir_Kind_Image_Attribute => 1500, - Iir_Kind_Value_Attribute => 1506, - Iir_Kind_Pos_Attribute => 1512, - Iir_Kind_Val_Attribute => 1518, - Iir_Kind_Succ_Attribute => 1524, - Iir_Kind_Pred_Attribute => 1530, - Iir_Kind_Leftof_Attribute => 1536, - Iir_Kind_Rightof_Attribute => 1542, - Iir_Kind_Delayed_Attribute => 1550, - Iir_Kind_Stable_Attribute => 1558, - Iir_Kind_Quiet_Attribute => 1566, - Iir_Kind_Transaction_Attribute => 1574, - Iir_Kind_Event_Attribute => 1578, - Iir_Kind_Active_Attribute => 1582, - Iir_Kind_Last_Event_Attribute => 1586, - Iir_Kind_Last_Active_Attribute => 1590, - Iir_Kind_Last_Value_Attribute => 1594, - Iir_Kind_Driving_Attribute => 1598, - Iir_Kind_Driving_Value_Attribute => 1602, - Iir_Kind_Behavior_Attribute => 1602, - Iir_Kind_Structure_Attribute => 1602, - Iir_Kind_Simple_Name_Attribute => 1609, - Iir_Kind_Instance_Name_Attribute => 1614, - Iir_Kind_Path_Name_Attribute => 1619, - Iir_Kind_Left_Array_Attribute => 1626, - Iir_Kind_Right_Array_Attribute => 1633, - Iir_Kind_High_Array_Attribute => 1640, - Iir_Kind_Low_Array_Attribute => 1647, - Iir_Kind_Length_Array_Attribute => 1654, - Iir_Kind_Ascending_Array_Attribute => 1661, - Iir_Kind_Range_Array_Attribute => 1668, - Iir_Kind_Reverse_Range_Array_Attribute => 1675, - Iir_Kind_Attribute_Name => 1683 + Iir_Kind_Association_Element_By_Individual => 103, + Iir_Kind_Association_Element_Open => 108, + Iir_Kind_Association_Element_Package => 114, + Iir_Kind_Choice_By_Others => 119, + Iir_Kind_Choice_By_Expression => 126, + Iir_Kind_Choice_By_Range => 133, + Iir_Kind_Choice_By_None => 138, + Iir_Kind_Choice_By_Name => 144, + Iir_Kind_Entity_Aspect_Entity => 146, + Iir_Kind_Entity_Aspect_Configuration => 147, + Iir_Kind_Entity_Aspect_Open => 147, + Iir_Kind_Block_Configuration => 153, + Iir_Kind_Block_Header => 157, + Iir_Kind_Component_Configuration => 163, + Iir_Kind_Binding_Indication => 169, + Iir_Kind_Entity_Class => 171, + Iir_Kind_Attribute_Value => 179, + Iir_Kind_Signature => 182, + Iir_Kind_Aggregate_Info => 189, + Iir_Kind_Procedure_Call => 193, + Iir_Kind_Record_Element_Constraint => 199, + Iir_Kind_Array_Element_Resolution => 200, + Iir_Kind_Record_Resolution => 201, + Iir_Kind_Record_Element_Resolution => 204, + Iir_Kind_Attribute_Specification => 212, + Iir_Kind_Disconnection_Specification => 217, + Iir_Kind_Configuration_Specification => 222, + Iir_Kind_Access_Type_Definition => 229, + Iir_Kind_Incomplete_Type_Definition => 236, + Iir_Kind_File_Type_Definition => 243, + Iir_Kind_Protected_Type_Declaration => 252, + Iir_Kind_Record_Type_Definition => 262, + Iir_Kind_Array_Type_Definition => 274, + Iir_Kind_Array_Subtype_Definition => 289, + Iir_Kind_Record_Subtype_Definition => 300, + Iir_Kind_Access_Subtype_Definition => 308, + Iir_Kind_Physical_Subtype_Definition => 317, + Iir_Kind_Floating_Subtype_Definition => 327, + Iir_Kind_Integer_Subtype_Definition => 336, + Iir_Kind_Enumeration_Subtype_Definition => 345, + Iir_Kind_Enumeration_Type_Definition => 354, + Iir_Kind_Integer_Type_Definition => 360, + Iir_Kind_Floating_Type_Definition => 366, + Iir_Kind_Physical_Type_Definition => 375, + Iir_Kind_Range_Expression => 381, + Iir_Kind_Protected_Type_Body => 388, + Iir_Kind_Subtype_Definition => 392, + Iir_Kind_Scalar_Nature_Definition => 396, + Iir_Kind_Overload_List => 397, + Iir_Kind_Type_Declaration => 403, + Iir_Kind_Anonymous_Type_Declaration => 408, + Iir_Kind_Subtype_Declaration => 416, + Iir_Kind_Nature_Declaration => 422, + Iir_Kind_Subnature_Declaration => 428, + Iir_Kind_Package_Declaration => 438, + Iir_Kind_Package_Instantiation_Declaration => 449, + Iir_Kind_Package_Body => 456, + Iir_Kind_Configuration_Declaration => 465, + Iir_Kind_Entity_Declaration => 477, + Iir_Kind_Architecture_Body => 489, + Iir_Kind_Context_Declaration => 495, + Iir_Kind_Package_Header => 497, + Iir_Kind_Unit_Declaration => 506, + Iir_Kind_Library_Declaration => 513, + Iir_Kind_Component_Declaration => 523, + Iir_Kind_Attribute_Declaration => 530, + Iir_Kind_Group_Template_Declaration => 536, + Iir_Kind_Group_Declaration => 543, + Iir_Kind_Element_Declaration => 550, + Iir_Kind_Non_Object_Alias_Declaration => 558, + Iir_Kind_Psl_Declaration => 566, + Iir_Kind_Terminal_Declaration => 572, + Iir_Kind_Free_Quantity_Declaration => 581, + Iir_Kind_Across_Quantity_Declaration => 593, + Iir_Kind_Through_Quantity_Declaration => 605, + Iir_Kind_Enumeration_Literal => 616, + Iir_Kind_Function_Declaration => 640, + Iir_Kind_Procedure_Declaration => 663, + Iir_Kind_Function_Body => 673, + Iir_Kind_Procedure_Body => 684, + Iir_Kind_Object_Alias_Declaration => 696, + Iir_Kind_File_Declaration => 711, + Iir_Kind_Guard_Signal_Declaration => 724, + Iir_Kind_Signal_Declaration => 741, + Iir_Kind_Variable_Declaration => 754, + Iir_Kind_Constant_Declaration => 768, + Iir_Kind_Iterator_Declaration => 780, + Iir_Kind_Interface_Constant_Declaration => 796, + Iir_Kind_Interface_Variable_Declaration => 812, + Iir_Kind_Interface_Signal_Declaration => 833, + Iir_Kind_Interface_File_Declaration => 849, + Iir_Kind_Interface_Package_Declaration => 858, + Iir_Kind_Identity_Operator => 862, + Iir_Kind_Negation_Operator => 866, + Iir_Kind_Absolute_Operator => 870, + Iir_Kind_Not_Operator => 874, + Iir_Kind_Condition_Operator => 878, + Iir_Kind_Reduction_And_Operator => 882, + Iir_Kind_Reduction_Or_Operator => 886, + Iir_Kind_Reduction_Nand_Operator => 890, + Iir_Kind_Reduction_Nor_Operator => 894, + Iir_Kind_Reduction_Xor_Operator => 898, + Iir_Kind_Reduction_Xnor_Operator => 902, + Iir_Kind_And_Operator => 907, + Iir_Kind_Or_Operator => 912, + Iir_Kind_Nand_Operator => 917, + Iir_Kind_Nor_Operator => 922, + Iir_Kind_Xor_Operator => 927, + Iir_Kind_Xnor_Operator => 932, + Iir_Kind_Equality_Operator => 937, + Iir_Kind_Inequality_Operator => 942, + Iir_Kind_Less_Than_Operator => 947, + Iir_Kind_Less_Than_Or_Equal_Operator => 952, + Iir_Kind_Greater_Than_Operator => 957, + Iir_Kind_Greater_Than_Or_Equal_Operator => 962, + Iir_Kind_Match_Equality_Operator => 967, + Iir_Kind_Match_Inequality_Operator => 972, + Iir_Kind_Match_Less_Than_Operator => 977, + Iir_Kind_Match_Less_Than_Or_Equal_Operator => 982, + Iir_Kind_Match_Greater_Than_Operator => 987, + Iir_Kind_Match_Greater_Than_Or_Equal_Operator => 992, + Iir_Kind_Sll_Operator => 997, + Iir_Kind_Sla_Operator => 1002, + Iir_Kind_Srl_Operator => 1007, + Iir_Kind_Sra_Operator => 1012, + Iir_Kind_Rol_Operator => 1017, + Iir_Kind_Ror_Operator => 1022, + Iir_Kind_Addition_Operator => 1027, + Iir_Kind_Substraction_Operator => 1032, + Iir_Kind_Concatenation_Operator => 1037, + Iir_Kind_Multiplication_Operator => 1042, + Iir_Kind_Division_Operator => 1047, + Iir_Kind_Modulus_Operator => 1052, + Iir_Kind_Remainder_Operator => 1057, + Iir_Kind_Exponentiation_Operator => 1062, + Iir_Kind_Function_Call => 1070, + Iir_Kind_Aggregate => 1076, + Iir_Kind_Parenthesis_Expression => 1079, + Iir_Kind_Qualified_Expression => 1083, + Iir_Kind_Type_Conversion => 1088, + Iir_Kind_Allocator_By_Expression => 1092, + Iir_Kind_Allocator_By_Subtype => 1098, + Iir_Kind_Selected_Element => 1104, + Iir_Kind_Dereference => 1109, + Iir_Kind_Implicit_Dereference => 1114, + Iir_Kind_Slice_Name => 1121, + Iir_Kind_Indexed_Name => 1127, + Iir_Kind_Psl_Expression => 1129, + Iir_Kind_Sensitized_Process_Statement => 1149, + Iir_Kind_Process_Statement => 1169, + Iir_Kind_Concurrent_Conditional_Signal_Assignment => 1180, + Iir_Kind_Concurrent_Selected_Signal_Assignment => 1192, + Iir_Kind_Concurrent_Assertion_Statement => 1200, + Iir_Kind_Psl_Default_Clock => 1204, + Iir_Kind_Psl_Assert_Statement => 1213, + Iir_Kind_Psl_Cover_Statement => 1222, + Iir_Kind_Concurrent_Procedure_Call_Statement => 1229, + Iir_Kind_Block_Statement => 1242, + Iir_Kind_If_Generate_Statement => 1252, + Iir_Kind_For_Generate_Statement => 1261, + Iir_Kind_Component_Instantiation_Statement => 1271, + Iir_Kind_Simple_Simultaneous_Statement => 1278, + Iir_Kind_Generate_Statement_Body => 1289, + Iir_Kind_If_Generate_Else_Clause => 1294, + Iir_Kind_Signal_Assignment_Statement => 1303, + Iir_Kind_Null_Statement => 1307, + Iir_Kind_Assertion_Statement => 1314, + Iir_Kind_Report_Statement => 1320, + Iir_Kind_Wait_Statement => 1327, + Iir_Kind_Variable_Assignment_Statement => 1333, + Iir_Kind_Return_Statement => 1339, + Iir_Kind_For_Loop_Statement => 1348, + Iir_Kind_While_Loop_Statement => 1356, + Iir_Kind_Next_Statement => 1362, + Iir_Kind_Exit_Statement => 1368, + Iir_Kind_Case_Statement => 1376, + Iir_Kind_Procedure_Call_Statement => 1382, + Iir_Kind_If_Statement => 1391, + Iir_Kind_Elsif => 1396, + Iir_Kind_Character_Literal => 1403, + Iir_Kind_Simple_Name => 1410, + Iir_Kind_Selected_Name => 1418, + Iir_Kind_Operator_Symbol => 1423, + Iir_Kind_Selected_By_All_Name => 1428, + Iir_Kind_Parenthesis_Name => 1432, + Iir_Kind_External_Constant_Name => 1441, + Iir_Kind_External_Signal_Name => 1450, + Iir_Kind_External_Variable_Name => 1459, + Iir_Kind_Package_Pathname => 1462, + Iir_Kind_Absolute_Pathname => 1463, + Iir_Kind_Relative_Pathname => 1464, + Iir_Kind_Pathname_Element => 1468, + Iir_Kind_Base_Attribute => 1470, + Iir_Kind_Left_Type_Attribute => 1475, + Iir_Kind_Right_Type_Attribute => 1480, + Iir_Kind_High_Type_Attribute => 1485, + Iir_Kind_Low_Type_Attribute => 1490, + Iir_Kind_Ascending_Type_Attribute => 1495, + Iir_Kind_Image_Attribute => 1501, + Iir_Kind_Value_Attribute => 1507, + Iir_Kind_Pos_Attribute => 1513, + Iir_Kind_Val_Attribute => 1519, + Iir_Kind_Succ_Attribute => 1525, + Iir_Kind_Pred_Attribute => 1531, + Iir_Kind_Leftof_Attribute => 1537, + Iir_Kind_Rightof_Attribute => 1543, + Iir_Kind_Delayed_Attribute => 1551, + Iir_Kind_Stable_Attribute => 1559, + Iir_Kind_Quiet_Attribute => 1567, + Iir_Kind_Transaction_Attribute => 1575, + Iir_Kind_Event_Attribute => 1579, + Iir_Kind_Active_Attribute => 1583, + Iir_Kind_Last_Event_Attribute => 1587, + Iir_Kind_Last_Active_Attribute => 1591, + Iir_Kind_Last_Value_Attribute => 1595, + Iir_Kind_Driving_Attribute => 1599, + Iir_Kind_Driving_Value_Attribute => 1603, + Iir_Kind_Behavior_Attribute => 1603, + Iir_Kind_Structure_Attribute => 1603, + Iir_Kind_Simple_Name_Attribute => 1610, + Iir_Kind_Instance_Name_Attribute => 1615, + Iir_Kind_Path_Name_Attribute => 1620, + Iir_Kind_Left_Array_Attribute => 1627, + Iir_Kind_Right_Array_Attribute => 1634, + Iir_Kind_High_Array_Attribute => 1641, + Iir_Kind_Low_Array_Attribute => 1648, + Iir_Kind_Length_Array_Attribute => 1655, + Iir_Kind_Ascending_Array_Attribute => 1662, + Iir_Kind_Range_Array_Attribute => 1669, + Iir_Kind_Reverse_Range_Array_Attribute => 1676, + Iir_Kind_Attribute_Name => 1684 ); function Get_Fields (K : Iir_Kind) return Fields_Array @@ -9109,7 +9110,8 @@ package body Nodes_Meta is function Has_Choice_Staticness (K : Iir_Kind) return Boolean is begin case K is - when Iir_Kind_Choice_By_Expression + when Iir_Kind_Association_Element_By_Individual + | Iir_Kind_Choice_By_Expression | Iir_Kind_Choice_By_Range => return True; when others => diff --git a/src/vhdl/sem_assocs.adb b/src/vhdl/sem_assocs.adb index 841f503..3123fbd 100644 --- a/src/vhdl/sem_assocs.adb +++ b/src/vhdl/sem_assocs.adb @@ -427,11 +427,13 @@ package body Sem_Assocs is procedure Add_Individual_Assoc_Indexed_Name (Sub_Assoc : in out Iir; Formal : Iir) is + Base_Assoc : constant Iir := Sub_Assoc; Choice : Iir; Last_Choice : Iir; Index_List : Iir_List; Index : Iir; Nbr : Natural; + Staticness : Iir_Staticness; begin -- Find element. Index_List := Get_Index_List (Formal); @@ -440,8 +442,14 @@ package body Sem_Assocs is Index := Get_Nth_Element (Index_List, I); -- Evaluate index. - Index := Eval_Expr (Index); - Replace_Nth_Element (Index_List, I, Index); + Staticness := Get_Expr_Staticness (Index); + if Staticness = Locally then + Index := Eval_Expr (Index); + Replace_Nth_Element (Index_List, I, Index); + else + Error_Msg_Sem ("index expression must be locally static", Index); + Set_Choice_Staticness (Base_Assoc, None); + end if; -- Find index in choice list. Last_Choice := Null_Iir; @@ -476,6 +484,7 @@ package body Sem_Assocs is -- If not found, append it. Choice := Create_Iir (Iir_Kind_Choice_By_Expression); Set_Choice_Expression (Choice, Index); + Set_Choice_Staticness (Choice, Staticness); Location_Copy (Choice, Formal); if Last_Choice = Null_Iir then Set_Individual_Association_Chain (Sub_Assoc, Choice); @@ -492,6 +501,7 @@ package body Sem_Assocs is (Iir_Kind_Association_Element_By_Individual); Location_Copy (Sub_Assoc, Index); Set_Associated_Expr (Choice, Sub_Assoc); + Set_Choice_Staticness (Sub_Assoc, Locally); end if; else Sub_Assoc := Choice; @@ -504,6 +514,7 @@ package body Sem_Assocs is is Choice : Iir; Index : Iir; + Staticness : Iir_Staticness; begin -- FIXME: handle cases such as param(5 to 6)(5) @@ -511,15 +522,20 @@ package body Sem_Assocs is Index := Get_Suffix (Formal); -- Evaluate index. - if Get_Expr_Staticness (Index) = Locally then + Staticness := Get_Expr_Staticness (Index); + if Staticness = Locally then Index := Eval_Range (Index); Set_Suffix (Formal, Index); + else + Error_Msg_Sem ("range expression must be locally static", Index); + Set_Choice_Staticness (Sub_Assoc, None); end if; Choice := Create_Iir (Iir_Kind_Choice_By_Range); Location_Copy (Choice, Formal); Set_Choice_Range (Choice, Index); Set_Chain (Choice, Get_Individual_Association_Chain (Sub_Assoc)); + Set_Choice_Staticness (Choice, Staticness); Set_Individual_Association_Chain (Sub_Assoc, Choice); Sub_Assoc := Choice; @@ -541,11 +557,14 @@ package body Sem_Assocs is procedure Add_Individual_Association_1 (Iassoc : in out Iir; Formal : Iir) is + Base_Assoc : constant Iir := Iassoc; + Formal_Object : constant Iir := Name_To_Object (Formal); Sub : Iir; - Formal_Object : Iir; begin - -- Recurse. - Formal_Object := Name_To_Object (Formal); + pragma Assert + (Get_Kind (Base_Assoc) = Iir_Kind_Association_Element_By_Individual); + + -- Recurse to start from the basename of the formal. case Get_Kind (Formal_Object) is when Iir_Kind_Indexed_Name | Iir_Kind_Slice_Name @@ -565,6 +584,7 @@ package body Sem_Assocs is if Sub = Null_Iir then Sub := Create_Iir (Iir_Kind_Association_Element_By_Individual); Location_Copy (Sub, Formal); + Set_Choice_Staticness (Sub, Locally); Set_Formal (Sub, Iassoc); Set_Associated_Expr (Iassoc, Sub); Iassoc := Sub; @@ -585,6 +605,7 @@ package body Sem_Assocs is Error_Kind ("add_individual_association_1(2)", Iassoc); end case; + Sub := Iassoc; case Get_Kind (Formal_Object) is when Iir_Kind_Indexed_Name => Add_Individual_Assoc_Indexed_Name (Iassoc, Formal_Object); @@ -595,26 +616,32 @@ package body Sem_Assocs is when others => Error_Kind ("add_individual_association_1(3)", Formal); end case; + + if Get_Choice_Staticness (Sub) /= Locally then + -- Propagate error. + Set_Choice_Staticness (Base_Assoc, None); + end if; end Add_Individual_Association_1; -- Insert ASSOC into the tree of individual assoc rooted by IASSOC. procedure Add_Individual_Association (Iassoc : Iir; Assoc : Iir) is - Formal : Iir; - Iass : Iir; + Formal : constant Iir := Get_Formal (Assoc); + Res_Iass : Iir; Prev : Iir; begin - Formal := Get_Formal (Assoc); - Iass := Iassoc; - Add_Individual_Association_1 (Iass, Formal); - Prev := Get_Associated_Expr (Iass); + -- Create the individual association for the formal. + Res_Iass := Iassoc; + Add_Individual_Association_1 (Res_Iass, Formal); + + Prev := Get_Associated_Expr (Res_Iass); if Prev /= Null_Iir then Error_Msg_Sem ("individual association of " & Disp_Node (Get_Association_Interface (Assoc)) & " conflicts with that at " & Disp_Location (Prev), Assoc); else - Set_Associated_Expr (Iass, Assoc); + Set_Associated_Expr (Res_Iass, Assoc); end if; end Add_Individual_Association; @@ -623,15 +650,14 @@ package body Sem_Assocs is is Index_Tlist : constant Iir_List := Get_Index_Subtype_List (Atype); Nbr_Dims : constant Natural := Get_Nbr_Elements (Index_Tlist); - Index_Type : Iir; + Index_Type : constant Iir := Get_Nth_Element (Index_Tlist, Dim - 1); Low, High : Iir; Chain : Iir; El : Iir; begin - Index_Type := Get_Nth_Element (Index_Tlist, Dim - 1); Chain := Get_Individual_Association_Chain (Assoc); - Sem_Choices_Range - (Chain, Index_Type, False, False, Get_Location (Assoc), Low, High); + Sem_Check_Continuous_Choices + (Chain, Index_Type, False, Get_Location (Assoc), Low, High); Set_Individual_Association_Chain (Assoc, Chain); if Dim < Nbr_Dims then El := Chain; @@ -763,7 +789,7 @@ package body Sem_Assocs is Atype : Iir; begin -- Guard. - if Assoc = Null_Iir then + if Assoc = Null_Iir or else Get_Choice_Staticness (Assoc) /= Locally then return; end if; @@ -821,9 +847,8 @@ package body Sem_Assocs is Iassoc := Create_Iir (Iir_Kind_Association_Element_By_Individual); Location_Copy (Iassoc, Assoc); - if Cur_Iface = Null_Iir then - raise Internal_Error; - end if; + Set_Choice_Staticness (Iassoc, Locally); + pragma Assert (Cur_Iface /= Null_Iir); Set_Formal (Iassoc, Cur_Iface); -- Insert IASSOC. if Prev_Assoc = Null_Iir then diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index ec796b9..2956019 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -2310,17 +2310,19 @@ package body Sem_Expr is end if; end Sem_String_Choices_Range; - procedure Sem_Choices_Range - (Choice_Chain : in out Iir; + procedure Sem_Check_Continuous_Choices + (Choice_Chain : Iir; Sub_Type : Iir; Is_Sub_Range : Boolean; - Is_Case_Stmt : Boolean; Loc : Location_Type; Low : out Iir; High : out Iir) is - -- Number of positionnal choice. - Nbr_Pos : Iir_Int64; + -- Nodes that can appear. + subtype Iir_Kinds_Case_Choice is Iir_Kind range + Iir_Kind_Choice_By_Others .. + --Iir_Kind_Choice_By_Expression + Iir_Kind_Choice_By_Range; -- Number of named choices. Nbr_Named : Natural; @@ -2328,113 +2330,12 @@ package body Sem_Expr is -- True if others choice is present. Has_Others : Boolean; - Has_Error : Boolean; - -- True if SUB_TYPE has bounds. Type_Has_Bounds : Boolean; Arr : Iir_Array_Acc; Index : Natural; - Pos_Max : Iir_Int64; El : Iir; - Prev_El : Iir; - - -- Staticness of the current choice. - Choice_Staticness : Iir_Staticness; - - -- Staticness of all the choices. - Staticness : Iir_Staticness; - - function Replace_By_Range_Choice (Name : Iir; Range_Type : Iir) - return Boolean - is - N_Choice : Iir; - Name1 : Iir; - begin - if Are_Types_Compatible (Range_Type, Sub_Type) = Not_Compatible then - Not_Match (Name, Sub_Type); - return False; - end if; - - Name1 := Finish_Sem_Name (Name); - N_Choice := Create_Iir (Iir_Kind_Choice_By_Range); - Location_Copy (N_Choice, El); - Set_Chain (N_Choice, Get_Chain (El)); - Set_Associated_Expr (N_Choice, Get_Associated_Expr (El)); - Set_Associated_Chain (N_Choice, Get_Associated_Chain (El)); - Set_Same_Alternative_Flag (N_Choice, Get_Same_Alternative_Flag (El)); - Set_Choice_Range (N_Choice, Eval_Range_If_Static (Name1)); - Set_Choice_Staticness (N_Choice, Get_Type_Staticness (Range_Type)); - Free_Iir (El); - - if Prev_El = Null_Iir then - Choice_Chain := N_Choice; - else - Set_Chain (Prev_El, N_Choice); - end if; - El := N_Choice; - - return True; - end Replace_By_Range_Choice; - - -- Analyze a simple (by expression or by range) choice. - -- Return FALSE in case of error. - function Sem_Simple_Choice return Boolean - is - Expr : Iir; - Ent : Iir; - begin - if Get_Kind (El) = Iir_Kind_Choice_By_Range then - Expr := Get_Choice_Range (El); - Expr := Sem_Discrete_Range_Expression (Expr, Sub_Type, True); - if Expr = Null_Iir then - return False; - end if; - Expr := Eval_Range_If_Static (Expr); - Set_Choice_Range (El, Expr); - else - Expr := Get_Choice_Expression (El); - case Get_Kind (Expr) is - when Iir_Kind_Selected_Name - | Iir_Kind_Simple_Name - | Iir_Kind_Character_Literal - | Iir_Kind_Parenthesis_Name - | Iir_Kind_Selected_By_All_Name - | Iir_Kind_Attribute_Name => - Sem_Name (Expr); - Ent := Get_Named_Entity (Expr); - if Ent = Error_Mark then - return False; - end if; - - -- So range or expression ? - -- FIXME: share code with sem_name for slice/index. - case Get_Kind (Ent) is - when Iir_Kind_Range_Array_Attribute - | Iir_Kind_Reverse_Range_Array_Attribute - | Iir_Kind_Range_Expression => - return Replace_By_Range_Choice (Expr, Ent); - when Iir_Kind_Subtype_Declaration - | Iir_Kind_Type_Declaration => - Ent := Is_Type_Name (Expr); - Set_Expr_Staticness (Expr, Get_Type_Staticness (Ent)); - return Replace_By_Range_Choice (Expr, Ent); - when others => - Expr := Name_To_Expression - (Expr, Get_Base_Type (Sub_Type)); - end case; - when others => - Expr := Sem_Expression_Ov (Expr, Get_Base_Type (Sub_Type)); - end case; - if Expr = Null_Iir then - return False; - end if; - Expr := Eval_Expr_If_Static (Expr); - Set_Choice_Expression (El, Expr); - end if; - Set_Choice_Staticness (El, Get_Expr_Staticness (Expr)); - return True; - end Sem_Simple_Choice; -- Get low limit of ASSOC. -- First, get the expression of the association, then the low limit. @@ -2452,12 +2353,7 @@ package body Sem_Expr is Expr := Get_Choice_Range (Assoc); case Get_Kind (Expr) is when Iir_Kind_Range_Expression => - case Get_Direction (Expr) is - when Iir_To => - return Get_Left_Limit (Expr); - when Iir_Downto => - return Get_Right_Limit (Expr); - end case; + return Get_Low_Limit (Expr); when others => return Expr; end case; @@ -2477,12 +2373,7 @@ package body Sem_Expr is Expr := Get_Choice_Range (Assoc); case Get_Kind (Expr) is when Iir_Kind_Range_Expression => - case Get_Direction (Expr) is - when Iir_To => - return Get_Right_Limit (Expr); - when Iir_Downto => - return Get_Left_Limit (Expr); - end case; + return Get_High_Limit (Expr); when others => return Expr; end case; @@ -2514,112 +2405,23 @@ package body Sem_Expr is Low := Null_Iir; High := Null_Iir; - -- First: - -- Analyze the choices - -- compute the range of positionnal choices - -- compute the number of choice elements (extracted from lists). - -- check for others presence. - Nbr_Pos := 0; + -- Compute the number of elements, return early if a choice is not + -- static. Nbr_Named := 0; Has_Others := False; - Has_Error := False; - Staticness := Locally; El := Choice_Chain; - Prev_El := Null_Iir; while El /= Null_Iir loop - case Get_Kind (El) is - when Iir_Kind_Choice_By_None => - Nbr_Pos := Nbr_Pos + 1; + case Iir_Kinds_Case_Choice (Get_Kind (El)) is when Iir_Kind_Choice_By_Expression | Iir_Kind_Choice_By_Range => - if Sem_Simple_Choice then - Choice_Staticness := Get_Choice_Staticness (El); - Staticness := Min (Staticness, Choice_Staticness); - if Choice_Staticness /= Locally - and then Is_Case_Stmt - then - -- FIXME: explain why - Error_Msg_Sem ("choice is not locally static", El); - end if; - else - Has_Error := True; - end if; + pragma Assert (Get_Choice_Staticness (El) = Locally); Nbr_Named := Nbr_Named + 1; - when Iir_Kind_Choice_By_Name => - -- It is not possible to have such a choice in an array - -- aggregate. - -- Should have been caught previously. - raise Internal_Error; when Iir_Kind_Choice_By_Others => - if Has_Others then - Error_Msg_Sem ("duplicate others choice", El); - elsif Get_Chain (El) /= Null_Iir then - Error_Msg_Sem - ("choice others should be the last alternative", El); - end if; Has_Others := True; - when others => - Error_Kind ("sem_choices_range", El); end case; - Prev_El := El; El := Get_Chain (El); end loop; - if Has_Error then - -- Nothing can be done here... - return; - end if; - if Nbr_Pos > 0 and then Nbr_Named > 0 then - -- LRM93 7.3.2.2 - -- Apart from the final element with the single choice OTHERS, the - -- rest (if any) of the element associations of an array aggregate - -- must be either all positionnal or all named. - Error_Msg_Sem - ("element associations must be all positional or all named", Loc); - return; - end if; - - -- For a positional aggregate. - if Nbr_Pos > 0 then - -- Check number of elements match, but only if it is possible. - if Get_Type_Staticness (Sub_Type) /= Locally then - return; - end if; - Pos_Max := Eval_Discrete_Type_Length (Sub_Type); - if (not Has_Others and not Is_Sub_Range) - and then Nbr_Pos < Pos_Max - then - Error_Msg_Sem ("not enough elements associated", Loc); - elsif Nbr_Pos > Pos_Max then - Error_Msg_Sem ("too many elements associated", Loc); - end if; - return; - end if; - - -- Second: - -- Create the list of choices - if Nbr_Named = 0 and then Has_Others then - -- This is only a others association. - return; - end if; - if Staticness /= Locally then - -- Emit a message for aggregrate. The message has already been - -- emitted for a case stmt. - -- FIXME: what about individual associations? - if not Is_Case_Stmt then - -- LRM93 §7.3.2.2 - -- A named association of an array aggregate is allowed to have - -- a choice that is not locally static, or likewise a choice that - -- is a null range, only if the aggregate includes a single - -- element association and the element association has a single - -- choice. - if Nbr_Named > 1 or Has_Others then - Error_Msg_Sem ("not static choice exclude others choice", Loc); - end if; - end if; - return; - end if; - -- Set TYPE_HAS_BOUNDS case Get_Kind (Sub_Type) is when Iir_Kind_Enumeration_Type_Definition @@ -2670,17 +2472,12 @@ package body Sem_Expr is -- Fill the array. El := Choice_Chain; while El /= Null_Iir loop - case Get_Kind (El) is - when Iir_Kind_Choice_By_None => - -- Only named associations are considered. - raise Internal_Error; + case Iir_Kinds_Case_Choice (Get_Kind (El)) is when Iir_Kind_Choice_By_Expression | Iir_Kind_Choice_By_Range => Add_Choice (El, Sub_Type); when Iir_Kind_Choice_By_Others => null; - when others => - Error_Kind ("sem_choices_range(2)", El); end case; El := Get_Chain (El); end loop; @@ -2779,6 +2576,240 @@ package body Sem_Expr is end; Free (Arr); + end Sem_Check_Continuous_Choices; + + procedure Sem_Choices_Range + (Choice_Chain : in out Iir; + Sub_Type : Iir; + Is_Sub_Range : Boolean; + Is_Case_Stmt : Boolean; + Loc : Location_Type; + Low : out Iir; + High : out Iir) + is + -- Number of positionnal choice. + Nbr_Pos : Iir_Int64; + + -- Number of named choices. + Nbr_Named : Natural; + + -- True if others choice is present. + Has_Others : Boolean; + + Has_Error : Boolean; + + Pos_Max : Iir_Int64; + El : Iir; + Prev_El : Iir; + + -- Staticness of the current choice. + Choice_Staticness : Iir_Staticness; + + -- Staticness of all the choices. + Staticness : Iir_Staticness; + + function Replace_By_Range_Choice (Name : Iir; Range_Type : Iir) + return Boolean + is + N_Choice : Iir; + Name1 : Iir; + begin + if Are_Types_Compatible (Range_Type, Sub_Type) = Not_Compatible then + Not_Match (Name, Sub_Type); + return False; + end if; + + Name1 := Finish_Sem_Name (Name); + N_Choice := Create_Iir (Iir_Kind_Choice_By_Range); + Location_Copy (N_Choice, El); + Set_Chain (N_Choice, Get_Chain (El)); + Set_Associated_Expr (N_Choice, Get_Associated_Expr (El)); + Set_Associated_Chain (N_Choice, Get_Associated_Chain (El)); + Set_Same_Alternative_Flag (N_Choice, Get_Same_Alternative_Flag (El)); + Set_Choice_Range (N_Choice, Eval_Range_If_Static (Name1)); + Set_Choice_Staticness (N_Choice, Get_Type_Staticness (Range_Type)); + Free_Iir (El); + + if Prev_El = Null_Iir then + Choice_Chain := N_Choice; + else + Set_Chain (Prev_El, N_Choice); + end if; + El := N_Choice; + + return True; + end Replace_By_Range_Choice; + + -- Analyze a simple (by expression or by range) choice. + -- Return FALSE in case of error. + function Sem_Simple_Choice return Boolean + is + Expr : Iir; + Ent : Iir; + begin + if Get_Kind (El) = Iir_Kind_Choice_By_Range then + Expr := Get_Choice_Range (El); + Expr := Sem_Discrete_Range_Expression (Expr, Sub_Type, True); + if Expr = Null_Iir then + return False; + end if; + Expr := Eval_Range_If_Static (Expr); + Set_Choice_Range (El, Expr); + else + Expr := Get_Choice_Expression (El); + case Get_Kind (Expr) is + when Iir_Kind_Selected_Name + | Iir_Kind_Simple_Name + | Iir_Kind_Character_Literal + | Iir_Kind_Parenthesis_Name + | Iir_Kind_Selected_By_All_Name + | Iir_Kind_Attribute_Name => + Sem_Name (Expr); + Ent := Get_Named_Entity (Expr); + if Ent = Error_Mark then + return False; + end if; + + -- So range or expression ? + -- FIXME: share code with sem_name for slice/index. + case Get_Kind (Ent) is + when Iir_Kind_Range_Array_Attribute + | Iir_Kind_Reverse_Range_Array_Attribute + | Iir_Kind_Range_Expression => + return Replace_By_Range_Choice (Expr, Ent); + when Iir_Kind_Subtype_Declaration + | Iir_Kind_Type_Declaration => + Ent := Is_Type_Name (Expr); + Set_Expr_Staticness (Expr, Get_Type_Staticness (Ent)); + return Replace_By_Range_Choice (Expr, Ent); + when others => + Expr := Name_To_Expression + (Expr, Get_Base_Type (Sub_Type)); + end case; + when others => + Expr := Sem_Expression_Ov (Expr, Get_Base_Type (Sub_Type)); + end case; + if Expr = Null_Iir then + return False; + end if; + Expr := Eval_Expr_If_Static (Expr); + Set_Choice_Expression (El, Expr); + end if; + Set_Choice_Staticness (El, Get_Expr_Staticness (Expr)); + return True; + end Sem_Simple_Choice; + begin + Low := Null_Iir; + High := Null_Iir; + + -- First: + -- Analyze the choices + -- compute the range of positionnal choices + -- compute the number of choice elements (extracted from lists). + -- check for others presence. + Nbr_Pos := 0; + Nbr_Named := 0; + Has_Others := False; + Has_Error := False; + Staticness := Locally; + El := Choice_Chain; + Prev_El := Null_Iir; + while El /= Null_Iir loop + case Get_Kind (El) is + when Iir_Kind_Choice_By_None => + Nbr_Pos := Nbr_Pos + 1; + when Iir_Kind_Choice_By_Expression + | Iir_Kind_Choice_By_Range => + if Sem_Simple_Choice then + Choice_Staticness := Get_Choice_Staticness (El); + Staticness := Min (Staticness, Choice_Staticness); + if Choice_Staticness /= Locally + and then Is_Case_Stmt + then + -- FIXME: explain why + Error_Msg_Sem ("choice is not locally static", El); + end if; + else + Has_Error := True; + end if; + Nbr_Named := Nbr_Named + 1; + when Iir_Kind_Choice_By_Name => + -- It is not possible to have such a choice in an array + -- aggregate. + -- Should have been caught previously. + raise Internal_Error; + when Iir_Kind_Choice_By_Others => + if Has_Others then + Error_Msg_Sem ("duplicate others choice", El); + elsif Get_Chain (El) /= Null_Iir then + Error_Msg_Sem + ("choice others should be the last alternative", El); + end if; + Has_Others := True; + when others => + Error_Kind ("sem_choices_range", El); + end case; + Prev_El := El; + El := Get_Chain (El); + end loop; + + if Has_Error then + -- Nothing can be done here... + return; + end if; + if Nbr_Pos > 0 and then Nbr_Named > 0 then + -- LRM93 7.3.2.2 + -- Apart from the final element with the single choice OTHERS, the + -- rest (if any) of the element associations of an array aggregate + -- must be either all positionnal or all named. + Error_Msg_Sem + ("element associations must be all positional or all named", Loc); + return; + end if; + + -- For a positional aggregate. + if Nbr_Pos > 0 then + -- Check number of elements match, but only if it is possible. + if Get_Type_Staticness (Sub_Type) /= Locally then + return; + end if; + Pos_Max := Eval_Discrete_Type_Length (Sub_Type); + if (not Has_Others and not Is_Sub_Range) + and then Nbr_Pos < Pos_Max + then + Error_Msg_Sem ("not enough elements associated", Loc); + elsif Nbr_Pos > Pos_Max then + Error_Msg_Sem ("too many elements associated", Loc); + end if; + return; + end if; + + -- Second: + -- Create the list of choices + if Nbr_Named = 0 and then Has_Others then + -- This is only a others association. + return; + end if; + if Staticness /= Locally then + -- Emit a message for aggregrate. The message has already been + -- emitted for a case stmt. + -- FIXME: what about individual associations? + if not Is_Case_Stmt then + -- LRM93 §7.3.2.2 + -- A named association of an array aggregate is allowed to have + -- a choice that is not locally static, or likewise a choice that + -- is a null range, only if the aggregate includes a single + -- element association and the element association has a single + -- choice. + if Nbr_Named > 1 or Has_Others then + Error_Msg_Sem ("not static choice exclude others choice", Loc); + end if; + end if; + return; + end if; + + Sem_Check_Continuous_Choices + (Choice_Chain, Sub_Type, Is_Sub_Range, Loc, Low, High); end Sem_Choices_Range; -- -- Find out the MIN and the MAX of an all named association choice list. diff --git a/src/vhdl/sem_expr.ads b/src/vhdl/sem_expr.ads index 1a1c32b..5d84902 100644 --- a/src/vhdl/sem_expr.ads +++ b/src/vhdl/sem_expr.ads @@ -164,6 +164,19 @@ package Sem_Expr is Low : out Iir; High : out Iir); + -- Check that the values of CHOICE_CHAIN are a continuous range, and + -- extract the lower LOW and upper HIGH bound (useful to create the + -- corresponding subtype). The values must be of type SUB_TYPE, and if + -- IS_SUB_RANGE True, they must be within SUB_TYPE. + -- The choices must be locally static. + procedure Sem_Check_Continuous_Choices + (Choice_Chain : Iir; + Sub_Type : Iir; + Is_Sub_Range : Boolean; + Loc : Location_Type; + Low : out Iir; + High : out Iir); + -- Semantize CHOICE_LIST when the choice expression SEL is of a -- one-dimensional character array type. procedure Sem_String_Choices_Range (Choice_Chain : Iir; Sel : Iir); |