From 304e2e2fb74eeb52d8de896fb2742a464e5b2272 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Fri, 16 Nov 2018 20:20:10 +0100
Subject: sem_inst: deals with simple aggregate.

---
 src/vhdl/sem_inst.adb | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src')

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);
-- 
cgit v1.2.3