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 /sem.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 'sem.adb')
| -rw-r--r-- | sem.adb | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -139,7 +139,7 @@ package body Sem is end Sem_Entity_Name; -- LRM 1.2 Architecture bodies. - procedure Sem_Architecture_Declaration (Arch: Iir_Architecture_Declaration) + procedure Sem_Architecture_Body (Arch: Iir_Architecture_Body) is Entity_Unit : Iir_Design_Unit; Entity_Library : Iir_Entity_Declaration; @@ -202,7 +202,7 @@ package body Sem is Close_Declarative_Region; Set_Is_Within_Flag (Arch, False); Set_Is_Within_Flag (Entity_Library, False); - end Sem_Architecture_Declaration; + end Sem_Architecture_Body; -- Return the real resolver used for (sub) object OBJ. -- Return NULL_IIR if none. @@ -656,7 +656,7 @@ package body Sem is -- entity name of the enclosing configuration declaration. declare Block_Spec : Iir; - Arch : Iir_Architecture_Declaration; + Arch : Iir_Architecture_Body; Design: Iir_Design_Unit; begin Block_Spec := Get_Block_Specification (Block_Conf); @@ -698,7 +698,7 @@ package body Sem is -- that to which the corresponding components are bound. declare Block_Spec : Iir; - Arch : Iir_Architecture_Declaration; + Arch : Iir_Architecture_Body; Design: Iir_Design_Unit; Entity_Aspect : Iir; Comp_Arch : Iir; @@ -2571,8 +2571,8 @@ package body Sem is case Get_Kind (El) is when Iir_Kind_Entity_Declaration => Sem_Entity_Declaration (El); - when Iir_Kind_Architecture_Declaration => - Sem_Architecture_Declaration (El); + when Iir_Kind_Architecture_Body => + Sem_Architecture_Body (El); when Iir_Kind_Package_Declaration => Sem_Package_Declaration (El); when Iir_Kind_Package_Body => |