From be1cda652b00ebfe4a9b4ca4e3cda2106586e739 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 19 Jul 2014 12:28:29 +0200 Subject: Replace architecture_declaration by architecture_body to follow lrm. --- parse.adb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'parse.adb') diff --git a/parse.adb b/parse.adb index d5df876c7..39e1e6678 100644 --- a/parse.adb +++ b/parse.adb @@ -3250,7 +3250,7 @@ package body Parse is -- FIXME: remove this message (already checked during sem). case Get_Kind (Parent) is when Iir_Kind_Entity_Declaration - | Iir_Kind_Architecture_Declaration + | Iir_Kind_Architecture_Body | Iir_Kind_Block_Statement | Iir_Kind_Package_Declaration | Iir_Kind_Package_Body => @@ -5954,10 +5954,10 @@ package body Parse is -- END [ ARCHITECTURE ] [ ARCHITECTURE_simple_name ] ; procedure Parse_Architecture (Unit : Iir_Design_Unit) is - Res: Iir_Architecture_Declaration; + Res: Iir_Architecture_Body; begin Expect (Tok_Architecture); - Res := Create_Iir (Iir_Kind_Architecture_Declaration); + Res := Create_Iir (Iir_Kind_Architecture_Body); -- Get identifier. Scan_Expect (Tok_Identifier); -- cgit v1.2.3