diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-04-17 09:29:20 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-04-17 09:29:20 +0200 |
commit | faafe7c3019fa137487120ee183b82c6259f16eb (patch) | |
tree | d7c4d48491ffe38b481526cca0c9e5f726b38693 /src/vhdl/translate/trans-chap2.adb | |
parent | be2e3aace30460c7cc92b4f548cf7bbd09dbd6b6 (diff) | |
download | ghdl-faafe7c3019fa137487120ee183b82c6259f16eb.tar.gz ghdl-faafe7c3019fa137487120ee183b82c6259f16eb.tar.bz2 ghdl-faafe7c3019fa137487120ee183b82c6259f16eb.zip |
vhdl: handle object interface using an interface type. Fix #1726
Diffstat (limited to 'src/vhdl/translate/trans-chap2.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index 373bb5699..44781852b 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -1563,6 +1563,12 @@ package body Trans.Chap2 is begin if Is_Valid (Bod) then Translate_Package_Body (Bod); + else + -- As an elaboration subprogram for the body is always + -- needed, generate it. + if not Is_Nested_Package (Inst) then + Elab_Package_Body (Inst, Null_Iir); + end if; end if; end; end if; |