diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap5.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap5.adb | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index 9b2eec152..e9b11f8eb 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -760,9 +760,17 @@ package body Trans.Chap5 is -- Create non-collapsed signals. Chap4.Elab_Signal_Declaration_Object (Formal, Block_Parent, False); - -- And associate. - Elab_Port_Map_Aspect_Assoc - (Assoc, Formal, False, Formal_Env, Actual_Env); + -- And associate (if not an inertial association). + if (Get_Kind (Assoc) + = Iir_Kind_Association_Element_By_Name) + or else (Get_Expr_Staticness (Get_Actual (Assoc)) + /= None) + then + Elab_Port_Map_Aspect_Assoc + (Assoc, Formal, False, Formal_Env, Actual_Env); + else + Chap9.Elab_Inertial_Association (Assoc, Formal); + end if; end if; else -- By sub-element. |