aboutsummaryrefslogtreecommitdiffstats
path: root/src/synth/synth-expr.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/synth/synth-expr.adb')
-rw-r--r--src/synth/synth-expr.adb5
1 files changed, 5 insertions, 0 deletions
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");