Add extended locations (elocations). Still WIP

1 files changed, 10 insertions, 7 deletions

diff --git a/src/vhdl/iirs.ads b/src/vhdl/iirs.ads
index 95239ffb6..763106c3c 100644
--- a/src/vhdl/iirs.ads
+++ b/src/vhdl/iirs.ads
@@ -233,8 +233,6 @@ package Iirs is
    --  a package, a package body or a configuration.
    --   Get/Set_Library_Unit (Field5)
    --
-   --   Get/Set_End_Location (Field6)
-   --
    --  Collision chain for units.
    --   Get/Set_Hash_Chain (Field7)
    --
@@ -517,6 +515,12 @@ package Iirs is
    -- Iir_Kind_Choice_By_Expression (Short)
    --  (Iir_Kinds_Choice)
    --
+   --
+   --  The location of the first alternative is set on:
+   --  'when' for case statement, selected assignment and case generate,
+   --  '(' or ',' for aggregates.
+   --  The location of the following alternatives is set on '|'.
+   --
    --   Get/Set_Parent (Field0)
    --
    --  For a list of choices, only the first one is associated, the following
@@ -1967,6 +1971,8 @@ package Iirs is
    --  use_clause ::=
    --     USE selected_name { , selected_name } ;
    --
+   --  Location is on 'USE'.
+   --
    --   Get/Set_Parent (Field0)
    --
    --   Get/Set_Selected_Name (Field1)
@@ -2730,6 +2736,8 @@ package Iirs is
    -- Iir_Kind_Sensitized_Process_Statement (Medium)
    -- Iir_Kind_Process_Statement (Medium)
    --
+   --  Location is on the label, or 'postponed' or 'process'.
+   --
    --   Get/Set_Parent (Field0)
    --
    --   Get/Set_Declaration_Chain (Field1)
@@ -7249,11 +7257,6 @@ package Iirs is
    function Get_Protected_Type_Declaration (Target : Iir) return Iir;
    procedure Set_Protected_Type_Declaration (Target : Iir; Decl : Iir);
 
-   --  Location of the 'end' token.
-   --  Field: Field6 (uc)
-   function Get_End_Location (Target : Iir) return Location_Type;
-   procedure Set_End_Location (Target : Iir; Loc : Location_Type);
-
    --  For a declaration: true if the declaration is used somewhere.
    --  Field: Flag6
    function Get_Use_Flag (Decl : Iir) return Boolean;