diff options
Diffstat (limited to 'src/vhdl/elocations.ads')
| -rw-r--r-- | src/vhdl/elocations.ads | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/src/vhdl/elocations.ads b/src/vhdl/elocations.ads index 4a83820e3..b71944b5b 100644 --- a/src/vhdl/elocations.ads +++ b/src/vhdl/elocations.ads @@ -52,12 +52,14 @@ package Elocations is -- Tuples -- ------------- - -- Iir_Kind_Association_Element_By_Expression (None) - -- Iir_Kind_Association_Element_Open (None) - -- Iir_Kind_Association_Element_By_Individual (None) - -- Iir_Kind_Association_Element_Package (None) - -- Iir_Kind_Association_Element_Type (None) - -- Iir_Kind_Association_Element_Subprogram (None) + -- Iir_Kind_Association_Element_By_Expression (L1) + -- Iir_Kind_Association_Element_Open (L1) + -- Iir_Kind_Association_Element_By_Individual (L1) + -- Iir_Kind_Association_Element_Package (L1) + -- Iir_Kind_Association_Element_Type (L1) + -- Iir_Kind_Association_Element_Subprogram (L1) + -- + -- Get/Set_Arrow_Location (Field1) -- Iir_Kind_Waveform_Element (None) @@ -311,8 +313,6 @@ package Elocations is -- Iir_Kind_Record_Type_Definition (L2) -- - -- Get/Set_Start_Location (Field1) - -- -- Get/Set_End_Location (Field2) -- Iir_Kind_Access_Type_Definition (None) @@ -666,4 +666,8 @@ package Elocations is -- Field: Field2 function Get_Port_Map_Location (N : Iir) return Location_Type; procedure Set_Port_Map_Location (N : Iir; Loc : Location_Type); + + -- Field: Field1 + function Get_Arrow_Location (N : Iir) return Location_Type; + procedure Set_Arrow_Location (N : Iir; Loc : Location_Type); end Elocations; |