Add Entity_Name for architecture and configuration.

1 files changed, 12 insertions, 1 deletions

diff --git a/iirs.ads b/iirs.ads
index 028fa9e75..34e86891d 100644
--- a/iirs.ads
+++ b/iirs.ads
@@ -638,18 +638,21 @@ package Iirs is
    --   Get/Set_Identifier (Field3)
    --
    --   Get/Set_Attribute_Value_Chain (Field4)
+   --
    --   Get/Set_Concurrent_Statement_Chain (Field5)
    --
    -- The default configuration created by canon.  This is a design unit.
    --   Get/Set_Default_Configuration_Declaration (Field6)
    --
+   --   Get/Set_Entity_Name (Field7)
+   --
    --   Get/Set_Foreign_Flag (Flag3)
    --
    --   Get/Set_Visible_Flag (Flag4)
    --
    --   Get/Set_Is_Within_Flag (Flag5)
 
-   -- Iir_Kind_Configuration_Declaration (Short)
+   -- Iir_Kind_Configuration_Declaration (Medium)
    --
    --   Get/Set_Parent (Field0)
    --   Get/Set_Design_Unit (Alias Field0)
@@ -666,6 +669,8 @@ package Iirs is
    --
    --   Get/Set_Block_Configuration (Field5)
    --
+   --   Get/Set_Entity_Name (Field7)
+   --
    --   Get/Set_Visible_Flag (Flag4)
 
    -- Iir_Kind_Package_Header (Medium)
@@ -4599,10 +4604,16 @@ package Iirs is
    function Get_Attribute_Value_Spec_Chain (Target : Iir) return Iir;
    procedure Set_Attribute_Value_Spec_Chain (Target : Iir; Chain : Iir);
 
+   --  The entity declaration for an architecture or a configuration.
    --  Field: Field2
    function Get_Entity (Decl : Iir) return Iir;
    procedure Set_Entity (Decl : Iir; Entity : Iir);
 
+   --  The entity name for an architecture or a configuration.
+   --  Field: Field7
+   function Get_Entity_Name (Arch : Iir) return Iir;
+   procedure Set_Entity_Name (Arch : Iir; Entity : Iir);
+
    --  The package declaration corresponding to the body.
    --  Field: Field4
    function Get_Package (Package_Body : Iir) return Iir_Package_Declaration;