diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-11-12 07:28:40 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-11-12 07:34:03 +0100 |
commit | 70416572726fdd450fe89421be45916d1674eba0 (patch) | |
tree | dd2a6a3dc48828a1a66a913603a170a7cc8271af /src/vhdl/translate/trans-chap12.adb | |
parent | 69f57116f3d9a1f95c635e15ca85a9a96d3fc626 (diff) | |
download | ghdl-70416572726fdd450fe89421be45916d1674eba0.tar.gz ghdl-70416572726fdd450fe89421be45916d1674eba0.tar.bz2 ghdl-70416572726fdd450fe89421be45916d1674eba0.zip |
Handle top-level instantiation of macro-expansed packages.
Fix #199
Diffstat (limited to 'src/vhdl/translate/trans-chap12.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap12.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap12.adb b/src/vhdl/translate/trans-chap12.adb index 28883babb..4d25fd77e 100644 --- a/src/vhdl/translate/trans-chap12.adb +++ b/src/vhdl/translate/trans-chap12.adb @@ -711,7 +711,9 @@ package body Trans.Chap12 is Lib_Unit := Get_Library_Unit (Unit); case Get_Kind (Lib_Unit) is when Iir_Kind_Package_Declaration => - if not Get_Elab_Flag (Unit) then + if not Get_Elab_Flag (Unit) + and then Get_Package_Origin (Lib_Unit) = Null_Iir + then Chap2.Elab_Package_Body (Lib_Unit, Null_Iir); end if; when Iir_Kind_Entity_Declaration => |