From be1cda652b00ebfe4a9b4ca4e3cda2106586e739 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 19 Jul 2014 12:28:29 +0200
Subject: Replace architecture_declaration by architecture_body to follow lrm.

---
 iirs.adb | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'iirs.adb')

diff --git a/iirs.adb b/iirs.adb
index b28392fb6..0e8e07598 100644
--- a/iirs.adb
+++ b/iirs.adb
@@ -515,7 +515,7 @@ package body Iirs is
            | Iir_Kind_Subtype_Definition
            | Iir_Kind_Scalar_Nature_Definition
            | Iir_Kind_Entity_Declaration
-           | Iir_Kind_Architecture_Declaration
+           | Iir_Kind_Architecture_Body
            | Iir_Kind_Package_Instantiation_Declaration
            | Iir_Kind_Package_Header
            | Iir_Kind_Unit_Declaration
@@ -1863,7 +1863,7 @@ package body Iirs is
            | Iir_Kind_Configuration_Declaration
            | Iir_Kind_Entity_Declaration
            | Iir_Kind_Package_Declaration
-           | Iir_Kind_Architecture_Declaration
+           | Iir_Kind_Architecture_Body
            | Iir_Kind_Unit_Declaration
            | Iir_Kind_Component_Declaration
            | Iir_Kind_Group_Declaration
@@ -1978,7 +1978,7 @@ package body Iirs is
       case Get_Kind (Target) is
          when Iir_Kind_Entity_Aspect_Entity
            | Iir_Kind_Configuration_Declaration
-           | Iir_Kind_Architecture_Declaration =>
+           | Iir_Kind_Architecture_Body =>
             null;
          when others =>
             Failed ("Entity", Target);
@@ -2091,7 +2091,7 @@ package body Iirs is
    begin
       case Get_Kind (Target) is
          when Iir_Kind_Entity_Declaration
-           | Iir_Kind_Architecture_Declaration
+           | Iir_Kind_Architecture_Body
            | Iir_Kind_Block_Statement
            | Iir_Kind_Generate_Statement =>
             null;
@@ -2995,7 +2995,7 @@ package body Iirs is
            | Iir_Kind_Entity_Declaration
            | Iir_Kind_Package_Declaration
            | Iir_Kind_Package_Body
-           | Iir_Kind_Architecture_Declaration
+           | Iir_Kind_Architecture_Body
            | Iir_Kind_Package_Instantiation_Declaration =>
             null;
          when others =>
@@ -3071,7 +3071,7 @@ package body Iirs is
            | Iir_Kind_Entity_Declaration
            | Iir_Kind_Package_Declaration
            | Iir_Kind_Package_Body
-           | Iir_Kind_Architecture_Declaration
+           | Iir_Kind_Architecture_Body
            | Iir_Kind_Function_Body
            | Iir_Kind_Procedure_Body
            | Iir_Kind_Sensitized_Process_Statement
@@ -3458,7 +3458,7 @@ package body Iirs is
            | Iir_Kind_Entity_Declaration
            | Iir_Kind_Package_Declaration
            | Iir_Kind_Package_Body
-           | Iir_Kind_Architecture_Declaration
+           | Iir_Kind_Architecture_Body
            | Iir_Kind_Package_Instantiation_Declaration
            | Iir_Kind_Unit_Declaration
            | Iir_Kind_Library_Declaration
@@ -3594,7 +3594,7 @@ package body Iirs is
            | Iir_Kind_Configuration_Declaration
            | Iir_Kind_Entity_Declaration
            | Iir_Kind_Package_Declaration
-           | Iir_Kind_Architecture_Declaration
+           | Iir_Kind_Architecture_Body
            | Iir_Kind_Package_Instantiation_Declaration
            | Iir_Kind_Unit_Declaration
            | Iir_Kind_Library_Declaration
@@ -4671,7 +4671,7 @@ package body Iirs is
    procedure Check_Kind_For_Foreign_Flag (Target : Iir) is
    begin
       case Get_Kind (Target) is
-         when Iir_Kind_Architecture_Declaration
+         when Iir_Kind_Architecture_Body
            | Iir_Kind_Function_Declaration
            | Iir_Kind_Procedure_Declaration =>
             null;
@@ -5115,7 +5115,7 @@ package body Iirs is
    procedure Check_Kind_For_Default_Configuration_Declaration (Target : Iir) is
    begin
       case Get_Kind (Target) is
-         when Iir_Kind_Architecture_Declaration =>
+         when Iir_Kind_Architecture_Body =>
             null;
          when others =>
             Failed ("Default_Configuration_Declaration", Target);
@@ -5534,7 +5534,7 @@ package body Iirs is
            | Iir_Kind_Entity_Declaration
            | Iir_Kind_Package_Declaration
            | Iir_Kind_Package_Body
-           | Iir_Kind_Architecture_Declaration
+           | Iir_Kind_Architecture_Body
            | Iir_Kind_Package_Instantiation_Declaration
            | Iir_Kind_Component_Declaration
            | Iir_Kind_Attribute_Declaration
@@ -7038,7 +7038,7 @@ package body Iirs is
    begin
       case Get_Kind (Target) is
          when Iir_Kind_Entity_Declaration
-           | Iir_Kind_Architecture_Declaration
+           | Iir_Kind_Architecture_Body
            | Iir_Kind_Enumeration_Literal
            | Iir_Kind_Function_Declaration
            | Iir_Kind_Implicit_Function_Declaration
-- 
cgit v1.2.3