diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-06-30 06:14:11 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-07-03 14:16:16 +0200 |
commit | 787d1d010ba53f2572aa11a78407e846ee4061dc (patch) | |
tree | 50ce71c99ba9187fde06b50173a2c487e8ef4afd /src/vhdl/translate/translation.adb | |
parent | 9ebac9a4cf1dce154a1fb7eecd75ccad189b3424 (diff) | |
download | ghdl-787d1d010ba53f2572aa11a78407e846ee4061dc.tar.gz ghdl-787d1d010ba53f2572aa11a78407e846ee4061dc.tar.bz2 ghdl-787d1d010ba53f2572aa11a78407e846ee4061dc.zip |
Initial support of direct recursive instantiation.
Fix issue #2.
Diffstat (limited to 'src/vhdl/translate/translation.adb')
-rw-r--r-- | src/vhdl/translate/translation.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/vhdl/translate/translation.adb b/src/vhdl/translate/translation.adb index 8ed651ab0..79999f78a 100644 --- a/src/vhdl/translate/translation.adb +++ b/src/vhdl/translate/translation.adb @@ -298,6 +298,7 @@ package body Translation is when Iir_Kind_Configuration_Declaration => New_Debug_Comment_Decl ("configuration " & Image_Identifier (El)); if Id = Null_Identifier then + -- Default configuration. declare Mark : Id_Mark_Type; Mark_Entity : Id_Mark_Type; @@ -315,14 +316,15 @@ package body Translation is Push_Identifier_Prefix (Mark_Arch, Get_Identifier (Arch)); Push_Identifier_Prefix (Mark, Name_Table.Get_Identifier ("DEFAULT_CONFIG")); - Chap1.Translate_Configuration_Declaration (El); + Chap1.Translate_Configuration_Declaration_Body (El); Pop_Identifier_Prefix (Mark); Pop_Identifier_Prefix (Mark_Arch); Pop_Identifier_Prefix (Mark_Sep); Pop_Identifier_Prefix (Mark_Entity); end; else - Chap1.Translate_Configuration_Declaration (El); + Chap1.Translate_Configuration_Declaration_Decl (El); + Chap1.Translate_Configuration_Declaration_Body (El); end if; when Iir_Kind_Context_Declaration => New_Debug_Comment_Decl ("context " & Image_Identifier (El)); |