diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index e2a2cc398..4593b0be8 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -1057,6 +1057,7 @@ package body Trans.Chap2 is procedure Elab_Package_Body (Spec : Iir_Package_Declaration; Bod : Iir) is + -- SPEC can be a package declaration or a package instantiation. Is_Spec_Decl : constant Boolean := Get_Kind (Spec) = Iir_Kind_Package_Declaration; @@ -1066,14 +1067,18 @@ package body Trans.Chap2 is Final : Boolean; begin if Is_Spec_Decl and then Get_Macro_Expanded_Flag (Spec) then + -- Macro-expanded packages are skipped. return; end if; if not Flag_Elaboration and not Is_Nested_Package (Spec) then + -- No elaboration code generated, except for nested packages + -- (could be within a subprogram). return; end if; if Is_Spec_Decl and then Is_Uninstantiated_Package (Spec) then + -- Make spec reachable. Set_Scope_Via_Field (Info.Package_Spec_Scope, Info.Package_Spec_Field, Info.Package_Body_Scope'Access); |