diff options
| author | Tristan Gingold | 2014-07-19 12:28:29 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2014-07-19 12:28:29 +0200 |
| commit | be1cda652b00ebfe4a9b4ca4e3cda2106586e739 (patch) | |
| tree | 27fc03ae0baf8ea868778735e5a578346b9077cf /iirs_utils.adb | |
| parent | 4168dec01d69b644c59858be3af8d56b055fbbc2 (diff) | |
| download | ghdl-be1cda652b00ebfe4a9b4ca4e3cda2106586e739.tar.gz ghdl-be1cda652b00ebfe4a9b4ca4e3cda2106586e739.tar.bz2 ghdl-be1cda652b00ebfe4a9b4ca4e3cda2106586e739.zip | |
Replace architecture_declaration by architecture_body to follow lrm.
Diffstat (limited to 'iirs_utils.adb')
| -rw-r--r-- | iirs_utils.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/iirs_utils.adb b/iirs_utils.adb index 178f90e..e625964 100644 --- a/iirs_utils.adb +++ b/iirs_utils.adb @@ -424,7 +424,7 @@ package body Iirs_Utils is when Iir_Kind_Library_Declaration | Iir_Kind_Package_Declaration | Iir_Kind_Entity_Declaration - | Iir_Kind_Architecture_Declaration + | Iir_Kind_Architecture_Body | Iir_Kind_Design_Unit | Iir_Kinds_Concurrent_Statement | Iir_Kinds_Sequential_Statement => @@ -490,7 +490,7 @@ package body Iirs_Utils is | Iir_Kind_Enumeration_Subtype_Definition | Iir_Kind_Physical_Subtype_Definition => return; - when Iir_Kind_Architecture_Declaration => + when Iir_Kind_Architecture_Body => Free_Recursive (Get_Entity (N)); when Iir_Kind_Proxy => null; @@ -634,12 +634,12 @@ package body Iirs_Utils is case Get_Kind (Block_Spec) is when Iir_Kind_Design_Unit => Res := Get_Library_Unit (Block_Spec); - if Get_Kind (Res) /= Iir_Kind_Architecture_Declaration then + if Get_Kind (Res) /= Iir_Kind_Architecture_Body then raise Internal_Error; end if; return Res; when Iir_Kind_Block_Statement - | Iir_Kind_Architecture_Declaration + | Iir_Kind_Architecture_Body | Iir_Kind_Generate_Statement => return Block_Spec; when Iir_Kind_Indexed_Name |