aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/translate/trans-chap8.adb
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2018-10-24 05:15:40 +0200
committerTristan Gingold <tgingold@free.fr>2018-10-24 05:15:40 +0200
commitffd7808c74dd326f11c7373118ed85354076211e (patch)
tree9007cb21bea3294a78d7b9b48aec646236acf4bc /src/vhdl/translate/trans-chap8.adb
parent25aa43339b6e297325ed67c2192cb9bc398cff39 (diff)
downloadghdl-ffd7808c74dd326f11c7373118ed85354076211e.tar.gz
ghdl-ffd7808c74dd326f11c7373118ed85354076211e.tar.bz2
ghdl-ffd7808c74dd326f11c7373118ed85354076211e.zip
translate chap8: layout base bounds for unbounded individual assoc.
Diffstat (limited to 'src/vhdl/translate/trans-chap8.adb')
-rw-r--r--src/vhdl/translate/trans-chap8.adb5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb
index 318d0142f..4d608c839 100644
--- a/src/vhdl/translate/trans-chap8.adb
+++ b/src/vhdl/translate/trans-chap8.adb
@@ -2893,6 +2893,11 @@ package body Trans.Chap8 is
or else (Get_Interface_Of_Formal (Get_Formal (Next_Assoc))
/= Base_Formal)
then
+ -- * compute the size of the object
+ Chap3.Gen_Call_Type_Builder
+ (Chap3.Get_Composite_Bounds (Params (Last_Individual)),
+ Get_Type (Base_Formal), Formal_Object_Kind);
+
-- * allocate base
Chap3.Allocate_Unbounded_Composite_Base
(Alloc, Saved_Val (Last_Individual),