From f549640aa2a4dbf8e4d386092112de07239a9343 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 16 Apr 2019 19:03:15 +0200
Subject: synth-expr: handle others in aggregate.

---
 src/synth/synth-expr.adb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb
index 00cbc0f58..c585f0d81 100644
--- a/src/synth/synth-expr.adb
+++ b/src/synth/synth-expr.adb
@@ -172,6 +172,11 @@ package body Synth.Expr is
                      Set_Elem (Pos);
                   end if;
                   Pos := Pos + 1;
+               when Iir_Kind_Choice_By_Others =>
+                  while Pos < Bound.Length loop
+                     Set_Elem (Pos);
+                     Pos := Pos + 1;
+                  end loop;
                when others =>
                   Error_Msg_Synth
                     (+Assoc, "unhandled association form");
-- 
cgit v1.2.3