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 /translate/ghdldrv | |
| 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 'translate/ghdldrv')
| -rw-r--r-- | translate/ghdldrv/ghdllocal.adb | 8 | ||||
| -rw-r--r-- | translate/ghdldrv/ghdlprint.adb | 6 |
2 files changed, 7 insertions, 7 deletions
diff --git a/translate/ghdldrv/ghdllocal.adb b/translate/ghdldrv/ghdllocal.adb index 0341142a4..7169fa32a 100644 --- a/translate/ghdldrv/ghdllocal.adb +++ b/translate/ghdldrv/ghdllocal.adb @@ -90,7 +90,7 @@ package body Ghdllocal is if Flag_Create_Default_Config then Lib := Get_Library_Unit (Unit); - if Get_Kind (Lib) = Iir_Kind_Architecture_Declaration then + if Get_Kind (Lib) = Iir_Kind_Architecture_Body then Config := Canon.Create_Default_Configuration_Declaration (Lib); Set_Default_Configuration_Declaration (Lib, Config); end if; @@ -256,7 +256,7 @@ package body Ghdllocal is case Get_Kind (Unit) is when Iir_Kind_Entity_Declaration => Put ("entity "); - when Iir_Kind_Architecture_Declaration => + when Iir_Kind_Architecture_Body => Put ("architecture "); when Iir_Kind_Configuration_Declaration => Put ("configuration "); @@ -271,7 +271,7 @@ package body Ghdllocal is Image (Id); Put (Name_Buffer (1 .. Name_Length)); case Get_Kind (Unit) is - when Iir_Kind_Architecture_Declaration => + when Iir_Kind_Architecture_Body => Put (" of "); Image (Get_Identifier (Get_Entity (Unit))); Put (Name_Buffer (1 .. Name_Length)); @@ -721,7 +721,7 @@ package body Ghdllocal is when Iir_Kind_Entity_Declaration | Iir_Kind_Configuration_Declaration => Delete_Top_Unit (Image (Get_Identifier (Lib_Unit))); - when Iir_Kind_Architecture_Declaration => + when Iir_Kind_Architecture_Body => Ent_Unit := Get_Entity (Lib_Unit); Delete_Top_Unit (Image (Get_Identifier (Ent_Unit)) & '-' diff --git a/translate/ghdldrv/ghdlprint.adb b/translate/ghdldrv/ghdlprint.adb index 3850ce40c..0b775760e 100644 --- a/translate/ghdldrv/ghdlprint.adb +++ b/translate/ghdldrv/ghdlprint.adb @@ -565,7 +565,7 @@ package body Ghdlprint is null; when Iir_Kind_Package_Body => Len := Len + 1 + 4; -- add -body - when Iir_Kind_Architecture_Declaration => + when Iir_Kind_Architecture_Body => Id1 := Get_Identifier (Get_Entity (Lib)); Len := Len + 1 + Get_Name_Length (Id1); when others => @@ -598,7 +598,7 @@ package body Ghdlprint is Image (Id); Append (Name_Buffer (1 .. Name_Length)); Append ("-body"); - when Iir_Kind_Architecture_Declaration => + when Iir_Kind_Architecture_Body => Image (Get_Identifier (Get_Entity (Lib))); Append (Name_Buffer (1 .. Name_Length)); Append ("-"); @@ -1469,7 +1469,7 @@ package body Ghdlprint is C := 't'; when Iir_Kind_Entity_Declaration => C := 'E'; - when Iir_Kind_Architecture_Declaration => + when Iir_Kind_Architecture_Body => C := 'A'; when Iir_Kind_Library_Declaration => C := 'L'; |