From f1ddf165155bd6f9d2ebfe10d08c7988927c4ba3 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 16 Mar 2016 05:08:28 +0100 Subject: translation: avoid memory leak while allocating ports. Issue found in bug040. --- src/vhdl/translate/trans-chap5.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/vhdl/translate/trans-chap5.adb') diff --git a/src/vhdl/translate/trans-chap5.adb b/src/vhdl/translate/trans-chap5.adb index f52de48be..a0c90ba6f 100644 --- a/src/vhdl/translate/trans-chap5.adb +++ b/src/vhdl/translate/trans-chap5.adb @@ -723,10 +723,11 @@ package body Trans.Chap5 is when Iir_Kind_Association_Element_By_Individual | Iir_Kind_Association_Element_Open => pragma Assert (Get_Whole_Association_Flag (Assoc)); - Chap4.Elab_Signal_Declaration_Storage (Formal); + Chap4.Elab_Signal_Declaration_Storage (Formal, False); when Iir_Kind_Association_Element_By_Expression => if Get_Whole_Association_Flag (Assoc) then - Chap4.Elab_Signal_Declaration_Storage (Formal); + Chap4.Elab_Signal_Declaration_Storage + (Formal, Get_Collapse_Signal_Flag (Assoc)); end if; end case; Close_Temp; -- cgit v1.2.3