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 | |
| parent | c5a6b553f4e4a7517ce8de8575b7c7d5710c070c (diff) | |
| download | ghdl-17d918428511b7c8079564c1b31f4dfcf79483b8.tar.gz ghdl-17d918428511b7c8079564c1b31f4dfcf79483b8.tar.bz2 ghdl-17d918428511b7c8079564c1b31f4dfcf79483b8.zip | |
Add comments
| -rw-r--r-- | src/synth/netlists.adb | 2 | ||||
| -rw-r--r-- | src/vhdl/translate/trans-chap8.adb | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/netlists.adb b/src/synth/netlists.adb index 24c39df50..31a3321b2 100644 --- a/src/synth/netlists.adb +++ b/src/synth/netlists.adb @@ -1215,6 +1215,8 @@ package body Netlists is -- There is now at least one attribute for INST. Instances_Table.Table (Inst).Has_Attr := True; + -- Get (or create and get) an entry for INST. If created, it will be + -- No_Attribute (returned by attribute_build_value). Attribute_Maps.Get_Index (Module_Rec.Attrs.all, Inst, Idx); Prev := Attribute_Maps.Get_Value (Module_Rec.Attrs.all, Idx); 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, |