diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-07-19 12:28:29 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-07-19 12:28:29 +0200 |
| commit | be1cda652b00ebfe4a9b4ca4e3cda2106586e739 (patch) | |
| tree | 27fc03ae0baf8ea868778735e5a578346b9077cf /simulate/annotations.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 'simulate/annotations.adb')
| -rw-r--r-- | simulate/annotations.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/simulate/annotations.adb b/simulate/annotations.adb index 00c8f715b..b447ba374 100644 --- a/simulate/annotations.adb +++ b/simulate/annotations.adb @@ -954,7 +954,8 @@ package body Annotations is (Entity_Info, Get_Concurrent_Statement_Chain (Decl)); end Annotate_Entity; - procedure Annotate_Architecture (Decl: Iir_Architecture_Declaration) is + procedure Annotate_Architecture (Decl: Iir_Architecture_Body) + is Entity_Info: Sim_Info_Acc; Arch_Info: Sim_Info_Acc; begin @@ -1107,7 +1108,7 @@ package body Annotations is case Get_Kind (El) is when Iir_Kind_Entity_Declaration => Annotate_Entity (El); - when Iir_Kind_Architecture_Declaration => + when Iir_Kind_Architecture_Body => Annotate_Architecture (El); when Iir_Kind_Package_Declaration => Annotate_Package (El); |