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.

---
 translate/ghdldrv/ghdlprint.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'translate/ghdldrv/ghdlprint.adb')

diff --git a/translate/ghdldrv/ghdlprint.adb b/translate/ghdldrv/ghdlprint.adb
index 3850ce40c..0b775760e 100644
--- a/translate/ghdldrv/ghdlprint.adb
+++ b/translate/ghdldrv/ghdlprint.adb
@@ -565,7 +565,7 @@ package body Ghdlprint is
                null;
             when Iir_Kind_Package_Body =>
                Len := Len + 1 + 4; -- add -body
-            when Iir_Kind_Architecture_Declaration =>
+            when Iir_Kind_Architecture_Body =>
                Id1 := Get_Identifier (Get_Entity (Lib));
                Len := Len + 1 + Get_Name_Length (Id1);
             when others =>
@@ -598,7 +598,7 @@ package body Ghdlprint is
                Image (Id);
                Append (Name_Buffer (1 .. Name_Length));
                Append ("-body");
-            when Iir_Kind_Architecture_Declaration =>
+            when Iir_Kind_Architecture_Body =>
                Image (Get_Identifier (Get_Entity (Lib)));
                Append (Name_Buffer (1 .. Name_Length));
                Append ("-");
@@ -1469,7 +1469,7 @@ package body Ghdlprint is
                      C := 't';
                   when Iir_Kind_Entity_Declaration =>
                      C := 'E';
-                  when Iir_Kind_Architecture_Declaration =>
+                  when Iir_Kind_Architecture_Body =>
                      C := 'A';
                   when Iir_Kind_Library_Declaration =>
                      C := 'L';
-- 
cgit v1.2.3