diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap9.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap9.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap9.adb b/src/vhdl/translate/trans-chap9.adb index 95c8db11c..b1c7205a7 100644 --- a/src/vhdl/translate/trans-chap9.adb +++ b/src/vhdl/translate/trans-chap9.adb @@ -1325,8 +1325,10 @@ package body Trans.Chap9 is (Stmt, Block, Base_Block, Get_Entity_From_Entity_Aspect (Get_Instantiated_Unit (Stmt))); - Translate_Component_Instantiation_Subprogram - (Stmt, Base_Info); + if Flag_Elaboration then + Translate_Component_Instantiation_Subprogram + (Stmt, Base_Info); + end if; when Iir_Kind_Block_Statement => declare Guard : constant Iir := Get_Guard_Decl (Stmt); |