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 /disp_tree.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 'disp_tree.adb')
| -rw-r--r-- | disp_tree.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/disp_tree.adb b/disp_tree.adb index c02951977..460bd17b4 100644 --- a/disp_tree.adb +++ b/disp_tree.adb @@ -207,8 +207,8 @@ package body Disp_Tree is when Iir_Kind_Entity_Declaration => Put ("entity_declaration"); Disp_Identifier (Tree); - when Iir_Kind_Architecture_Declaration => - Put ("architecture_declaration"); + when Iir_Kind_Architecture_Body => + Put ("architecture_body"); Disp_Identifier (Tree); when Iir_Kind_Configuration_Declaration => Put ("configuration_declaration"); @@ -704,7 +704,7 @@ package body Disp_Tree is Disp_Tree_Chain (Get_Generic_Chain (Tree), Ntab); Header ("generic map aspect chain:"); Disp_Tree_Chain (Get_Generic_Map_Aspect_Chain (Tree), Ntab); - when Iir_Kind_Architecture_Declaration => + when Iir_Kind_Architecture_Body => if Flat_Decl then return; end if; |