diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-11-16 20:20:10 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-11-16 20:20:10 +0100 |
| commit | 304e2e2fb74eeb52d8de896fb2742a464e5b2272 (patch) | |
| tree | c43323dacc48f91dd0d114077171a0c4e16572b4 | |
| parent | 79fa6949664f8075fdb5eebd1dd5a8564e3a8e44 (diff) | |
| download | ghdl-304e2e2fb74eeb52d8de896fb2742a464e5b2272.tar.gz ghdl-304e2e2fb74eeb52d8de896fb2742a464e5b2272.tar.bz2 ghdl-304e2e2fb74eeb52d8de896fb2742a464e5b2272.zip | |
sem_inst: deals with simple aggregate.
| -rw-r--r-- | src/vhdl/sem_inst.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/sem_inst.adb b/src/vhdl/sem_inst.adb index b4673efeb..8884ae7c5 100644 --- a/src/vhdl/sem_inst.adb +++ b/src/vhdl/sem_inst.adb @@ -468,6 +468,10 @@ package body Sem_Inst is Set_Index_Subtype_List (Res, List); end; + when Field_Simple_Aggregate_List => + Set_Simple_Aggregate_List + (Res, Get_Simple_Aggregate_List (N)); + when Field_Subprogram_Body => -- This is a forward reference. Not yet solved. Set_Subprogram_Body (Res, Null_Iir); |