diff options
Diffstat (limited to 'src/vhdl/elocations.ads')
| -rw-r--r-- | src/vhdl/elocations.ads | 56 |
1 files changed, 33 insertions, 23 deletions
diff --git a/src/vhdl/elocations.ads b/src/vhdl/elocations.ads index b71944b5b..629d6707f 100644 --- a/src/vhdl/elocations.ads +++ b/src/vhdl/elocations.ads @@ -88,11 +88,11 @@ package Elocations is -- Iir_Kind_Disconnection_Specification (None) - -- Iir_Kind_Block_Header (L5) + -- Iir_Kind_Block_Header (L6) -- - -- Get/Set_Generic_Location (Field4) + -- Get/Set_Generic_Location (Field5) -- - -- Get/Set_Port_Location (Field5) + -- Get/Set_Port_Location (Field6) -- -- Get/Set_Generic_Map_Location (Field3) -- @@ -116,24 +116,28 @@ package Elocations is -- Declarations -- ------------------- - -- Iir_Kind_Entity_Declaration (L5) + -- Iir_Kind_Entity_Declaration (L6) -- -- Get/Set_Start_Location (Field1) -- -- Get/Set_End_Location (Field2) -- - -- Get/Set_Generic_Location (Field4) + -- Get/Set_Generic_Location (Field5) -- - -- Get/Set_Port_Location (Field5) + -- Get/Set_Port_Location (Field6) -- -- Get/Set_Begin_Location (Field3) + -- + -- Get/Set_Is_Location (Field4) - -- Iir_Kind_Architecture_Body (L3) + -- Iir_Kind_Architecture_Body (L4) -- Get/Set_Start_Location (Field1) -- -- Get/Set_End_Location (Field2) -- -- Get/Set_Begin_Location (Field3) + -- + -- Get/Set_Is_Location (Field4) -- Iir_Kind_Configuration_Declaration (L2) -- Get/Set_Start_Location (Field1) @@ -142,7 +146,7 @@ package Elocations is -- Iir_Kind_Package_Header (L5) -- - -- Get/Set_Generic_Location (Field4) + -- Get/Set_Generic_Location (Field5) -- -- Get/Set_Generic_Map_Location (Field3) @@ -175,15 +179,15 @@ package Elocations is -- Iir_Kind_Library_Declaration (None) - -- Iir_Kind_Component_Declaration (L5) + -- Iir_Kind_Component_Declaration (L6) -- -- Get/Set_Start_Location (Field1) -- -- Get/Set_End_Location (Field2) -- - -- Get/Set_Generic_Location (Field4) + -- Get/Set_Generic_Location (Field5) -- - -- Get/Set_Port_Location (Field5) + -- Get/Set_Port_Location (Field6) -- Iir_Kind_Object_Alias_Declaration (L1) -- @@ -195,17 +199,17 @@ package Elocations is -- -- Get/Set_Start_Location (Field1) - -- Iir_Kind_Type_Declaration (L2) + -- Iir_Kind_Type_Declaration (L4) -- -- Get/Set_Start_Location (Field1) -- - -- Get/Set_Is_Location (Field2) + -- Get/Set_Is_Location (Field4) - -- Iir_Kind_Subtype_Declaration (L2) + -- Iir_Kind_Subtype_Declaration (L4) -- -- Get/Set_Start_Location (Field1) -- - -- Get/Set_Is_Location (Field2) + -- Get/Set_Is_Location (Field4) -- Iir_Kind_Nature_Declaration (None) @@ -231,14 +235,16 @@ package Elocations is -- -- Get/Set_Start_Location (Field1) - -- Iir_Kind_Function_Body (L3) - -- Iir_Kind_Procedure_Body (L3) + -- Iir_Kind_Function_Body (L4) + -- Iir_Kind_Procedure_Body (L4) -- -- Get/Set_Start_Location (Field1) -- -- Get/Set_End_Location (Field2) -- -- Get/Set_Begin_Location (Field3) + -- + -- Get/Set_Is_Location (Field4) -- Iir_Kind_Interface_Function_Declaration (None) -- Iir_Kind_Interface_Procedure_Declaration (None) @@ -377,14 +383,16 @@ package Elocations is -- -- Get/Set_Start_Location (Field1) - -- Iir_Kind_Sensitized_Process_Statement (L3) - -- Iir_Kind_Process_Statement (L3) + -- Iir_Kind_Sensitized_Process_Statement (L4) + -- Iir_Kind_Process_Statement (L4) -- -- Get/Set_Start_Location (Field1) -- -- Get/Set_End_Location (Field2) -- -- Get/Set_Begin_Location (Field3) + -- + -- Get/Set_Is_Location (Field4) -- Iir_Kind_Concurrent_Assertion_Statement (None) @@ -399,11 +407,13 @@ package Elocations is -- -- Get/Set_Port_Map_Location (Field2) - -- Iir_Kind_Block_Statement (L3) + -- Iir_Kind_Block_Statement (L4) -- -- Get/Set_End_Location (Field2) -- -- Get/Set_Begin_Location (Field3) + -- + -- Get/Set_Is_Location (Field4) -- Iir_Kind_Generate_Statement_Body (L3) -- @@ -631,7 +641,7 @@ package Elocations is function Get_End_Location (N : Iir) return Location_Type; procedure Set_End_Location (N : Iir; Loc : Location_Type); - -- Field: Field2 + -- Field: Field4 function Get_Is_Location (N : Iir) return Location_Type; procedure Set_Is_Location (N : Iir; Loc : Location_Type); @@ -651,11 +661,11 @@ package Elocations is function Get_Generate_Location (N : Iir) return Location_Type; procedure Set_Generate_Location (N : Iir; Loc : Location_Type); - -- Field: Field4 + -- Field: Field5 function Get_Generic_Location (N : Iir) return Location_Type; procedure Set_Generic_Location (N : Iir; Loc : Location_Type); - -- Field: Field5 + -- Field: Field6 function Get_Port_Location (N : Iir) return Location_Type; procedure Set_Port_Location (N : Iir; Loc : Location_Type); |