diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-03-16 05:08:28 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-03-16 05:08:28 +0100 |
commit | f1ddf165155bd6f9d2ebfe10d08c7988927c4ba3 (patch) | |
tree | 99637b276a745868ee682d23d839fb0e5014175f /src/vhdl/translate/trans-chap5.adb | |
parent | 37192248646ce7b4688f105877449c640e5039ce (diff) | |
download | ghdl-f1ddf165155bd6f9d2ebfe10d08c7988927c4ba3.tar.gz ghdl-f1ddf165155bd6f9d2ebfe10d08c7988927c4ba3.tar.bz2 ghdl-f1ddf165155bd6f9d2ebfe10d08c7988927c4ba3.zip |
translation: avoid memory leak while allocating ports.
Issue found in bug040.
Diffstat (limited to 'src/vhdl/translate/trans-chap5.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap5.adb | 5 |
1 files changed, 3 insertions, 2 deletions
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; |