diff options
author | Tristan Gingold <tgingold@free.fr> | 2021-11-17 04:41:42 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2021-11-17 04:41:42 +0100 |
commit | 17d918428511b7c8079564c1b31f4dfcf79483b8 (patch) | |
tree | f467182dc1c09001e9203c3e3472482b28779437 /src/vhdl/translate/trans-chap8.adb | |
parent | c5a6b553f4e4a7517ce8de8575b7c7d5710c070c (diff) | |
download | ghdl-17d918428511b7c8079564c1b31f4dfcf79483b8.tar.gz ghdl-17d918428511b7c8079564c1b31f4dfcf79483b8.tar.bz2 ghdl-17d918428511b7c8079564c1b31f4dfcf79483b8.zip |
Add comments
Diffstat (limited to 'src/vhdl/translate/trans-chap8.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb index 582a526cd..4d62012f8 100644 --- a/src/vhdl/translate/trans-chap8.adb +++ b/src/vhdl/translate/trans-chap8.adb @@ -4544,10 +4544,12 @@ package body Trans.Chap8 is Bounds : Mnode; begin if Get_Kind (Target) = Iir_Kind_Aggregate then + -- The target is an aggregate. Chap3.Translate_Anonymous_Subtype_Definition (Target_Type, False); Target_Tinfo := Get_Info (Target_Type); Targ := Create_Temp (Target_Tinfo, Mode_Signal); if Target_Tinfo.Type_Mode in Type_Mode_Unbounded then + -- Unbounded array, allocate bounds. Bounds := Dv2M (Create_Temp (Target_Tinfo.B.Bounds_Type), Target_Tinfo, Mode_Value, |