From 17d918428511b7c8079564c1b31f4dfcf79483b8 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 17 Nov 2021 04:41:42 +0100 Subject: Add comments --- src/vhdl/translate/trans-chap8.adb | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/vhdl/translate') 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, -- cgit v1.2.3